主頁 > 知識(shí)庫 > asp防止垃圾留言代碼

asp防止垃圾留言代碼
熱門標(biāo)簽：滴滴地圖標(biāo)注上車點(diǎn) 電銷機(jī)器人采購 友邦互聯(lián)電銷機(jī)器人違法嗎 地圖標(biāo)注還可以做嗎 硅基電話機(jī)器人加盟 宿州防封外呼系統(tǒng)平臺(tái) 外呼系統(tǒng)怎么話費(fèi) 無營業(yè)執(zhí)照地圖標(biāo)注教學(xué) 高質(zhì)量的電銷外呼系統(tǒng)
!--#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 "禁止外部提交數(shù)據(jù)" 
 response.end 
end if 

if len(request.form("frmContent"))>1000 then 
 response.write "輸入內(nèi)容超過規(guī)定字符數(shù)目" 
 response.end 
end if 

if request.cookies("visitime")>"" then 
 if DateDiff("s",request.cookies("visitime"),now())60 then 
  response.write "請(qǐng)勿在1分鐘內(nèi)重復(fù)提交評(píng)論" 
  response.end 
 end if 
end if 


count="六合彩,免費(fèi)電影,安利,http,www" 
connts = split(connt,",") 
For each glword in connts 
 if instr(request.form("frmcontent"),glword)>0 then 
 response.write "該關(guān)鍵字已被過濾" 
 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("姓名或者內(nèi)容沒有填寫")
 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)
%> 

標(biāo)簽：宣城 雅安 新余 江門 錫林郭勒盟 七臺(tái)河 儋州 廣元

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《asp防止垃圾留言代碼》，本文關(guān)鍵詞  asp,防止,垃圾,留言,代碼,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《asp防止垃圾留言代碼》相關(guān)的同類信息！
  • 本頁收集關(guān)于asp防止垃圾留言代碼的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章