ASP读取文件内容

Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set myfile=fso.OpenTextFile(Server.MapPath("001.txt"))
'打开001.txt
Arr=myfile.ReadAll '读取所有内容
myfile.close
set fso=nothing
Arr=Replace(Arr,"'","$$$") '过滤单引号为$$$
Arr=Replace(Arr," ","$$$") '过滤空格为$$$
Arr=Replace(Arr,chr(13)&chr(10),"$$$") '过滤回车换行为$$$
'下面跟据情况，自己添加
b=Split(Arr,"$$$")
'输出结果
For i=0 To UBound(b)
Response.Write b(i)&"<br>"
Next