明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

對于Adodb.Stream的寫數(shù)據庫數(shù)據到客戶端文件的實戰(zhàn)

發(fā)表時間：2024-06-07 來源：明輝站整理相關軟件相關文章人氣：

[摘要]這是一個從服務器數(shù)據庫直接下數(shù)據到客戶端文件的例子，文件名和擴展名可以根據需要隨便寫。new/temp.htm要求真實存在，其實沒有什么作用，只是引導一下，否則不能對stram數(shù)據進行寫操作。 網絡上流傳的這方面的東西不少，但多數(shù)是copy來的，很簡單的事情搞得那么復雜。真正經過實踐的東東少...

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

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