% dim fso,a,aa,s Set fso =server.CreateObject(Scripting.FileSystemObject) set a=fso.createTextFile(D:\ÍøÕ¾½¨Éè\¾²¾²\016\22.txt,2) a.writeline(this is a test page) a.writeline(welcome to the second row) a.writeline(welcome to the third row) a.writeline(welcome to the forth row) a.writeline(welcome to the fifth row) a.close set aa=fso.openTextFile(D:\ÍøÕ¾½¨Éè\¾²¾²\016\22.txt,1) for i=1 to 3 f=aa.readline next set b=fso.createTextFile(D:\ÍøÕ¾½¨Éè\¾²¾²\016\00.txt,2) b.writeline(f) %