<% strVirtualPath = Request("source") %> View Active Server Page Source
Active Server Page logo View ASP Source
Go Back to <%=strVirtualPath%>
<% If fValidPath(strVirtualPath) Then strFilename = Server.MapPath(strVirtualPath) Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set FileObject1 = Server.CreateObject("Scripting.FileSystemObject") Set oInStream = FileObject.OpenTextFile (strFilename, 1, FALSE) While NOT oInStream.AtEndOfStream strOutput = oInStream.ReadLine Call PrintLine(strOutput, fCheckLine(strOutput)) Response.Write("
") Wend Else Response.Write("

View Active Server Page Source-- Access Denied

") End If %>