方式一：
複製代碼代碼如下:<%
FunctionIsSelfRefer()
DimformUrl,relUrl
formUrl=LCase(Trim(request.ServerVariables("HTTP_REFERER")))
IfformUrl=""Then
IsSelfRefer=False
Else
relUrl="http://"&Trim(Request.ServerVariables("SERVER_NAME"))
If(formUrl<>relUrl)Then
IsSelfRefer=False
Else
IsSelfRefer=True
EndIf
EndIf
EndFunction
%>
方式二：
複製代碼代碼如下:<%
FunctionIsSelfRefer()
DimsHttp_Referer,sServer_Name
sHttp_Referer=CStr(Request.ServerVariables("HTTP_REFERER"))
sServer_Name=CStr(Request.ServerVariables("SERVER_NAME"))
IfMid(sHttp_Referer,8,Len(sServer_Name))=sServer_NameThen
IsSelfRefer=True
Else
IsSelfRefer=False
EndIf
EndFunction
%>