FSO的一个问题

[复制链接]

冰feng￡落叶

电梯直达

1^#

发表于 2010-1-17 01:22:34 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

我用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()
%>
请教各位老师，如何写才能实现换行。

收藏0

使用道具举报

亚提斯

2^#

发表于 2010-1-17 01:22:38 | 只看该作者

<%
function HTMLDecode(fString)

fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")

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()
%>
这样就可以换行了