asp防盗链输出图片函数

asp防盗链输出图片函数
showimg(需要Persits.Jpeg组件支持).：
Sub
showimg(FileName)
Response.Clear
Dim Jpeg,temp_pic
On Error Resume
Next
Set Jpeg = Server.CreateObject("Persits.Jpeg")
If -2147221005=Err
then
'Response.write "没有这个组件，请安装!" '检查是否安装aspJpeg组件
downloadFile
FileName
Exit Sub
End If
Jpeg.Open (Server.MapPath(FileName)) '打开图片

If err.number then
'Response.write "打开图片失败,请检查路径！"
Jpeg.Open
(Server.MapPath("images/logos.gif"))
response.end
End if

temp_pic=Jpeg.Binary
Response.ContentType =
"image/*"
Response.AddHeader "Content-Disposition","filename=" &
arr_FileName(FileName)
Response.BinaryWrite temp_pic
Response.End
End
Sub