server.CreateObject(＂ADODB.Stream＂) 方法说明



一、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