【開源節流】--> "開源" & "節流"

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