Source Code for DisplaySource.asp



<!-- #include file="Counter\CounterCode.asp" -->
<!--Disabling Counter function-->
<!--<% 'WriteToFile() %>-->
<%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><%= objFile.name %> Source Code</title>
</head>

<body>

<p><b>Source Code for <% = objFile.name %></b></p>
<hr />
<pre>

<%
Dim objFileTextStream
Set objFileTextStream = objFile.OpenAsTextStream(ForReading, TristateUseDefault)

Dim strLine
Do While objFileTextStream.AtEndOfStream <> True
strLine = Server.HTMLEncode(objFileTextStream.ReadLine)
Response.Write strLine
Response.Write "<br />"
Loop
objFileTextStream.Close
%>
</pre>
<hr />
<p><b>
<a href="ASPSourceCode.asp"><--Back</a>
</b>
</p>
<div align="center" style="margin:35px 0px 20px 0px">
<script type="text/javascript"><!--
amazon_ad_tag = "httpwwwhotspr-20"; amazon_ad_width = "728"; amazon_ad_height = "90"; amazon_ad_logo = "hide"; amazon_ad_link_target = "new"; amazon_color_border = "B8CD6F"; amazon_color_background = "F1F7DA"; amazon_color_link = "334141"; amazon_color_price = "232A23"; amazon_color_logo = "080808";//--></script>
<script type="text/javascript" src="http://www.assoc-amazon.com/s/ads.js"></script>
</div>

<script type="text/javascript">
var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
</script>
<script type="text/javascript">
try {
var pageTracker = _gat._getTracker("UA-11415514-1");
pageTracker._trackPageview();
} catch(err) {}</script>

</body>
</html>

<--Back