防范垃圾留言的asp代码

发布时间：2023-08-12 14:42:23 所属栏目：Asp教程来源：

导读：网站若是缺少管理的话那么留言里就会出现很多的垃圾信息，那么当出现了很多垃圾信息后我们要怎么处理呢？接下来小编就为大家介绍防止垃圾留言的asp代码，大家一起来学习吧。

<!--#include file="common/conn.asp

网站若是缺少管理的话那么留言里就会出现很多的垃圾信息，那么当出现了很多垃圾信息后我们要怎么处理呢？接下来小编就为大家介绍防止垃圾留言的asp代码，大家一起来学习吧。





<%

server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))

Response.Write(server_v1)

server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))

if mid(server_v1,8,len(server_v2))<>server_v2 then

response.write "禁止外部提交数据"

response.end

end if

if len(request.form("frmContent"))>1000 then

response.write "输入内容超过规定字符数目"

response.end

end if

if request.cookies("visitime")<>"" then

if DateDiff("s",request.cookies("visitime"),now())<60 then

response.write "请勿在1分钟内重复提交评论"

response.end

end if

end if

count="六合彩,免费电影,安利,http,www"

connts = split(connt,",")

For each glword in connts

if instr(request.form("frmcontent"),glword)<>0 then

response.write "该关键字已被过滤"

response.end

end if

next

Dim UserNam,Comments

Dim fieldlist,Valuelist

UserName = Request.Form("UserName")

Comments = Request.Form("Comments")

newsid = Request.Form("newsid")

If UserName = "" Or Comments = "" Then

Response.Write("姓名或者内容没有填写")

Response.End()

End If

fieldlist = array("UserName","Comments","newsid")

valuelist = array(UserName,Comments,newsid)

Set objRs = Server.CreateObject("ADODB.recordset")

objRs.open "Feedback",objConn,1,2

objRs.addnew fieldlist,valuelist

closeI()

response.cookies("visitime")=now()

response.Redirect(server_v1)

%>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!