快活林资源网 Design By www.csstdc.com
方式一:
复制代码 代码如下:<% 
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 
%> 
方式二:
复制代码 代码如下:<% 
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 
%>
快活林资源网 Design By www.csstdc.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
快活林资源网 Design By www.csstdc.com