Asp常用通用函数之将本地文件进行二进制分析，并保存到服务器的指定目录下

'函数名：TxtBinInfo
  '作 用：将本地文件进行二进制分析，并保存到服务器的指定目录下
  '参 数：Filestr ---- 被分析文件路径及文件命名
  '参 数：WebSvFile ---- 分析信息保存文件路径及文件命名
  '返回值：成功返回 True 否则 False
  '示 例： TempSj=Request.Form("Tfile")
  '示 例： If Trim(TempSj)<>"" Then CALL TxtBinInfo(TempSj,"d:\aa.txt")
  '示 例： Response.write "<form method='POST' action='test.asp'><input type='file' name='Tfile'><input type='submit' value='提交' name='B1'></form>"
  '**************************************************''''
  Public Function TxtBinInfo(ByVal Filestr,ByVal WebSvFile)
   TxtBinInfo=False
   DIM Wtempxx
   Wtempxx=""
   SET Tempsm = Server.CreateObject("ADODB.Stream")
   Tempsm.Mode=3
   Tempsm.Type=1
   Tempsm.Open
   Tempsm.LoadFromFile (Filestr)
   tempRedImg=Tempsm.Read
   for i = lenb(tempRedImg) to 1 step -1
   Wtempxx=Wtempxx& "地址号：" &i &"地址十六进制："& Hex(ascb(midb(tempRedImg,i,1))) &" 十进制："&ascb(midb(tempRedImg,i,1))&vbCrlf
   next
   Wtempxx=Wtempxx&vbCrlf&"大小："&lenb(tempRedImg)&"字节 该文件名称为：" &Filestr
   Set M_fso = CreateObject("Scripting.FileSystemObject")
   Set FnameN= M_fso.OpenTextFile(WebSvFile,2,True)
   FnameN.Write Wtempxx
   FnameN.Close
   Set M_fso = Nothing
   Tempsm.Close
   SET Tempsm=nothing
   TxtBinInfo=True
  End Function