asp下如何隐藏图片文件的真实路径

   很多人会问到如何隐藏一些下载文件或图片文件的真实路径，这对于那些收费下载或收费查看图片的网站非常有用，具体的实现代码如下：
<%

Function ReadBinFile(fileName)

 Set objStream = Server.CreateObject("ADO"&"DB.Str"&"eam")

 objStream.Open

 objStream.Type = 1
 '将文件读到Stream对象里

 objStream.LoadFromFile fileName 

    bin = objStream.Read

 objStream.Close

 ReadBinFile = bin

End Function

'如果您希望只让已经登录的用户才能看，可在这里加入验证用户的代码

FileName = Server.MapPath("testpic.jpg")

bin = ReadBinFile(FileName)

response.contenttype = "image/jpeg"
'将二进制方式向浏览器写数据

Response.BinaryWrite(bin)

%>