FSO的一个问题

冰feng￡落叶

我用fso写入一个文件，但在读取时不能换行，例如：
输入：
abcdefghijkl
asdfghjkl
123456
读取时却是：
abcdefghijklasdghjkl123456
代码如下：
<%
dim btext,fso,otext
btext=request.form("text")
local=server.mappath("1.doc")
set fso=server.CreateObject("scripting.filesystemobject")
set otext=fso.opentextfile(local,2,true)
otext.write btext
otext.close()
set otext=fso.opentextfile(local,1,true)
counter=0
do while not otext.atendofstream
counter=counter+1
rst=otext.readline
response.write rst
loop
otext.close()
%>
请教各位老师，如何写才能实现换行。

亚提斯

<%
function HTMLDecode(fString)

fString = replace(fString, "&gt;", ">")
fString = replace(fString, "&lt;", "<")

fString = Replace(fString, "", CHR(13))
fString = Replace(fString, "</P><P>", CHR(10) & CHR(10))
fString = Replace(fString, "<BR>", CHR(10))
HTMLDecode = fString
end function



dim btext,fso,otext
btext=HTMLDecode(request.form("text"))
local=server.mappath("1.doc")
set fso=server.CreateObject("scripting.filesystemobject")
set otext=fso.opentextfile(local,2,true)
otext.write btext
otext.close()
set otext=fso.opentextfile(local,1,true)
counter=0
do while not otext.atendofstream
counter=counter+1
rst=otext.readline
response.write rst
loop
otext.close()
%>
这样就可以换行了

ㄗs-﹎呯倓

还是不能换行，请老师讲一下为什么要替换那些东西。
菜鸟请教！

温柔乡

html换行是<br>
你的是VB脚本，生成文本换行用vbcrlf

べ.べ凡士林

谢谢楼上的老师，我的问题解决了。