'************************************** ' for :FileView '************************************** Copyright (c) 2000 Mike Collins '************************************** ' Name: FileView ' Description:Ever get those annoying AS ' P error codes? Wish you could see the line in question? FileView.ASP allows you to see the line of code that is at fault ' By: Mike Collins (from psc cd) ' ' ' Inputs:fileview.asp?file=[filename]&li ' ne=[linenumber] ' ' Returns:Diplays the file with the sele ' cted line highlighted. ' 'Assumes:None ' 'Side Effects:None that I know if. '************************************** <%@ LANGUAGE=JSCRIPT %> <%Response.Buffer = true;%> <% Response.AddHeader( "content-type", "text/html; charset=UTF-8" ); Response.AddHeader( "cache-control", "no-cache" ); Response.Expires = 0; var fileName = new String( ""+Request( "file" ) ); var line = new Number( ""+Request( "line" ) ); var fso = Server.CreateObject( "Scripting.FileSystemObject" ); var iFile = fso.OpenTextFile( Server.MapPath( fileName ), 1, false, 0 ); var i = 1; %> <html> <head> <title>File View page</title> <style> body, td { font: 8pt Courier; } .blackbg { font-weight: bold; background: #000000; color:#FFFFFF; } </style> </head> <body> <table cellpadding="3" cellspacing="0"> <% while( !iFile.AtEndOfStream ) { Response.Write( "<tr" ); if( i == line ) { Response.Write(" bgcolor=\"#FFCCCC\""); } else if( i & 1 ) { Response.Write(" bgcolor=\"#FFFFEE\""); } Response.Write("><td align=\"right\"><b>"); Response.Write(i+"</b></td><td nowrap>"); Response.Write(Server.HTMLEncode( iFile.ReadLine() )+"</td></tr>\r\n" ); i++; } iFile.Close(); %> </table> </body> </html>