功能描述：上传图片文件到指定目录后，在本文件根据url传入的文件名加上文件所在目录根据文件完整路径。再将该文件二进制数据流写入服务页面，从而达到隐藏图片真实地址防止外部引用图片的效果。
以下是引用片段：
<%@language="vbscript" codepage="936"%>
<%
option explicit
const sysurl="http://www.xrss.cn/newimages/"
function readbinfile(filename)
dim objstream,bin
set objstream = server.createobject("adodb.stream")
objstream.open
objstream.type = 1
objstream.loadfromfile filename
bin = objstream.read
objstream.close
readbinfile = bin
end function
function isselfrefer()
dim shttp_referer, sserver_name
sserver_name = cstr(request.servervariables("http_referer"))
if instr(sserver_name,"80boby.com")<>0 or instr(sserver_name,"freeat63.cn")<>0 then
isselfrefer = true
else
isselfrefer = false
end if
end function
if request.querystring("mark")="getpic" then
dim realurl,fso
dim ufilename:ufilename=request.querystring("x")
realurl=server.mappath("文件真实路径"&ufilename)
set fso = server.createobject("scripting.filesystemobject")
if not(fso.fileexists(realurl)) then realurl=server.mappath("logo.gif")
if not(isselfrefer) then
realurl=server.mappath("logo.gif")
end if
response.contenttype = "image/jpeg"
response.binarywrite readbinfile(realurl)
response.end
end if
%>
