28,391
社区成员
发帖
与我相关
我的任务
分享
Set fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath("说明.txt")
Set txt = fs.OpenTextFile(File)
If Not txt.atEndOfStream Then '先确定还没有到达结尾的位置
while not txt.AtEndOfStream
Line = txt.ReadLine '读取一行数据
response.Write(Line)&","
Wend
end if