asp预防垃圾留言代码

asp预防垃圾留言代码：

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

<!--#include file="common/sub.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)

%> 

（编辑：银川站长网）

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