如何解决从文本文件中调出记录出现丢失换行的问题？

从文本文件中调出记录出现丢失换行？

解决方法：

<％
Dim fs
Dim ts
set fs=Server.CreateObject("Scripting.FileSystemObject")
set ts=fs.CreateTextFile("C:\aspxhome.com.txt")
Do while Not RS.EOF
ts.Writelen(WU ("Xiaotao"))
RS.Movenext
Loop
ts.Close
fs.Close
％>

再用ADO来读数据库，即可解决这个问题：  

<％
Dim sContent
sContent= WU  ("Xiaotao")
sContent=Replace(sContent,Chr(13) & Chr(10),"<Br>")
Response.Write(sContent)
％>