这是一个从服务器数据库直接下数据到客户端文件的例子,文件名和扩展名可以根据需要随便写。new/temp.htm要求真实存在,其实没有什么作用,只是引导一下,否则不能对stram数据进行写操作。网络上流传的这方面的东西不少,但多数是copy来的,很简单的事情搞得那么复杂。真正经过实践的东东少得可怜。于是自己写了一个,虽然简单,也有些问题,但是copy下去就可以用了。有问题的朋友可以跟我联系,好一起学习。
filemystream=server.mappath("new") & "\temp.htm" Set MyStream=Server.CreateObject("Adodb.Stream")
MyStream.Type = 1MyStream.Mode=3MyStream.OpenMyStream.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.closeset rs=nothingConn.CloseSet Conn=NothingMystream.closeset Mystream=nothing
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18