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