2個(gè)容易的檢測(cè)外部提交函數(shù)
發(fā)表時(shí)間：2024-01-28 來(lái)源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]函數(shù)ChkPost() 檢測(cè)用戶當(dāng)前所在服務(wù)器名是否存在于來(lái)源頁(yè)面 代碼如下： Function ChkPost() dim server_v1,server_v2 chkpost=False server_v1=Cstr(Request.ServerVariables("HTTP_RE...
函數(shù)ChkPost()
檢測(cè)用戶當(dāng)前所在服務(wù)器名是否存在于來(lái)源頁(yè)面
代碼如下： Function ChkPost()
dim server_v1,server_v2
chkpost=False
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
If Mid(server_v1,8,Len(server_v2))<>server_v2 Then
chkpost=False
Else
chkpost=True
End If
End function
函數(shù)PostCheck()
很簡(jiǎn)單的檢測(cè)，就是檢測(cè)提交是否為POST方式
代碼如下： Function PostCheck()
PostCheck=False
If Lcase(Request.ServerVariables("Request_Method"))="post" Then PostCheck=True
End Function （出處：Viphot）
