方法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
エンド機能
％>