<% set FO=server.CreateObject("Scripting.FileSystemObject") set TF=FO.OpenTextFile( Server.mappath(".") + "\tongzhan.txt") LN=Tf.ReadLine col=0 %> <% do while LN <>"END"%> <% response.Write "" response.Write "" Response.Write Rtrim(Right(Ln,Len(Ln)-30)) Response.write "

" response.write "" LN=Tf.ReadLine col=col+1 %> <%loop%>