วิธีที่ 1:
คัดลอกรหัสดังนี้: <%
functionIselfrefer ()
Dimformurl, relurl
formurl = lcase (trim (request.serverVariables ("http_referer"))))
iffformurl = "" แล้ว
isSelfRefer = false
อื่น
relurl = "http: //" & trim (request.serverVariables ("server_name"))))
ถ้า (formurl <> relurl) จากนั้น
isSelfRefer = false
อื่น
isSelfRefer = จริง
endif
endif
endfunction
-
วิธีที่ 2:
คัดลอกรหัสดังนี้: <%
functionIselfrefer ()
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 = จริง
อื่น
isSelfRefer = false
endif
endfunction
-