關於Adodb.Stream的寫入資料庫資料到客戶端檔案的實踐

這是一個從伺服器資料庫直接下資料到客戶端檔案的例子，檔案名稱和副檔名可以根據需要隨便寫。 new/temp.htm要求真實存在，其實也沒有什麼作用，只是引導一下，否則不能對stram資料進行寫入操作。
網路上流傳的這方面的東西不少，但多數是copy來的，很簡單的事情搞得那麼複雜。真正經過實踐的東東少得可憐。於是自己寫了一個，雖然簡單，也有些問題，但是copy下去就可以用了。有問題的朋友可以跟我聯繫，好一起學習。

filemystream=server.mappath("new") & "temp.htm"
Set MyStream=Server.CreateObject("Adod​​b.Stream")

MyStream.Type = 1
MyStream.Mode=3
MyStream.Open
MyStream.LoadFromFile(filemystream)

Response.ContentType="application/octet-stream"
Response.AddHeader "Content-Disposition:","attachment; filename=" & "bk.txt"
Range=Mid(Request.ServerVariables("HTTP_RANGE"),7)

response.write "姓名"
response.write "帳號"
response.write "地址"
response.write "說明"
cr=chr(13)&chr(10)
response.write(cr)

while not rs.eof
response.write rs("name")
response.write rs("accno")
response.write rs("address")
response.write rs("note")
response.write(cr)
RS.MoveNext
wend

rs.close
set rs=nothing
Conn.Close
Set Conn=Nothing
Mystream.close
set Mystream=nothing