关于Adodb.Stream的写数据库数据到客户端文件的实践

    这是一个从服务器数据库直接下数据到客户端文件的例子，文件名和扩展名可以根据需要随便写。ne***emp.htm要求真实存在，其实没有什么作用，只是引导一下，否则不能对stram数据进行写操作。
    网络上流传的这方面的东西不少，但多数是copy来的，很简单的事情搞得那么复杂。真正经过实践的东东少得可怜。于是自己写了一个，虽然简单，也有些问题，但是copy下去就可以用了。有问题的朋友可以跟我联系，好一起学习。

fi***ystream=server.mappath("new") & "temp.htm"
 Set My***eam=Server.CreateObject("Ad***.Stream")

My***eam.Type = 1
My***eam.Mode=3
My***eam.Open
My***eam.LoadFromFile(filemystream)

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

    re***nse.write "姓名"
    re***nse.write "账号"
    re***nse.write "地址"
    re***nse.write "说明"
    cr=chr(13)&chr(10)
    re***nse.write(cr)

 while not rs.eof
  re***nse.write rs("name")
  re***nse.write rs("accno")
  re***nse.write rs("address")
  re***nse.write rs("note")
  re***nse.write(cr)
  RS***veNext
wend

rs.close
set rs=nothing
Co***Close
Set Conn=Nothing
My***eam.close
set Mystream=nothing