Метод 1:
Скопируйте код следующим образом: <%
FunctionIsselfRefer ()
Dimformurl, Relurl
formurl = lcase (trim (request.servervariables ("http_referer"))))))))))
Iffformurl = "" Тогда
Isselfrefer = false
Еще
RELURL = "http: //" & trim (request.servervariables ("server_name")))
If (formurl <> relurl) тогда
Isselfrefer = false
Еще
Isselfrefer = true
Эндиф
Эндиф
Конечная функция
%>
Метод 2:
Скопируйте код следующим образом: <%
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
Еще
Isselfrefer = false
Эндиф
Конечная функция
%>