dim stream
set stream = Server.CreateObject("ADODB.Stream")
stream.mode = 3 '1－读，2－写，3－读写
stream.type = 1 '1－二进制，2－文本
stream.Open

dataStream.position = index
dataStream.CopyTo stream, count '将另一 Stream 对象 dataStream 从 index 到 index+count 的数据拷贝到 stream
stream.SaveToFile filePath, 2 '将 stream 数据保存为文件，第二个参数：1－不允许覆盖，2－覆盖写入

stream.Close
set stream = nothing

常用属性和方法
mode　读写模式，可选值：1－读，2－写，3－读写，其它不常用
type　数据类型，可选值：1－二进制，2－文本
charset　编码方式，可选值：ascii，gb2312
position　数据流位置，表示数据操作从这里开始，第一个位置的值为 0，不是 1。
size　数据流大小（字节）

LoadFromFile　从文件读取数据到 Stream 对象，Stream 对象原有内容将被清空
SaveToFile　将 Stream 对象数据保存为文件，第二个参数：1－不允许覆盖，2－覆盖写入
Open　打开数据流

Close　关闭数据流
Read([长度])　从 Stream 对象中读取二进制数据，不指定长度表示全部读取
ReadText([长度])　从 Stream 对象中读取文本数据，不指定长度表示全部读取
Write(buffer)　将缓存数据写入 Stream 对象
WriteText(data, [option])　将文本数据写入 Stream 对象，第二个参数：0－字符写入，1－行写入
CopyTo(destStream, count)　将 Stream 对象的指定数据拷贝到 destStream