Method 1:
Copy the code as follows: <%
FunctionIsSelfRefer()
DimformUrl,relUrl
formUrl=LCase(Trim(request.ServerVariables("HTTP_REFERER")))
IffformUrl=""Then
IsSelfRefer=False
Else
relUrl="http://"&Trim(Request.ServerVariables("SERVER_NAME"))
If(formUrl<>relUrl)Then
IsSelfRefer=False
Else
IsSelfRefer=True
EndIf
EndIf
EndFunction
%>
Method 2:
Copy the code as follows: <%
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
%>