<% 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