網站若是缺少管理的話那么留言里就會出現很多的垃圾信息，那么當出現了很多垃圾信息后我們要怎么處理呢？接下來小編就為大家介紹防止垃圾留言的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代碼，遇到此問題的小伙伴們可以參照小編的步驟即可解決，感謝大家的閱讀，更多內容請關注錯新技術頻道網站！