Método 1:
Copie o código da seguinte forma: <%
FunctionisselfRefer ()
DiMformurl, Relurl
formurl = lcase (TRIM (request.Servervariables ("http_referer")))))
Iffformurl = "" então
Iselfrefer = false
Outro
Relurl = "http: //" & Trim (request.servervariables ("server_name"))))
If (formurl <> relurl) então
Iselfrefer = false
Outro
Iselfrefer = true
Endif
Endif
Função final
%>
Método 2:
Copie o código da seguinte forma: <%
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
Iselfrefer = true
Outro
Iselfrefer = false
Endif
Função final
%>