Méthode 1:
Copiez le code comme suit: <%
FunctionShelRefer ()
Dimformurl, relurl
formurl = lCase (trim (request.servervariables ("http_referer"))))
Iffformurl = "" alors
Est-celoir = faux
Autre
relurl = "http: //" & trim (request.servervariables ("server_name"))
Si (formurl <> relurl) alors
Est-celoir = faux
Autre
Est-celoir = vrai
Endire
Endire
Finition de fin
%>
Méthode 2:
Copiez le code comme suit: <%
FunctionShelRefer ()
Dimshttp_referer, sserver_name
shttp_referrer = cstr (request.servervariables ("http_referer"))
sserver_name = cstr (request.servervariables ("server_name"))
Ifmid (shttp_referer, 8, Len (sserver_name)) = sserver_namethen
Est-celoir = vrai
Autre
Est-celoir = faux
Endire
Finition de fin
%>