读取文本文件 <head<tit1e>读文件</ title×</head> <body> <号 set fs=Server CreateObject("Scripting FileSystemobject") set filel fs. OpenTextFile(Server MapPath("\chapter6\test.txt"),1,t rue Do While not filel AtEndofstream Response.write filel ReadLine &"<br>l filel. close 8> </body> 广东种学技术取业学院
读取文本文件 <head><title>读文件</title></head> <body> <% set fs=Server.CreateObject("Scripting.FileSystemObject") set file1 = fs.OpenTextFile(Server.MapPath("\chapter6\test.txt"),1,t rue) Do While not file1.AtEndOfStream Response.Write file1.ReadLine & "<br>" loop file1.close %> </body>
向文件追加文本 <head<tit1e>追加文件</tit1e></head> <body> 追加数据 <号 set fs=Server CreateObject("Scripting FileSystemobject) se七fi1e1 fs. OpenTextFile(Server MapPath("\chapter6\test. txt"),8,t rue) for 1=100 to 102 fi1e1. Writeline(Cstr(i)&",追加的新行。") next filel. close 8> </body> 广东种学技术取业学院
向文件追加文本 <head><title>追加文件</title></head> <body> 追加数据… <% set fs=Server.CreateObject("Scripting.FileSystemObject") set file1 = fs.OpenTextFile(Server.MapPath("\chapter6\test.txt"),8,t rue) for i=100 to 102 file1.WriteLine(CStr(i) & ". 追加的新行。") next file1.close %> </body>