方式一：
復制代碼 代碼如下:
%
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
%>
