asp读取.txt后，按照.txt文件里的格式原样输出到页面的问题！！
我写的代码如下：
<%
set fs=server.createobject( "scripting.filesystemobject ")
file=server.mappath( "00000001.TXT ")
set txt=fs.opentextfile(file,1,true)
do while not txt.atendofstream
line=line&txt.ReadLine& " <br> "
loop
response.Write line
%>


文本的内容如下：
6、(600107)美 尔 雅：2006年年度报告业绩快报

本公告所载湖北美尔雅股份有限公司2006年度的财务数据未经会计师事务所审计,与经审计的财务数据可能存在差异,请投资者注意投资风险。
单位:人民币元
2006年度 2005年度

主营业务收入 188,522,454.75 163,826,213.37
主营业务利润 55,998,665.39 66,862,552.93
利润总额 37,588,906.97 10,800,447.21
净利润 32,677,050.89 6,829,585.96

2006年末 2005年末

每股收益 0.091 0.019
净资产收益率(%) 7.89 1.81
每股净资产 1.15 1.05


结果输出的结果如下：
6、(600107)美 尔 雅：2006年年度报告业绩快报

本公告所载湖北美尔雅股份有限公司2006年度的财务数据未经会计师事务所审计,与经审计的财务数据可能存在差异,请投资者注意投资风险。
单位:人民币元
2006年度 2005年度

主营业务收入 188,522,454.75 163,826,213.37
主营业务利润 55,998,665.39 66,862,552.93
利润总额 37,588,906.97 10,800,447.21
净利润 32,677,050.89 6,829,585.96

2006年末 2005年末

每股收益 0.091 0.019
净资产收益率(%) 7.89 1.81
每股净资产 1.15 1.05


输出的结果和文本里的格式不一样，有什么方法能把文本里的内容按原样输出来吗？
最好能给出代码！！
谢谢啊！

[解决办法]

唉，太久没玩ASP，记性不好，下面的应当是对的了。

line=line&HTMLEncode(txt.ReadLine)& " <br> "

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

fString = Replace(fString, CHR(32), "  ")
fString = Replace(fString, CHR(9), "  ")
fString = Replace(fString, CHR(34), "" ")
fString = Replace(fString, CHR(39), "' ")
fString = Replace(fString, CHR(13), " ")
fString = Replace(fString, CHR(10) & CHR(10), " </P> <P> ")
fString = Replace(fString, CHR(10), " <BR> ")
HTMLEncode = fString
end function