防止垃圾留言的asp代码

2019-10-16 07:54:41来源:爱站网 阅读 ()

新老客户大回馈,云服务器低至5折

网站若是缺少管理的话那么留言里就会出现很多的垃圾信息,那么当出现了很多垃圾信息后我们要怎么处理呢?接下来小编就为大家介绍防止垃圾留言的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)
%>?
上文中小编为大家介绍了防止垃圾留言的asp代码,遇到此问题的小伙伴们可以参照小编的步骤即可解决,感谢大家的阅读,更多内容请关注爱站技术频道网站!


原文链接:https://js.aizhan.com/develop/asp/9523.html
如有疑问请与原作者联系

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:asp下常用的排序算法

下一篇:ASP中实现分页显示的七种方法