%
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
strPathInfo = Request.QueryString("FileName")
strPhysicalPath = Server.MapPath(strPathInfo)
set objFSO = CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.GetFile(strPhysicalPath)
%>
<%= objFile.Name %> Source Code
Source code for <%= objFile.Name %>
<%
set objFileTextStream = objFile.OpenAsTextStream(ForReading, TristateUseDefault)
do while objFileTextStream.AtEndOfStream <> True
strLine = Server.HTMLEncode(objFileTextStream.ReadLine)
strLine = Replace (strLine, Chr(9), "&nbps;&nbps;&nbps;&nbps;")
Response.Write strLine
Response.Write "
" & vbCrLf
Loop
objFileTextStream.Close
%>
Return to Displayed File