asp防盗链输出图片函数
C缘网 :: ≡ ※ 电脑技术版块 ※ :: 网页技术交
第1页/共1页
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
C缘网 :: ≡ ※ 电脑技术版块 ※ :: 网页技术交
第1页/共1页
您在这个论坛的权限:
您不能在这个论坛回复主题
周五 18 四月 2014 - 21:30 由 eyke0519
» 12种有毒水果 你一天吃进多少毒? (转载)
周六 26 十月 2013 - 23:31 由 eyke0519
» 老人坚固牙齿方法 (转载)
周六 26 十月 2013 - 23:29 由 eyke0519
» 只喝水不进食 不可能活51天
周六 26 十月 2013 - 23:26 由 eyke0519
» 每天伸展十分钟15天就瘦下来 (转载)
周六 26 十月 2013 - 23:20 由 eyke0519
» [疾病预防] 警惕身体的异常感觉(转载)
周四 24 十月 2013 - 23:30 由 eyke0519
» [健康饮食] 鸡蛋煮到几分熟最营养美味 (转载)
周四 24 十月 2013 - 23:24 由 eyke0519
» 比香巴佬蛋还要好吃的蛋 (转载)
周四 24 十月 2013 - 23:16 由 eyke0519
» 酒香腐乳蹄 (转载)
周四 24 十月 2013 - 23:15 由 eyke0519