一、server.CreateObject("ADODB.Stream")
set Data_5xsoft = Server.CreateObject("adodb.stream"),读二进制文件,可以运用到读取图片文件的的高度宽度、可以读取文本文件、可以下载服务器文件等。
组件为"Adodb.Stream" ,有下列方法:
1)Cancel 方法:Object.Cancel,取消执行挂起的异步 Execute 或 Open 方法的调用。
2)Close 方法:Object.Close,用于关闭对像
3)CopyTo 方法:Object.CopyTo(destStream,[CharNumber]),将对像的数据复制,destStream指向要复制的对像,CharNumber为可选参数,指要复制的字节数,不选为全部复制。
4)Flush 方法
5)LoadFromFile 方法:Object.LoadFromFile(FileName),将FileName指定的文件装入对像中,参数FileName为指定的用户名。
6)Open 方法,打开对象,Object.Open(Source,[Mode],[Options],[UserName],[Password])
其中的参数说明:
① Sourece 对像源,可不指定
② Mode 指定打开模式,可不指定,可选参数如下:
adModeRead =1
adModeReadWrite =3 adModeRecursive =4194304
adModeShareDenyNone =16
adModeShareDenyRead =4
adModeShareDenyWrite =8
adModeShareExclusive =12
adModeUnknown =0
adModeWrite =2
③ Options 指定打开的选项,可不指定,可选参数如下:
adOpenStreamAsync =1
adOpenStreamFromRecord =4
adOpenStreamUnspecified=-1
④ UserName 指定用户名,可不指定。
⑤ Password 指定用户名的密码 。
7)Read 方法:Object.Read(Numbytes),读取指定长度的二进制内容。参数说明:Numbytes指定的要读取的找度,不指定则读取全部。
8)ReadText 方法:Object.ReadText(NumChars),读取指定长度的文本。参数说明:NumChars指定的要读取的找度,不指定则读取全部。
9)SaveToFile 方法:Object.SaveToFile(FileName,[Options]),将对像的内容写到FileName指定的文件中
参数说明:FileName指定的文件
Options 存取的选项,可不指定,可选参数如下:
adSaveCreateNotExist =1
adSaveCreateOverWrite =2
10)SetEOS 方法
11)SkipLine 方法
12)Write 方法:Object.Write(Buffer),将指定的数据装入对像中。参数说明:Buffer 为指定的要写入的内容。
13)WriteText 方法:Object.Write(Data,[Options]),将指定的文本数据装入对像中。
参数说明:Data 为指定的要写入的内容。
Options 写入的选项,可不指定,可选参数如下:
adWriteChar =0
adWriteLine =1
除此之外,还有以下属性:
Charset EOS 返回对像内数据是否为空。 LineSeparator 指定换行格式,可选参数有 adCR =13 adCRLF =-1 adLF =10 Mode 指定或返加模式。 Position 指定或返加对像内数据的当前指针。 Size 返回对像内数据的大小。 State 返加对像状态是否打开。 Type 指定或返回的数据类型,可选参数为: adTypeBinary =1 adTypeText =2 |
例子:
'==================================================
'函数名:BytesToBstr
'作 用:将获取的源码转换为中文
'参 数:Body ------要转换的变量
'参 数:Cset ------要转换的类型
'==================================================
Function BytesToBstr(Body, Cset)
Dim Objstream
Set Objstream = Server.CreateObject("adodb.stream")
Objstream.Type = 1
Objstream.Mode = 3
Objstream.Open
Objstream.Write Body
Objstream.Position = 0
Objstream.Type = 2
Objstream.Charset = Cset
BytesToBstr = Objstream.ReadText
Objstream.Close
Set Objstream = Nothing
End Function