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) %>

　　推荐阅读

　　在JScript中使用缓存技术的实际代码

在使用VBScript时，我们可以用Application缓存数组来实现缓存，例：程序代码：复制代码代码如下:Dim rs,arr rs.Open conn,sql,1,1 arr=rs.GetRows() Application.Lock() Application("cache")=arr Applica>>>详细阅读

本文标题：asp防止垃圾留言代码

地址：http://www.17bianji.com/kaifa2/ASP/32246.html

1/2 1