UC知道ASP重数据库中读取数据生成TXT，在客户端中下载
来源：百度知道 编辑：UC知道 时间：2024/07/04 07:26:11
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("d:\testfile.txt", True)
tf.WriteLine("地区编码,地区名称")
Set Rs = Conn.Execute("Select * from Area")
Do While Not Rs.Eof
tf.WriteLine(Rs("AreaCode") &","&Rs("AreaName"))
Rs.MoveNext
Loop
Set Rs = Nothing
Set tf = Nothing
Set fso = Nothing
如何通过在客户端点击一个按钮，生成TXT完成下载
我需要导出TXT文件，文件格式如下：
aa,bb,cc
谢谢所有回答的人
Set tf = fso.CreateTextFile("d:\testfile.txt", True)
tf.WriteLine("地区编码,地区名称")
Set Rs = Conn.Execute("Select * from Area")
Do While Not Rs.Eof
tf.WriteLine(Rs("AreaCode") &","&Rs("AreaName"))
Rs.MoveNext
Loop
Set Rs = Nothing
Set tf = Nothing
Set fso = Nothing
如何通过在客户端点击一个按钮，生成TXT完成下载
我需要导出TXT文件，文件格式如下：
aa,bb,cc
谢谢所有回答的人
生成txt文件如果直接下载，可能出现打开这个txt文件。我采用生成doc文件可以直接下载，不用格式转换。
Set Rs = Conn.Execute("Select * from Area")
Do While Not Rs.Eof
f1(t)=Rs("AreaCode")
f2(t)=Rs("AreaName")
t=t+1
Rs.MoveNext
Loop
Set Rs = Nothing
Set tf = Nothing
for r=0 to t
k1=k1 & f1(r)
k2=k2 & f2(r)
next
k1=replace(k1,"&","&")
k1=replace(k1," "," ")
k1=replace(k1,"""," ” ")
k1=replace(k1,"<"," < ")
k1=replace(k1,">"," > ")
k2=replace(k2,"&","&")
k2=replace(k2," "," ")
k2=replace(k2,"""," ” ")
k2=replace(k2,"<"," < ")
k2=replace(k2,">"," > ")
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.Cr