如何使用ASP隐藏图片的地址和判断是否盗链

第一种方法 使用response.Redirect ：

<% 
  Dim filename 
  filename=request("file") 
  response.Redirect "/images/" & filename & ".jpg" 
%> 

 

第二种方法 使用server.createObject("ADODB.Stream")： 

<%Function DisplayPR(ImgPath)
        Response.ContentType = "image/jpeg"
  Dim Objstream
        Set objStream = server.createObject("ADODB.Stream")
        objStream.Type = 1
        objStream.Open     
        objStream.LoadFromFile ImgPath
        Response.BinaryWrite objStream.Read
  Response.Flush
        objStream.Close 
        Set objStream = Nothing 
        Response.Flush 
        Response.End
End Function

Dim filename 
img_url=request("file")
img_url=server.mappath("/piclinks/"&img_url&".jpg") 
DisplayPR(img_url)
%>

 

调用显示的方式 将图片的显示代码改为如下：

<img src=http://网站地址/showimg.asp?file=logo />

 

那么如何判断是站内的还是站外调用图片呢？(判断是否服务器端直接调用)

     其实很简单，只需要在显示图片的代码之前加入下面的代码即可【如果是站外调用图片则判断为盗链，并显示被盗链后显示的指定图片】：

 

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.Redirect "http://deerol.com/images/daolian.gif"
response.end
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.Redirect "http://deerol.com/images/daolian.gif"
response.end
end If
  
Dim filename  
filename=request("file")  
response.Redirect "/images/" & filename & ".jpg" 
%>