關於Adodb.Stream的寫數據庫數據到客戶端文件的實踐

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

filemystream=server.mappath("new") & "\temp.htm"
 Set MyStream=Server.CreateObject("Adodb.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