亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

asp實(shí)現(xiàn)防止站外提交內(nèi)容的兩個(gè)方法

 更新時(shí)間：2007年01月09日 00:00:00   作者：  
方式一：
復(fù)制代碼 代碼如下:
<% 
Function IsSelfRefer() 
  Dim formUrl,relUrl 
  formUrl=LCase(Trim(request.ServerVariables("HTTP_REFERER")))  
  If formUrl="" Then 
    IsSelfRefer = False 
  Else 
    relUrl="http://" & Trim(Request.ServerVariables("SERVER_NAME")) 
    If (formUrl<>relUrl) Then 
      IsSelfRefer = False 
    Else 
      IsSelfRefer = True 
    End If 
  End If 
End Function 
%> 

方式二：
復(fù)制代碼 代碼如下:
<% 
Function IsSelfRefer() 
  Dim sHttp_Referer, sServer_Name 
  sHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER")) 
  sServer_Name = CStr(Request.ServerVariables("SERVER_NAME")) 
  If Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name Then 
    IsSelfRefer = True 
  Else 
    IsSelfRefer = False 
  End If 
End Function 
%>

相關(guān)文章

最新評(píng)論