快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

关于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
返回类别: 教程
上一教程: 关于将数据成批导入新数据库的程序例子(ACCESS TO SQL)
下一教程: RESPONSE.FLUSH的使专心得

您可以阅读与"关于ADODB.STREAM的写数据库数据到客户端文件的实践"相关的教程:
· 关于ADODB.STREAM的写数据库数据到客户端
· 用ADODB.STREAM将以二进制方法保存在数据库中的文件保存到硬盘
· ASP中文本文件与数据库文件的数据交换(FSO)
· SQL7的IMAGE字段的文件下载到客户端
· ASP中文本文件与数据库文件的数据交换
    微笑服务 优质保证 索取样品