防止垃圾留言的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)
%>?
上文中小编为大家介绍了防止垃圾留言的asp代码，遇到此问题的小伙伴们可以参照小编的步骤即可解决，感谢大家的阅读，更多内容请关注爱站技术频道网站！

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

标签：

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