Metode 1:
Salin kode sebagai berikut: <%
FunctionSelFrefer ()
Dimformurl, reliurl
formUrl = lcase (trim (request.serverVariable ("http_referer"))))
IffformUrl = "" lalu
Isselfrefer = false
Kalau tidak
RELURL = "http: //" & trim (request.serverVariable ("server_name")))
If (formurl <> reliurl) lalu
Isselfrefer = false
Kalau tidak
Isselfrefer = true
Endif
Endif
Fungsi endfungsi
%>
Metode 2:
Salin kode sebagai berikut: <%
FunctionSelFrefer ()
DIMSHTTP_REFERER, SSERVER_NAME
shttp_referer = cstr (request.serverVariable ("http_referer")))
sserver_name = cstr (request.serverVariable ("server_name"))
Ifmid (shttp_referer, 8, len (sserver_name)) = sserver_namethen
Isselfrefer = true
Kalau tidak
Isselfrefer = false
Endif
Fungsi endfungsi
%>