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 "请勿在一分钟内反复递交评价"
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)