'函数名：TxtBinInfo

'作 用：将本地文件进行二进制分析，并保存到服务器的指定目录下

'参 数：Filestr ---- 被分析文件路径及文件命名

'参 数：WebSvFile ---- 分析信息保存文件路径及文件命名

'返回值：成功返回 True 否则 False

'示 例： TempSj=Request.Form("Tfile")

'示 例： If Trim(TempSj)"" Then CALL TxtBinInfo(TempSj,"d:\aa.txt")

'示 例： Response.write ""

'**************************************************''''

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