方法1:
次のようにコードをコピーします:<%
functionfelfRefer()
dimformurl、relurl
formurl = lcase(trim(request.servervariables( "http_referer"))))
iffformurl = "" then
iselfrefer = false
それ以外
relurl = "http://"&trim(request.servervariables( "server_name")))
if(formurl <> relurl)then
iselfrefer = false
それ以外
iselfrefer = true
endif
endif
エンド機能
%>
方法2:
次のようにコードをコピーします:<%
functionfelfRefer()
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
それ以外
iselfrefer = false
endif
エンド機能
%>