功能描述:上传图片文件到指定目录后,在本文件根据URL传入的文件名加上文件所在目录根据文件完整路径。再将该文件二进制数据流写入服务页面,从而达到隐藏图片真实地址防止外部引用图片的效果。
  以下是引用片段:
  %@LANGUAGE="VBSCRIPT" CODEPAGE="936"% 
  % 
  Option Explicit 
  Const SysUrl="http://www.80Boby.com/uImg/" 
  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