<% Rows = 0 Filename = "d:\inetpub\Asptest\bodycon.txt" On Error Resume Next Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set InStream = FileObject.OpenTextFile(Filename, 1, False, False) If Err.Number > 0 then Count = 0 Else Count = InStream.ReadLine InStream.Close End If Count = Count + 27 Set OutStream = FileObject.CreateTextFile(Filename, True, False) OutStream.WriteLine Count OutStream.Close Buff = Right(String(Rows, "0") & Count, Rows) For i = 1 To Rows Work = "" Response.Write(Work) Next %>     <% Rows = 0 Filename = "d:\inetpub\Asptest\book.txt" On Error Resume Next Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set InStream = FileObject.OpenTextFile(Filename, 1, False, False) If Err.Number > 0 then Count = 0 Else Count = InStream.ReadLine InStream.Close End If Count = Count + 8 Set OutStream = FileObject.CreateTextFile(Filename, True, False) OutStream.WriteLine Count OutStream.Close Buff = Right(String(Rows, "0") & Count, Rows) For i = 1 To Rows Work = "" Response.Write(Work) Next %>     <% Rows = 0 Filename = "d:\inetpub\Asptest\video.txt" On Error Resume Next Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set InStream = FileObject.OpenTextFile(Filename, 1, False, False) If Err.Number > 0 then Count = 0 Else Count = InStream.ReadLine InStream.Close End If Count = Count + 7 Set OutStream = FileObject.CreateTextFile(Filename, True, False) OutStream.WriteLine Count OutStream.Close Buff = Right(String(Rows, "0") & Count, Rows) For i = 1 To Rows Work = "" Response.Write(Work) Next %>