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

　　%>