الطريقة 1:
انسخ الرمز على النحو التالي: <٪
FORMONISSELFREFER ()
Dimformurl ، relurl
formurl = lace (trim (request.servervariables ("http_referer")))))
iffformurl = "" ثم
isselfrefer = false
آخر
relurl = "http: //" & trim (request.servervariables ("server_name")))
إذا (formurl <> relurl) ثم
isselfrefer = false
آخر
isselfrefer = صحيح
Endif
Endif
الوظيفية
٪>
الطريقة 2:
انسخ الرمز على النحو التالي: <٪
FORMONISSELFREFER ()
dimshtp_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
الوظيفية
٪>