知识大全 asp有效防止网站留言板出现垃圾留言/评论实现思路

Posted 2022-07-17 知

篇首语：知识是果树，知识的应用就是果树上结的果实。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 asp有效防止网站留言板出现垃圾留言/评论实现思路相关的知识，希望对你有一定的参考价值。

　　一在表单填写页面: <input name=intime type=hidden value="<%=Now()%>"> 在提交处理页面设置提交时间代码如下: If DateDiff("s" request form("intime ") Now()) < then response write "<SCRIPT language=JavaScript>alert( 您的留言速度太快禁止留言！ );" response write "this location vbscript:history back() ;</SCRIPT>" response end end if

　　二验证码代码如下: yz=cstr(request Form("yz")) yz =cstr(session("yz ")) if yz <>yz then Response Write("<script language=javascript>alert( 请正确输入验证码！ );</script>") response redirect("sign asp") end if

　　三判断来路代码如下: server_v =Cstr(Request ServerVariables("HTTP_REFERER")) Response Write(server_v ) server_v =Cstr(Request ServerVariables("SERVER_NAME")) Response Write(server_v ) if mid(server_v len(server_v ))<>server_v then Response Write("<script language=javascript>alert( 禁止外部提交数据！ );</script>") response end end if

　　四设置每日提交次数代码如下: 当用户每提交一次 if request cookies("postnum")="" then response cookies("postnum")= response cookies("postnum") expires=DateAdd("h" Now()) else response cookies("postnum")=request cookies("postnum")+ end if if request cookies("postnum") > then response write "<SCRIPT language=JavaScript>alert( 今天留言次数超过限制禁止留言！ );" response write "this location vbscript:history back() ;</SCRIPT>" response end end if

　　五禁止IP 代码如下: server_ip=Cstr(Request ServerVariables("REMOTE_ADDR")) if right(server_ip ) = " " then response write "禁止重叠提交 " response End() end if

　　判断该发布信息是否有可靠的来路只要是自然人发布的那么他一定是通过我们提供给用户的提交页过来的一定有一个来路如果是机器发布的就不会有来路信息判断来路禁止外部提交代码如下: dim server_v server_v server_v =Cstr(Request ServerVariables("HTTP_REFERER")) server_v =Cstr(Request ServerVariables("SERVER_NAME")) if server_v ="" or instr(server_v "/add asp")<= or mid(server_v len(server_v ))<>server_v then response write "<SCRIPT language=JavaScript>alert( 来源非法禁止外部提交！ );" response write "this location vbscript:history back() ;</SCRIPT>" response end end if

　　注意上面的/add asp就是提交页面来源页当然机器也可以伪造来路这就要结合以下方式一起对付了验证码验证码一直是对付机器垃圾留言的一个可行的方法不同的验证码有不同的对付机器留言的能力越复杂的验证码机器越难破解这需要在考虑用户的感受和对付机器之间选择一个平衡点关于验证码的使用方法我就不多说了谷歌百度里搜索下就会出现很多介绍判断来源提交的时间如果在提交页停留的时间太短比如秒一般只要是个人他打字的时间都不必这个少举例说明在用户打开页面（如add asp）的时候我们记下这个时间在form提交表单里增加一个隐藏对象如 <input name=intime type=hidden value="<%=Now()%>"> 然后当用户写好留言评论后提交到具体处理页面（如addok asp）的时候我们获取当前时间和add asp里的这个intime 时间比较如果这个时间差小于设定的时间如秒则禁止留言判断为机器代码可这样写代码如下: If DateDiff("s" request form("intime ") Now()) < then response write "<SCRIPT language=JavaScript>alert( 您的留言速度太快了吧禁止留言！ );" response write "this location vbscript:history back() ;</SCRIPT>" response end end if

　　通过以上三种方法可以屏蔽掉绝大部分的机器垃圾留言评论如果还有大量的留言的话那多半是人肉留言了但是我们又如何对付人肉留言呢？flymorn也提供方法对付方法很简单就是通过记录用户的cookies以及IP来限制同一用户发表留言的数量比如一天小时内只允许同一用户发表信息条我们可以通过以下方法实现代码如下: <% 当用户每提交一次 if request cookies("postnum")="" then response cookies("postnum")= response cookies("postnum") expires=DateAdd("h" Now()) else response cookies("postnum")=request cookies("postnum")+ end if if request cookies("postnum") > then response write "<SCRIPT language=JavaScript>alert( 今天留言次数超过限制禁止留言！ );" response write "this location vbscript:history back() ;</SCRIPT>" response end end if %>

cha138/Article/program/net/201311/14093