asp防止垃圾留言代码

时间:2021-11-04 01:41:40
  1. <!--#include file="common/conn.asp"-->  
  2. <!--#include file="common/sub.asp"-->  
  3. <%   
  4. server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))  
  5. Response.Write(server_v1)   
  6. server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))   
  7. if mid(server_v1,8,len(server_v2))<>server_v2 then   
  8.  response.write "禁止外部提交数据"   
  9.  response.end   
  10. end if   
  11.  
  12. if len(request.form("frmContent"))>1000 then   
  13.  response.write "输入内容超过规定字符数目"   
  14.  response.end   
  15. end if   
  16.  
  17. if request.cookies("visitime")<>"" then   
  18.  if DateDiff("s",request.cookies("visitime"),now())<60 then   
  19.   response.write "请勿在1分钟内重复提交评论"   
  20.   response.end   
  21.  end if   
  22. end if   
  23.  
  24.  
  25. count="六合彩,免费电影,安利,http,www"   
  26. connts = split(connt,",")   
  27. For each glword in connts   
  28.  if instr(request.form("frmcontent"),glword)<>0 then   
  29.  response.write "该关键字已被过滤"   
  30.  response.end   
  31.  end if   
  32. next   
  33.  
  34. Dim UserNam,Comments  
  35. Dim fieldlist,Valuelist  
  36. UserName = Request.Form("UserName")  
  37. Comments = Request.Form("Comments")  
  38. newsid = Request.Form("newsid")  
  39. If UserName = "" Or Comments = "" Then   
  40.  Response.Write("姓名或者内容没有填写")  
  41.  Response.End()  
  42. End If  
  43. fieldlist = array("UserName","Comments","newsid")  
  44. valuelist = array(UserName,Comments,newsid)  
  45. Set objRs = Server.CreateObject("ADODB.recordset")  
  46. objRs.open "Feedback",objConn,1,2  
  47. objRs.addnew fieldlist,valuelist  
  48. closeI()  
  49. response.cookies("visitime")=now()   
  50. response.Redirect(server_v1)  
  51. %>