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

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)


内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://fkjzgwx.cn/jingyan/3802.html