Método 1:
Copie el código de la siguiente manera: <%
FunctionEsfrefer ()
Dimformurl, relurl
formUrl = lcase (TRIM (request.serverVariAbles ("http_referer"))))
Iffformurl = "" entonces
ISSOLFREFER = FALSO
Demás
relurl = "http: //" & TRIM (request.ServerVariAbles ("server_name")))
If (formurl <> relurl) entonces
ISSOLFREFER = FALSO
Demás
ISSOLFREFER = verdadero
Endif
Endif
Función final
%>
Método 2:
Copie el código de la siguiente manera: <%
FunctionEsfrefer ()
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
ISSOLFREFER = verdadero
Demás
ISSOLFREFER = FALSO
Endif
Función final
%>