繁體中文当前位置: 首页 > 图文教程 > 网络编程 > Javascript > 用ASP将SQL搜索出来的内容导出为TXT的代码
- Javascript
- js类后台管理菜单类-MenuSwitch
- 符合标准的js表单提交的代码
- js实现的层变换效果
- 一个js随机颜色脚本（用于标签页面，也可用于任何页面）
- 轻松实现HTML和JS之间的转化的代码
- 完整显示当前日期和时间的JS代码
- 写了个XML+Tree无穷树js版
- 指定js可访问其它域名的cookie的方法
- 惰性函数定义模式 使用方法
- 从阿里妈妈发现的几个不错的表单验证函数
- js定义对象简单学习例子
- js的with语句使用方法
- js有效数字 显示指定位数
- js 生成密匙流 脚本代码
- js使用对象直接量创建对象的代码
- 百度前台js笔试题与答案
- 用JS输入email的代码,以防垃圾邮件
- 一种让页面完全把过来显示的脚本代码
- 让getElementsByName适应IE和firefox的方法
- 奇妙的js
Javascript 中的 用ASP将SQL搜索出来的内容导出为TXT的代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-12 浏览: 110 ::
收藏到网摘: 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
