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

2010-1-31 08:07| 发布者: admin| 查看: 78| 评论: 0|原作者: 慕容紫英

'**************************************************''''
'函数ID：0029[将本地文件进行二进制分析，并保存到服务器的指定目录下]
'函数名：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

收藏分享邀请

		自动登录	找回密码
密码			注册

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

最新评论

相关分类