方式一：

复制代码 代码如下:<%

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

%>