Contents of bdoc.asp:
<html> <style type="text/css"> body {font-family:Courier;} </style> </head> <body bgcolor="#cccccc"> <Table border="1"> <tr><td valign='middle' bgcolor='#999999'><img src="captsm.gif"></td> <td valign='middle' bgcolor='#999999'><center><font color="#ffffff"><font face="Comic Sans MS"> <br> <b>ASP and ASPX Examples and Documentation</b> <br> </td></tr></table> <% ' '*** Program Lister ' ' Set fs=CreateObject("Scripting.FileSystemObject") lc=0 ' '***** Note the pfile value (i.e., path part of the file name) is the real subdirectory location oif the files ' pfile="c:\Faculty\Students\parks\" ' '**** Usage is: http:/........../bdoc.asp?fl=x ' ' The Querystring must pass a value (x above). ' This value is extracted from the querystring in the linebelow ' Then it must be associated with a file name in the follwoing select statement ' dfile=request.querystring("fl") select case dfile case "c" dfile="bcreate.asp" case "i" dfile="binsert.asp" case "u" dfile="bupdate.asp" case "l" dfile="blist.asp" case "lc" dfile="blistc.aspx" case "lv" dfile="blistv.aspx" case "l2v" dfile="blist2v.aspx" case "lc3" dfile="blistc3.aspx" case "lv3" dfile="blistv3.aspx" case "iv" dfile="binsertv.aspx" case "dv" dfile="bdelv.aspx" case "k" dfile="bulk.asp" case "mv" dfile="bmodv.aspx" case "d" dfile="bdelete.asp" case "1" dfile="bcb1.asp" case "2" dfile="bcb2.asp" case "3" dfile="bcb3.asp" case "al" dfile="simplea.asp" case "vl" dfile="simplev.aspx" case "x1v" dfile="bxml1v.aspx" case "x2v" dfile="bxml2v.aspx" case "tw" dfile="treewalk.asp" case "cl" dfile="simplec.aspx" case "tl" dfile="tablist.asp" case "2003c" dfile="createw.asp" case "2003t" dfile="tablist.asp" case "2003i" dfile="insert1.asp" case "2003u" dfile="update1.asp" case "2003d" dfile="delete1.asp" case "2003tc" dfile="transc.asp" case "st" dfile="template.asp" case "logc" dfile="logcreate.asp" case "logi" dfile="loginsert.asp" case "logm" dfile="logmod.asp" case "logl" dfile="loglist.asp" case "st2" dfile="template2.asp" case "st3" dfile="template3.asp" case "st4" dfile="template4.asp" case "gr" dfile="graphics_demo.aspx" case "x2" dfile="xmls2ke1.asp" case "x3" dfile="xmls2ke2.asp" case "x4" dfile="xmls2ke3.asp" case "tm" dfile="template.asp" case "fa" dfile="firstasp.asp" case "sa" dfile="secondasp.asp" case "ef" dfile="echo.asp" case "j1" dfile="glajax.htm" case "j2" dfile="glajax.asp" case "j3" dfile="glajax2.asp" case "j4" dfile="glajax_cross.htm" case "10twd03" dfile="10twd03.asp" case "s09p1" dfile="s0972midans.asp" case "s09p2" dfile="s0972midans2.asp" case "s09p3" dfile="s0972mcreate.asp" case "list2" dfile="lister.aspx" case "bu2" dfile="bupdate2.aspx" case "bipt" dfile="binsert_param_trans.aspx" case "b" dfile="bdoc.asp" '**** this program case else dfile="?" end select if dfile = "?" then response.write "<p>file name incorrect.<p>The querystring value passed to this program did not find an associated filename<p>" else kfile=pfile+dfile Set fred_file = fs.OpenTextFile(kfile) rc=0 colmax=0 Do While fred_file.AtEndOfStream <> true alice=Fred_file.readline la=len(alice) if la > colmax then colmax=la rc=rc+1 Loop fred_file.close set fred_file=nothing rc=rc+5 response.write "<p>Contents of <b> "+cstr(dfile)+"</b>:<p><textarea rows='"+cstr(rc)+"' cols='"+cstr(colmax)+"'>" Set fred_file = fs.OpenTextFile(kfile) Do While fred_file.AtEndOfStream <> true alice=Fred_file.readline lc=lc+1 'response.write "<br>" response.write chr(13) la=len(alice) for i=1 to la thischar=mid(alice,i,1) if thischar = ">" then response.write ">" else if thischar = "<" then response.write "<" else response.write thischar end if end if next Loop fred_file.close end if response.write "</textarea><p>***** end of file *** printed: "+cstr(lc)+" lines on: "+cstr(now) %> </body> </html>
***** end of file *** printed: 227 lines on: 11/23/2009 5:59:51 AM
