繁體中文当前位置: 首页 > 图文教程 > 网络编程 > Javascript > 用ASP将SQL搜索出来的内容导出为TXT的代码
- Javascript
- javascript 汉字与拼音转换
- JavaScript使用cookie
- 大平洋汽车网左侧菜单
- 使用JS操作页面表格，元素的一些技巧
- 分享我学习js的过程 作者aircy javascript学习教程
- 张孝祥JavaScript学习阶段性总结(2)--(X)HTML学习
- 用js来生成随机彩票号码清单
- 发一个数据过滤的代码，很简单，有用的着的拿去
- 如何在标题栏显示框架内页面的标题
- js滚动条多种样式,推荐
- 再次更新！MSClass (Class Of Marquee Scroll通用不间断滚动JS封装类 Ver 1.6)
- 符合web标准的连续滚动图像的js代码
- 使用iframe作为日历的载体，不再被select和flash等控件挡住的日期输入框
- 通过脚本控制指定内容不能被选择
- 模拟弹出窗口效果，关闭层之前，不能选择后面的页内容
- 另类弹出窗口,跳过所有拦截工具
- 使用prototype.js进行异步操作
- JS模拟多线程
- 动态增加/删除文件域
- [分享]一个非常漂亮的进度滚动条
Javascript 中的 用ASP将SQL搜索出来的内容导出为TXT的代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-12 浏览: 124 ::
收藏到网摘: n/a
<!--#include file="inc/conn.asp"-->
<%
dim rs,sql,filename,fso,myfile,x
Set fso = server.CreateObject("scripting.filesystemobject")
filename = Server.MapPath("download.txt")
if fso.FileExists(filename) then
fso.DeleteFile(filename)
end if
'--创建txt文件
set myfile = fso.CreateTextFile(filename,true)
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from userfile"
rs.Open sql,conn,1,1
if rs.EOF and rs.BOF then
response.write "无数据"
else
dim strLine,responsestr
strLine=""
'--将表的列名先写入txt
For each x in rs.fields
strLine = strLine & x.name & chr(9)
Next
myfile.writeline strLine
Do while Not rs.EOF
strLine=""
for each x in rs.Fields
strLine = strLine & x.value & chr(9)
next
'--将表的数据写入txt
myfile.writeline strLine
rs.MoveNext
loop
end if
rs.Close
set rs = nothing
Response.ContentType="application/x-msdownload"
Response.Redirect "download.txt"
%>
评论 (0) All
