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

网络编程 2024/9/20 佚名

3 2 1

无为清净楼资源网 Design By www.qnjia.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
%>

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