Contents of displaysource.asp

<%
const ForReading = 1, ForWriting = 2, ForAppending = 8
const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
dim strPathInfo, strPhysicalPath
strPathInfo = request.queryString( "filename")
strPhysicalPath = server.MapPath( strPathInfo)

Dim objFSO, objFile
Set objFSO = createObject( "Scripting.FileSystemObject")
Set objFile = objFSO.getFile( strPhysicalPath)
%>

<html>
<head>
<title>Contents of <%= objFile.Name %></title>
</head>
<body>
<p><input type="button" name="back" value="Return" onClick="history.back()"><br /></p>
Contents of <%= objFile.Name %>
<hr>
<font face="Courier" size="2">

<%
dim objFileTextStream
set objFileTextStream = objFile.openAsTextStream( ForReading, TristateUseDefault)

dim strLine
do While objFileTextStream.atEndOfStream <> True
strLine = server.HTMLEncode( objFileTextStream.readLine)
strLine = replace ( strLine, Chr(9), "    ")
response.write strLine
response.write "<br />" + vbCrLf
loop
objFileTextStream.Close
%>

</font>
<br />
<hr />
<p><input type="button" name="back" value="Return" onClick="history.back()"></p>
</body>
</html>