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)

%>