'**************************************
    ' Name: source.asp
    ' Description:ASP source viewer script, 
    '     allows users to view any text-based file
    '     
    ' By: Mitch Mooney
    '
    ' Inputs:type into the browser, computer
    '     name/source.asp?file=sourcecodetoview.as
    '     p
    '
    ' Returns:contents of the file
    '
    ' Assumes:assumes this example is saved 
    '     as source.asp, and it is saved into the 
    '     wwwroot.
    '
    ' Side Effects:beware, this code could b
    '     e used to view any file on your computer
    '     
    '
    'This code is copyrighted and has    ' limited warranties.Please see http://w
    '     ww.Planet-Source-Code.com/vb/scripts/Sho
    '     wCode.asp?txtCodeId=6610&lngWId=4    'for details.    '**************************************
    
    <%option explicit%>
    <%	
    Const ForReading=1
    Dim fso,ts,file,i
    file=request.querystring("file")
    Set fso = server.createobject("Scripting.FileSystemObject")
    Set ts = fso.OpenTextFile( server.mappath(file), ForReading)
    %>
    <H1><CENTER><%=file%></CENTER></H1>
    <%
    While Not ts.AtEndOfStream
    i=i+1
    response.write "<B>" & i & ". </B>" & server.htmlencode(ts.readline) & "<BR>"
    wend
    Set ts=nothing
    Set fso=nothing
    %>