asp实现防止站外提交内容的两个方法

251 阅读 0 评论 166 点赞

我是靠谱客的博主斯文冰淇淋，这篇文章主要介绍asp实现防止站外提交内容的两个方法，现在分享给大家，希望可以做个参考。

方式一：

复制代码代码如下:

<%  
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  
%>