asp防盗链

----------------------------------------------------
if InStr(Request.ServerVariables("HTTP_REFERER"),Request.ServerVariables("HTTP_HOST"))=0 then
Response.write("非法链接！")
Response.end
'Response.Redirect "index.htm"
end if
----------------------------------------------------
From_url = Cstr(Request.ServerVariables("HTTP_REFERER"))
Serv_url = Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(From_url,8,len(Serv_url)) <> Serv_url then
response.write "非法链接！" '防止盗链
response.end
end if
--------------------------------------------------