引用时就用:urlcheck就可以了
sub urlcheck
if instr(request.ServerVariables("HTTP_REFERER"),request.ServerVariables("SERVER_NAME"))=0 or request.ServerVariables("HTTP_REFERER")="" then
response.Clear
response.write("<script language=""javascript"">alert(""WARNING!\nURL WRONG!"");history.back();</script>")
response.End
end if
end sub

哦支持一下