Question

ASP 读取txt 然后累加在写入txt

在asp中读取txt的内容 a累加 上一次读取的b 在写入txt中 怎么变成无限写入啊 -------------------------------------------------------------------------- <% dim txtfile,fso,MyFile,a,b,txt a="输入txt内容111111" txtfile=server.mappath("1.txt") Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile(txtfile,True) MyFile.WriteLine(a) Set txt = fso.OpenTextFile(txtfile,1) While Not txt.AtEndOfStream b =txt.ReadAll MyFile.WriteLine(b) Wend MyFile.Close %> -------------------------------------------------------------- 怎么变成无限写入了？ 怎么改或者加条件 等待高手！

Answer 1

<% dim txtfile,fso,MyFile,a,b,txt a="输入txt内容111111" txtfile=server.mappath("1.txt") Set fso = CreateObject("Scripting.FileSystemObject") set MyFile = fso.opentextfile(txtfile,2,true) Set txt = fso.OpenTextFile(txtfile,1) MyFile.WriteLine(a) b =txt.ReadAll MyFile.WriteLine(b) MyFile.Close %> 这样不就行了吗？结果是两行。干嘛要循环？调试你这玩意我多了一个2G的1.txt 你要刷新一次加一行，那么就要做个判断，判断这个文件是否存在，如果不存在，那么就创建，写入a，如果存在，那么就打开文件，读里面的东西，然后写入a == 你现在的代码是：创建1.txt ，然后写入a，接着把这个文件里面的东西读出来，再写入b。所以无论如何都是两行