방법 1 : 방법 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
endif
endif
최종 기능 장애
%>
방법 2 : 방법 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
endif
최종 기능 장애
%>