Methode 1:
Kopieren Sie den Code wie folgt: <%
FunctionSteFrefer ()
Dimformurl, Relurl
formurl = lase (trim (request.servervariables ("http_referer")))
Iffformurl = "" dann
IsSeFerfer = falsch
Anders
relurl = "http: //" & trimm (request.servervariables ("server_name"))
If (formurl <> relurl) dann
IsSeFerfer = falsch
Anders
IsSeFerfer = true
Endif
Endif
Endfunktion
%>
Methode 2:
Kopieren Sie den Code wie folgt: <%
FunctionSteFrefer ()
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
IsSeFerfer = true
Anders
IsSeFerfer = falsch
Endif
Endfunktion
%>