功能描述:上传图片文件到指定目录后,在本文件根据URL传入的文件名加上文件所在目录根据文件完整路径。再将该文件二进制数据流写入服务页面,从而达到隐藏图片真实地址防止外部引用图片的效果。
以下是引用片段:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Const SysUrl="http://www.80Boby.com/uImg/"
Function ReadBinFile(fileName)
Dim objStream,bin
Set objStream = Se***r.CreateObject("AD***.Stream")
ob***ream.Open
ob***ream.Type = 1
ob***ream.LoadFromFile fileName
bin = ob***ream.Read
ob***ream.Close
ReadBinFile = bin
End Function
Function isSelfRefer()
Dim sHttp_Referer, sServer_Name
sServer_Name = CStr(Re***st.ServerVariables("HTTP_REFERER"))
if instr(sServer_Name,"80***y.com")<>0 or instr(sServer_Name,"fr***t63.cn")<>0 then
IsSelfRefer = True
Else
IsSelfRefer = False
End If
End Function
if re***st.QueryString("Mark")="getPic" then
Dim RealUrl,fso
Dim uF***Name:uFileName=Request.QueryString("x")
Re***rl=Server.MapPath("文件真实路径"&uFileName)
Set fso = Se***r.CreateObject("Sc***ting.FileSystemObject")
if Not(fs***ileExists(RealUrl)) then Re***rl=Server.MapPath("logo.gif")
if Not(isSelfRefer) then
Re***rl=Server.MapPath("logo.gif")
end if
re***nse.contenttype = "image/jpeg"
re***nse.BinaryWrite ReadBinFile(RealUrl)
re***nse.end
end if
%>
上一篇: ASP实现可显示和隐藏的树型菜单
下一篇: 将内容自动添加到指定文本域的JS