ASP生成文本文件不换行,怎么写?

[曾小侬]

换行是这样的:
set rs=server.createobject("adodb.recordset")
sql="select email from [registry] where email like '%@%'"
rs.open sql,Conn,1,1
dim fso,filepath,writefile

Set fso = CreateObject("Scripting.FileSystemObject")
Application.lock
filepath=Server.MapPath("maillist.txt")
Set Writefile = fso.CreateTextFile(filepath,true)
do while not rs.eof
Writefile.WriteLine rs(0)
rs.movenext
i=i+1
loop
Writefile.close
Application.unlock
set fso=nothing

这个"Writefile.WriteLine rs(0)"就是换行,有朋友知道不换行,用一个","隔开应该怎么写么?

[chinaworker]

set rs=server.createobject("adodb.recordset")
sql="select email from [registry] where email like '%@%'"
rs.open sql,Conn,1,1
dim fso,filepath,writefile

Set fso = CreateObject("Scripting.FileSystemObject")
Application.lock
filepath=Server.MapPath("maillist.txt")
Set Writefile = fso.CreateTextFile(filepath,true)
do while not rs.eof
Writefile.WriteLine rs(0)."\n"
rs.movenext
i=i+1
loop
Writefile.close
Application.unlock
set fso=nothing

[曾小侬]

Writefile.WriteLine rs(0)."\n"
老大,不但换不了,而且IIS还会报错误的
因为
Writefile.WriteLine rs(0)."\n"
后面那个点没有连接字符,比如&
而且也换不了行

[曾小侬]

能帮我想想吗？

[7teeth]

将所有的数据用&","&连接后
再Writefile.WriteLine

[曾小侬]

具体怎么操作？

[曾小侬]

我自己想到可以用
response.write rs(0)&","
代替
但是却生成不了文本文件了
老位老兄帮解决下
20分全给