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