<!-- begin filelist.asp -->
<!-- ---------------------------------------------------------- -->
<P><FONT FACE="Andale Mono, Monotype.com, Courier New, Courier, sans-serif" SIZE=4><B>f:\inetpub\wwwreg2\includes\filelist.asp</B><BR>
<A HREF="http://www.mechreg.org/includes/filelist.asp">http://www.mechreg.org/includes/filelist.asp</A><BR></FONT>
<PRE>
    file size:  34,667 characters
 file created: &nbsp;<B>Wednesday, August 31, 2005 </B>&nbsp;10:15:10 AM
last modified: &nbsp;<B>Monday, March 29, 2004 </B>&nbsp;9:18:15 PM
</PRE>
<FORM ACTION="filelist.asp" METHOD="POST">
<INPUT TYPE="HIDDEN" NAME="fsDIR" VALUE="f:\inetpub\wwwreg2\includes\">
<TABLE BGCOLOR="#E0E0E0"><TR><TD>
<FONT TITLE="Use this text area to view or change the contents of this document. Click [SAVE] to store the updated contents to the web server." FACE="Arial, Helvetica, sans-serif"SIZE=1><B>DOCUMENT CONTENTS</B></FONT><BR>
<TEXTAREA NAME="FILEDATA" ROWS=18 COLS=70 WRAP="OFF">
&lt;%'Option Explicit
%&gt;

&lt;%
    
     'universal variables (these undo the option explicit)

     Dim action
     Dim a,b,c,i,item,j
     Dim f,fso
     Dim arr,tstr

     'security

     Dim gblPassword
     gblPassword = Null     'your password here
                   '^------ Null forces mandatory Windows login.

     'configuration

     Dim gblSiteName,gblSiteCode
     gblSiteName = Request.ServerVariables(&quot;SERVER_NAME&quot;)
     gblSiteCode = &quot;&quot;

     Dim gblNow 'server may not be local time
     gblNow = Now

     Dim gblFace,gblColor     'needs three quotes
     gblFace = &quot;&quot;&quot;Arial, Helvetica, sans-serif&quot;&quot;&quot;
     gblColor = &quot;&quot;&quot;#000066&quot;&quot;&quot;

     Dim gblRed
     gblRed = &quot;&quot;&quot;#FF0000&quot;&quot;&quot;

     Dim gblReverse
     gblReverse = &quot;&quot;&quot;#E0E0E0&quot;&quot;&quot;

     'global variables

     Dim gblTitle,gblPageText
     gblTitle = &quot; * * * TITLE NOT SET * * * &quot;
     gblPageText = &quot;&amp;nbsp;&quot;

     'global constants

     Dim gblScriptName
     gblScriptName = Request.ServerVariables(&quot;Script_Name&quot;)
     gblScriptName = Mid(gblScriptName,InstrRev(gblScriptName,&quot;/&quot;) + 1)

     Dim gblRoot
     gblRoot = Replace(Request.ServerVariables(&quot;Script_Name&quot;),&quot;/&quot; &amp; gblScriptName,&quot;&quot;)

'-----------
'subprograms
'-----------


'--
'StartHTML
Sub StartHTML
   '  response.write &quot;&lt;HTML&gt;&lt;HEAD&gt;&lt;TITLE&gt;&quot; &amp;  gblTitle &amp; &quot;&lt;/TITLE&gt;&quot; &amp; VBCRLF
   '  response.write &quot;&lt;/HEAD&gt;&quot; &amp; VBCRLF
   '  response.write &quot;&lt;BODY BGCOLOR=&quot;&quot;#FFFFFF&quot;&quot;&gt;&lt;TABLE WIDTH=&quot;&quot;100%&quot;&quot;&gt;&quot; &amp; VBCRLF
     'response.write &quot;&lt;TR&gt;&lt;TD ALIGN=&quot;&quot;RIGHT&quot;&quot; VALIGN=&quot;&quot;BOTTOM&quot;&quot;&gt;&lt;FONT COLOR=&quot; &amp; gblColor &amp; &quot; SIZE=3 FACE=&quot; &amp; gblFace &amp; &quot;&gt;&quot; &amp; gblSiteName
   '  If Request.ServerVariables(&quot;LOGON_USER&quot;)=&quot;&quot; Then
   '  Else
          'response.write &quot; (&lt;FONT SIZE=1&gt;USER:&lt;/FONT&gt; &quot; &amp; Request.ServerVariables(&quot;LOGON_USER&quot;) &amp; &quot;)&quot;
   '  End If
   '  response.write &quot;&lt;/FONT&gt;&lt;/TD&gt;&lt;/TR&gt;&quot; &amp; VBCRLF
   '  response.write &quot;&lt;TR&gt;&lt;TD ALIGN=&quot;&quot;LEFT&quot;&quot; VALIGN=&quot;&quot;BOTTOM&quot;&quot; BGCOLOR=&quot; &amp; gblColor &amp; &quot;&gt;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=4 COLOR=&quot;&quot;#FFFFFF&quot;&quot;&gt;&lt;B&gt;&amp;nbsp;&quot; &amp; gblTitle &amp; &quot;&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;&lt;/TR&gt;&quot; &amp; VBCRLF
   '  response.write &quot;&lt;TR&gt;&lt;TD ALIGN=&quot;&quot;LEFT&quot;&quot; VALIGN=&quot;&quot;TOP&quot;&quot;&gt;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=2&gt;&quot; &amp; gblPageText &amp; &quot;&lt;/FONT&gt;&lt;/TD&gt;&lt;/TR&gt;&quot; &amp; VBCRLF
   '  response.write &quot;&lt;/TABLE&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;&quot; &amp; &quot;!&quot; &amp; &quot;-- begin &quot; &amp; gblScriptName &amp; &quot; --&quot; &amp; &quot;&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;&quot; &amp; &quot;!&quot; &amp; &quot;-- ---------------------------------------------------------- --&quot; &amp; &quot;&gt;&quot; &amp; VBCRLF
End Sub 'StartHTML

'--
'EndHTML
Sub EndHTML
    response.write &quot;&lt;&quot; &amp; &quot;!&quot; &amp; &quot;-- ---------------------------------------------------------- --&quot; &amp; &quot;&gt;&quot; &amp; VBCRLF
    response.write &quot;&lt;&quot; &amp; &quot;!&quot; &amp; &quot;-- end &quot; &amp; gblScriptName &amp; &quot; --&quot; &amp; &quot;&gt;&quot; &amp; VBCRLF
	Response.Write &quot;&lt;/table&gt;&quot;   
    ' response.write &quot;&lt;HR&gt;&lt;FONT SIZE=1 FACE=&quot; &amp; gblFace &amp; &quot;&gt;&lt;FONT COLOR=&quot; &amp; gblColor &amp; &quot; SIZE=3 FACE=&quot; &amp; gblFace &amp; &quot;&gt;&quot; &amp; gblSiteName
    ' If Request.ServerVariables(&quot;LOGON_USER&quot;)=&quot;&quot; Then
    ' Else
    '      response.write &quot; (&lt;FONT SIZE=1&gt;USER:&lt;/FONT&gt; &quot; &amp; Request.ServerVariables(&quot;LOGON_USER&quot;) &amp; &quot;)&quot;
    ' End If
    ' response.write &quot;&lt;/FONT&gt;&lt;BR&gt;&quot; &amp;  FormatDateTime(gblNow,1)  &amp; &quot; &amp;nbsp; &quot; &amp;  FormatDateTime(gblNow,3)  &amp; &quot;&quot; &amp; VBCRLF
    ' response.write &quot;&lt;BR&gt;AnyPortal &quot; &amp; gblTitle &amp; &quot; &amp;copy; Copyright &quot; &amp; Year(gblNow) &amp; &quot; by &lt;A TITLE=&quot;&quot;www.anyportal.com is a project of the ANDMORE Companies -- Houston, Texas&quot;&quot; HREF=&quot;&quot;http://www.anyportal.com&quot;&quot;&gt;www.AnyPortal.com&lt;/A&gt;&lt;BR&gt;&lt;/FONT&gt;&quot; &amp; VBCRLF
    ' response.write &quot;&lt;/BODY&gt;&lt;/HTML&gt;&quot; &amp; VBCRLF
    ' response.write VBCRLF
End Sub 'EndHTML

'--
' Authorize
Function Authorize
Dim a,i,pw
     If _
     (gblPassword=&quot;&quot;) OR _
     (Request.Cookies(gblSiteCode &amp; gblScriptName)=Condensation(SStr(gblPassword))) OR _
     Request.ServerVariables(&quot;LOGON_USER&quot;)&lt;&gt;&quot;&quot; _
     Then
          Authorize = TRUE
     Else
          If Request.QueryString(&quot;w&quot;)=&quot;y&quot; AND Request.ServerVariables(&quot;LOGON_USER&quot;)=&quot;&quot; Then
               Response.Status = &quot;401 Access Denied&quot;
               StartHTML
               response.write &quot;&lt;BLOCKQUOTE&gt;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=5&gt;&quot;
               response.write &quot;&lt;FONT COLOR=&quot;&quot;##FF0000&quot;&quot;&gt;&lt;B&gt;Access denied.&lt;/B&gt;&lt;/FONT&gt;&lt;FONT SIZE=2&gt;&quot;
               response.write &quot;&lt;BR&gt;Sorry, but the username/password you supplied&lt;BR&gt; was not recognized by the &lt;A HREF=&quot;&quot;http://&quot; &amp; gblSiteName &amp; &quot;&quot;&quot;&gt;&quot; &amp; gblSiteName &amp; &quot;&lt;/A&gt; web site &quot; &amp; VBCRLF
               response.write &quot;&lt;P&gt;Contact your web site administrator for more information.&quot; &amp; VBCRLF
               response.write &quot;&lt;/FONT&gt;&lt;/FONT&gt;&lt;/BLOCKQUOTE&gt;&quot; &amp; VBCRLF
               EndHTML
               Response.End
          End If
          Authorize = FALSE
          pw = Request.Form(&quot;password&quot;)
          a = Condensation(pw)
          If pw&lt;&gt;&quot;&quot; OR Request.Form(&quot;OK&quot;)&lt;&gt;&quot;&quot; Then
               If pw = gblPassword Then
                    'cookie expires when browser is closed...
                    Response.Cookies(gblSiteCode &amp; gblScriptName) = a
                    'set a permanent one to never see this page again
                    If Request.Form(&quot;SAVE&quot;) = &quot;on&quot; Then Response.Cookies(gblSiteCode &amp; gblScriptName).Expires = gblNow+30
                    Response.Redirect gblScriptName &amp; &quot;?d=&quot;
               Else
                    gblPageText = gblPageText &amp; &quot;&lt;FONT TITLE=&quot;&quot;Sorry. That's not the password. Try again.&quot;&quot; COLOR=&quot; &amp; gblRed &amp; &quot;&gt;&lt;B&gt;Invalid password.&lt;/B&gt;&lt;/FONT&gt;&quot;
               End If
          End If
          If Request.ServerVariables(&quot;SERVER_SOFTWARE&quot;)&gt;=&quot;Microsoft-IIS/4.0&quot; Then
               StartHTML
               response.write &quot;&lt;FORM METHOD=&quot;&quot;POST&quot;&quot; ACTION=&quot;&quot;&quot; &amp; gblScriptName &amp; &quot;&quot;&quot;&gt;&lt;BLOCKQUOTE&gt;&lt;TABLE CELLPADDING=5&gt;&quot; &amp; VBCRLF
               response.write &quot;&lt;TR&gt;&quot; &amp; VBCRLF
               response.write &quot;&lt;TD&gt;&lt;FONT TITLE=&quot;&quot;The password method uses cookies to secure this site. For the correct password, contact the web site administrator.&quot;&quot; FACE=&quot; &amp; gblFace &amp; &quot; SIZE=1&gt;PASSWORD:&lt;/FONT&gt;&quot; &amp; VBCRLF
               response.write &quot;&lt;INPUT TYPE=&quot;&quot;PASSWORD&quot;&quot; SIZE=17 NAME=&quot;&quot;Password&quot;&quot;&gt;&lt;/TD&gt;&quot; &amp; VBCRLF
               response.write &quot;&lt;TD BGCOLOR=&quot; &amp; gblReverse &amp; &quot;&gt;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=1 TITLE=&quot;&quot;Check this box to save a cookie in the browser of this machine. You won't have to log-in again for the next 30 days.&quot;&quot;&gt; &amp;nbsp; SAVE COOKIE?&lt;/FONT&gt;&quot; &amp; VBCRLF
               response.write &quot;&lt;INPUT TYPE=&quot;&quot;CHECKBOX&quot;&quot; NAME=&quot;&quot;SAVE&quot;&quot;&gt;&lt;/TD&gt;&quot; &amp; VBCRLF
               response.write &quot;&lt;TD&gt;&lt;INPUT TYPE=&quot;&quot;SUBMIT&quot;&quot; NAME=&quot;&quot;OK&quot;&quot; VALUE=&quot;&quot;ENTER&quot;&quot;&gt;&lt;/TD&gt;&quot; &amp; VBCRLF
               response.write &quot;&lt;/TR&gt;&quot; &amp; VBCRLF
               response.write &quot;&lt;TR&gt;&lt;TD COLSPAN=3&gt;&quot; 
               response.write &quot;&lt;FONT FACE=&quot;&quot;Wingdings&quot;&quot; SIZE=6 COLOR=&quot;&quot;#000000&quot;&quot;&gt;&quot; &amp; chr(255) &amp; &quot;&lt;/FONT&gt;&lt;FONT TITLE=&quot;&quot;The login method uses your Windows username and password to secure this site.&quot;&quot; FACE=&quot; &amp; gblFace &amp; &quot; SIZE=3&gt; Use Windows &lt;A HREF=&quot;&quot;&quot; &amp; gblScriptName &amp; &quot;?w=y&quot;&quot;&gt;login&lt;/A&gt;.&lt;/FONT&gt;&lt;/TR&gt;&quot; &amp; VBCRLF
               response.write &quot;&lt;/TABLE&gt;&lt;/BLOCKQUOTE&gt;&lt;/FORM&gt;&quot; &amp; VBCRLF
               response.write VBCRLF
          Else
               gblPageText = &quot;Your web server identified itself as &quot;&quot;&quot; &amp; Request.ServerVariables(&quot;SERVER_SOFTWARE&quot;) &amp; &quot;&quot;&quot;.&quot;
               StartHTML
               response.write &quot;&lt;BLOCKQUOTE&gt;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=5&gt;&lt;B&gt;Sorry.&lt;/B&gt;&lt;P&gt;&quot; &amp; VBCRLF
               response.write &quot;AnyPortal &quot; &amp; gblTitle &amp; &quot; requires Microsoft NT/2000 Internet Information Server (IIS) 4.0 or greater.&quot; &amp; VBCRLF
               response.write &quot;&lt;/FONT&gt;&lt;/BLOCKQUOTE&gt;&quot; &amp; VBCRLF
          End If
          EndHTML
     End If
End Function 'Authorize

'--
' Condensation
Function Condensation(s)
     a = 0
     For i = 1 to len(s)
          a = (ASC(mid(s,i,1)) + a*2) Mod 77411
     Next 'i
     Condensation = Right(&quot;00000&quot; &amp; Cstr(a),5) &amp; Right(&quot;00000&quot; &amp; Cstr((len(s)*23)+25433),5)
End Function 'Condensation(s)

'--
' CreateImageTag
Function CreateImageTag(fn,altstr,align,border)
Dim f,fso,pn
Dim tstr,alignstr,borderstr
Dim chars,hw,width,height

     If border=&quot;&quot; Then
          borderstr = &quot; BORDER=0&quot;
     Else
          borderstr = &quot; BORDER=&quot; &amp; Cstr(border)
     End If
     If align=&quot;&quot; Then
          alignstr = &quot;&quot;
     Else
          alignstr = &quot; ALIGN=&quot;&quot;&quot; 
          Select Case UCase(left(align,1))
          Case &quot;L&quot;
               tstr = &quot;LEFT&quot;
          Case &quot;R&quot;
               tstr = &quot;RIGHT&quot;
          Case &quot;C&quot;
               tstr = &quot;CENTER&quot;
          Case Else
          End Select
          alignstr = &quot; ALIGN=&quot;&quot;&quot; &amp; tstr &amp; &quot;&quot;&quot;&quot;
     End If          

     Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
     pn = Server.MapPath(fn)
     tstr = &quot;&quot;
     Set f = fso.OpenTextFile(pn)

     Select Case UCase(Right(fn,4))
     Case &quot;.GIF&quot;,&quot;.JPG&quot;
          If NOT f.AtEndOfStream Then
               If UCase(Right(fn,4))=&quot;.GIF&quot; Then 'always works
                    chars          = f.read(10)
                    width          = asc(mid(chars,8,1))*256 + asc(mid(chars,7,1))
                    height     = asc(mid(chars,10,1))*256 + asc(mid(chars,9,1))
                    hw = &quot; WIDTH=&quot; &amp; width &amp; &quot; HEIGHT=&quot; &amp; height
               Else 'usually works
                    chars          = f.read(200)
                    height     = asc(mid(chars,164,1))*256 + asc(mid(chars,165,1))
                    width          = asc(mid(chars,166,1))*256 + asc(mid(chars,167,1))
                    If (height&gt;600) OR (height&lt;3) OR (WIDTH&lt;3) OR (WIDTH&gt;600) Then
                         'could be wrong height, width... forget 'em
                    Else
                         hw = &quot; WIDTH=&quot; &amp; width &amp; &quot; HEIGHT=&quot; &amp; height
                    End If
               End If
          End If
          tstr = &quot;&lt;IMG SRC=&quot;&quot;&quot; &amp; Replace(Replace(fn,&quot;\&quot;,&quot;/&quot;),&quot; &quot;,&quot;%20&quot;) &amp; &quot;&quot;&quot;&quot; &amp; hw &amp; borderstr &amp; alignstr &amp; &quot; ALT=&quot;&quot;&quot; &amp; altstr &amp; &quot;&quot;&quot;&gt;&quot;
     End Select
     f.Close
     Set f = Nothing
     Set fso = Nothing
     CreateImageTag = tstr
End Function 'CreateImageTag

'--
' DetailPage
Sub DetailPage
Dim chars,fstr,hw,height,width
Dim IsTextFile,pathname
Dim fsize,fdatecreated,fdatelastmodified

     pathname = fsDir &amp; fn
     If right(pathname,1) = &quot;\&quot; Then pathname = Left(pathname,len(pathname)-1)
     
     ' create if you gotta
     If fso.FileExists(pathname) Then
     Else
          Select Case UCase(Request.QueryString(&quot;T&quot;))
          Case &quot;D&quot; 'create document
               Set f = fso.CreateTextFile(pathname)
               f.Close
               Set f= Nothing
          Case &quot;F&quot; 'create folder
               Set f = fso.CreateFolder(pathname)
               pathname = pathname &amp; &quot;\&quot;
               response.redirect gblScriptName &amp; &quot;?d=&quot; &amp; URLSpace(pathname)
          End Select
     End If
     
     StartHTML
     response.write &quot;&lt;P&gt;&lt;FONT FACE=&quot;&quot;Andale Mono, Monotype.com, Courier New, Courier, sans-serif&quot;&quot; SIZE=4&gt;&lt;B&gt;&quot; &amp; pathname &amp; &quot;&lt;/B&gt;&lt;BR&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;A HREF=&quot;&quot;&quot; &amp; webbase &amp; fn &amp; &quot;&quot;&quot;&gt;&quot; &amp; webbase &amp; fn &amp; &quot;&lt;/A&gt;&lt;BR&gt;&lt;/FONT&gt;&quot; &amp; VBCRLF
     
     If fso.FileExists(pathname) Then 
          ' fetch Window's file information 
          Set f = fso.GetFile(pathname) 
          fsize = f.size 
          fdatecreated = f.datecreated 
          fdatelastmodified = f.datelastmodified
          response.write &quot;&lt;PRE&gt;&quot; &amp; VBCRLF
          response.write &quot;    file size:  &quot; &amp; FormatNumber(fsize,0) &amp; &quot; characters&quot; &amp; VBCRLF
          response.write &quot; file created: &amp;nbsp;&lt;B&gt;&quot; &amp; FormatDateTime(fdatecreated,1) &amp; &quot; &lt;/B&gt;&amp;nbsp;&quot; &amp; FormatDateTime(fdatecreated,3) &amp; VBCRLF
          response.write &quot;last modified: &amp;nbsp;&lt;B&gt;&quot; &amp; FormatDateTime(fdatelastmodified,1) &amp; &quot; &lt;/B&gt;&amp;nbsp;&quot; &amp; FormatDateTime(fdatelastmodified,3) &amp; VBCRLF
          response.write &quot;&lt;/PRE&gt;&quot; &amp; VBCRLF
          Set f = Nothing
     End If
     
     response.write &quot;&lt;FORM ACTION=&quot;&quot;&quot; &amp; gblScriptName &amp; &quot;&quot;&quot; METHOD=&quot;&quot;POST&quot;&quot;&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;INPUT TYPE=&quot;&quot;HIDDEN&quot;&quot; NAME=&quot;&quot;fsDIR&quot;&quot; VALUE=&quot;&quot;&quot; &amp; fsDir &amp; &quot;&quot;&quot;&gt;&quot; &amp; VBCRLF
     
     IsTextFile = FALSE
     Select Case UCase(Right(fn,4))
     Case &quot;.GIF&quot;,&quot;.JPG&quot;
          tstr = CreateImageTag(basedir &amp; fn,fn &amp; &quot; (&quot; &amp; FormatNumber(Int(fsize/1024*10+.05)/10,1) &amp; &quot; Kb)&quot;,&quot;&quot;,0)
          response.write &quot;&lt;FONT FACE=&quot;&quot;Andale Mono, Monotype.com, Courier New, Courier, sans-serif&quot;&quot; SIZE=2&gt;&quot;
          response.write Server.HTMLEncode(tstr) &amp; &quot;&lt;/FONT&gt;&lt;BR&gt;&lt;BR&gt;&quot; &amp; tstr &amp; &quot;&lt;P&gt;&quot; &amp; VBCRLF
     Case &quot;.URL&quot;
          Set f = fso.OpenTextFile(pathname)
          If NOT f.AtEndOfStream Then tstr = f.readall
          f.Close
          Set f = Nothing
          response.write &quot;&lt;FONT COLOR=&quot;&quot;#3333FF&quot;&quot; FACE=&quot;&quot;Andale Mono, Monotype.com, Courier New, Courier, sans-serif&quot;&quot; SIZE=2&gt;&quot; &amp; VBCRLF
          response.write Replace(Server.HTMLEncode(tstr),VBCRLF,VBCRLF &amp; &quot;&lt;BR&gt;&quot;)
          response.write &quot;&lt;/FONT&gt;&quot; &amp; VBCRLF
     Case &quot;.TXT&quot;,&quot;.ASA&quot;,&quot;.ASP&quot;,&quot;.HTM&quot;,&quot;HTML&quot;,&quot;.CFM&quot;,&quot;PHP3&quot;,&quot;.XML&quot;
          'read the file
          Set f = fso.OpenTextFile(pathname)
          If NOT f.AtEndOfStream Then fstr = f.readall
          f.Close
          Set f = Nothing
          Set fso = Nothing
          IsTextFile = TRUE
          response.write &quot;&lt;TABLE BGCOLOR=&quot; &amp; gblReverse &amp; &quot;&gt;&lt;TR&gt;&lt;TD&gt;&quot; &amp; VBCRLF
          response.write &quot;&lt;FONT TITLE=&quot;&quot;Use this text area to view or change the contents of this document. Click [SAVE] to store the updated contents to the web server.&quot;&quot; FACE=&quot; &amp; gblFace &amp; &quot;SIZE=1&gt;&lt;B&gt;DOCUMENT CONTENTS&lt;/B&gt;&lt;/FONT&gt;&lt;BR&gt;&quot; &amp; VBCRLF
          response.write &quot;&lt;TEXTAREA NAME=&quot;&quot;FILEDATA&quot;&quot; ROWS=18 COLS=70 WRAP=&quot;&quot;OFF&quot;&quot;&gt;&quot; &amp; Server.HTMLEncode(fstr) &amp; &quot;&lt;/TEXTAREA&gt;&quot; &amp; VBCRLF
          response.write &quot;&lt;/TD&gt;&lt;/TR&gt;&lt;/TABLE&gt;&quot; &amp; VBCRLF
     End Select
     response.write VBCRLF &amp; &quot;&lt;BR&gt;&lt;BR&gt;&quot; &amp; VBCRLF
     If IsTextFile Then
          response.write &quot;&lt;INPUT TYPE=&quot;&quot;TEXT&quot;&quot; SIZE=48 MAXLENGTH=255 NAME=&quot;&quot;PATHNAME&quot;&quot; VALUE=&quot;&quot;&quot; &amp; pathname &amp; &quot;&quot;&quot;&gt;&quot; &amp; VBCRLF
          response.write &quot;&lt;INPUT TYPE=&quot;&quot;RESET&quot;&quot; VALUE=&quot;&quot;RESET&quot;&quot;&gt; &lt;INPUT TYPE=&quot;&quot;SUBMIT&quot;&quot; NAME=&quot;&quot;POSTACTION&quot;&quot; VALUE=&quot;&quot;SAVE&quot;&quot;&gt;&quot; &amp; VBCRLF
          response.write &quot;&lt;INPUT TYPE=&quot;&quot;SUBMIT&quot;&quot; NAME=&quot;&quot;POSTACTION&quot;&quot; VALUE=&quot;&quot;CANCEL&quot;&quot;&gt;&lt;BR&gt;&quot; &amp; VBCRLF
     Else
          response.write &quot;&lt;INPUT TYPE=&quot;&quot;HIDDEN&quot;&quot; NAME=&quot;&quot;PATHNAME&quot;&quot; VALUE=&quot;&quot;&quot; &amp; pathname &amp; &quot;&quot;&quot;&gt;&quot; &amp; VBCRLF
          response.write &quot;&lt;INPUT TYPE=&quot;&quot;SUBMIT&quot;&quot; NAME=&quot;&quot;POSTACTION&quot;&quot; VALUE=&quot;&quot;BACK&quot;&quot;&gt;&lt;BR&gt;&quot; &amp; VBCRLF
     End If
     response.write &quot;&lt;HR&gt;&lt;FONT TITLE=&quot;&quot;Check OK and click [DELETE] to delete this document from the web server. (Cannot be undone.)&quot;&quot; FACE=&quot; &amp; gblFace &amp; &quot;SIZE=1&gt;&lt;B&gt;OK TO DELETE &quot;&quot;&quot; &amp; UCase(fn) &amp; &quot;&quot;&quot;? &lt;/B&gt;&lt;/FONT&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;INPUT TYPE=&quot;&quot;CHECKBOX&quot;&quot; NAME=&quot;&quot;DELETEOK&quot;&quot;&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;INPUT TYPE=&quot;&quot;SUBMIT&quot;&quot; NAME=&quot;&quot;POSTACTION&quot;&quot; VALUE=&quot;&quot;DELETE&quot;&quot;&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;/FORM&gt;&quot; &amp; VBCRLF
     EndHTML
End Sub 'DetailPage

'--
' DisplayCode
Sub DisplayCode
Dim fn,fso,f
Dim code,tstr
Dim a,arr,i

     fn = Request.QueryString(&quot;c&quot;)
     response.write &quot;&lt;HTML&gt;&lt;HEAD&gt;&lt;TITLE&gt;&quot; &amp; fn &amp; &quot;&lt;/TITLE&gt;&lt;/HEAD&gt;&lt;BODY&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;STYLE&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;!&quot; &amp; &quot;--&quot; &amp; VBCRLF
     response.write &quot;SPAN{color:Navy;background-color:Yellow}&quot; &amp; VBCRLF
     response.write &quot;--&quot; &amp; &quot;&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;/STYLE&gt;&quot; &amp; VBCRLF

     If Instr(fn,fsroot)=1 Then
          Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
          Set f = fso.OpenTextFile(fn, 1, 0, 0)
          If f.AtEndOfStream Then
               code = &quot;&quot;
          Else
               code = f.ReadAll                         'totally unconverted
          End If
          'quickly format code for readability...
          ' could be smarter, but it sure is simple!
          tstr = Server.HTMLEncode(code)
          tstr = Replace(tstr,chr(9),&quot;   &quot;)
          tstr = Replace(tstr,&quot;  &quot;,&quot;&amp;nbsp;&amp;nbsp;&quot;)
          tstr = Replace(tstr,&quot;&amp;lt;%&quot;,&quot;&lt;SPAN&gt;&amp;lt;&quot; &amp; &quot;%&lt;/SPAN&gt;&lt;FONT COLOR=&quot;&quot;#000000&quot;&quot;&gt;&quot;)
          tstr = Replace(tstr,&quot;%&amp;gt;&quot;,&quot;&lt;SPAN&gt;%&quot; &amp; &quot;&lt;/FONT&gt;&amp;gt;&lt;/SPAN&gt;&quot;)
          tstr = Replace(tstr,&quot;&amp;lt;!--&quot;,&quot;&lt;I&gt;&lt;FONT COLOR=&quot;&quot;#CC0033&quot;&quot;&gt;&amp;lt;!--&quot;)
          tstr = Replace(tstr,&quot;--&amp;gt;&quot;,&quot;--&amp;gt;&lt;/I&gt;&lt;/FONT&gt;&quot;)

          response.write &quot;&lt;TABLE WIDTH=&quot;&quot;100%&quot;&quot; BGCOLOR=&quot; &amp; gblColor &amp; &quot;&gt;&lt;TR&gt;&lt;TD&gt;&lt;FONT COLOR=&quot;&quot;#FFFFFF&quot;&quot; FACE=&quot;&quot;Andale Mono, Monotype.com, Courier New, Courier, sans-serif&quot;&quot; SIZE=5&gt;&lt;B&gt;&quot; &amp; VBCRLF
          response.write &quot;&amp;nbsp;&quot; &amp; fn &amp; &quot;&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;&lt;/TR&gt;&lt;/TABLE&gt;&quot; &amp; VBCRLF

          response.write &quot;&lt;FONT COLOR=&quot;&quot;#0000FF&quot;&quot; FACE=&quot;&quot;Andale Mono, Monotype.com, Courier New, Courier, sans-serif&quot;&quot; SIZE=2&gt;&quot; &amp; VBCRLF
          response.write &quot;&lt;!&quot; &amp; &quot;-- code listing --&quot; &amp; &quot;&gt;&quot; &amp; VBCRLF &amp; VBCRLF
          arr = Split(Replace(tstr,chr(13),&quot;&quot;),chr(10)) 'handle unix/linux files, too
          For i = 0 to UBound(arr)
               'add line numbers and output
               response.write &quot;&lt;BR&gt;&lt;FONT COLOR=&quot;&quot;#008000&quot;&quot;&gt;&quot; &amp; Right(&quot;000&quot; &amp; i+1,4) &amp; &quot;:&lt;/FONT&gt; &quot;
               tstr = arr(i)
               If left(Replace(Replace(tstr,&quot;&amp;nbsp;&quot;,&quot;&quot;),&quot; &quot; ,&quot;&quot;),1) = &quot;'&quot; Then
                    response.write &quot;&lt;FONT COLOR=&quot;&quot;#CC0033&quot;&quot;&gt;&lt;I&gt;&quot; &amp; tstr &amp; &quot;&lt;/I&gt;&lt;/FONT&gt;&quot; &amp; VBCRLF
               Else
                    response.write tstr &amp; VBCRLF
               End If
          Next 'i
          response.write VBCRLF &amp; &quot;&lt;!&quot; &amp; &quot;-- end of code listing --&quot; &amp; &quot;&gt;&quot; &amp; VBCRLF
          response.write &quot;&lt;/FONT&gt;&quot; &amp; VBCRLF 
     Else
          response.write &quot;&lt;P&gt;&lt;FONT COLOR=&quot;&quot;#CC0033&quot;&quot; SIZE=3&gt;Cannot access &quot; &amp; fn &amp; &quot;&lt;/FONT&gt;&quot; &amp; VBCRLF
     End If
     response.write &quot;&lt;HR&gt;&lt;/BODY&gt;&lt;/HTML&gt;&quot;
End Sub 'DisplayCode

'--
' DisplayFileName
Sub DisplayFileName(dirfile,fhandle)
Dim newgif,linktarget
Dim fsize

     response.write &quot;&lt;TR&gt;&quot; &amp; VBCRLF
     If dirFile=&quot;DIR&quot;  Then
			
          linktarget = &quot;&lt;A HREF=&quot;&quot;&quot; &amp; gblScriptName &amp; &quot;?d=&quot; &amp; URLSpace(fhandle) &amp; &quot;\&quot;&quot; TITLE=&quot;&quot;Click here to move down a level and list the documents in this folder.&quot;&quot;&gt;&quot;
          tstr = &quot;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=2&gt;&quot; &amp; linktarget &amp; LCase(fhandle.name) &amp; &quot;&lt;/A&gt;&lt;/FONT&gt;&quot; 
          if instr(1,fhandle,&quot;_&quot;)&lt;1 then
			response.write &quot;&lt;TD VALIGN=&quot;&quot;TOP&quot;&quot; ALIGN=&quot;&quot;RIGHT&quot;&quot;&gt;&quot; &amp; MockIcon(&quot;fldr&quot;) &amp; &quot;&lt;/TD&gt;&quot; &amp; VBCRLF
			response.write &quot;&lt;TD COLSPAN=3 VALIGN=&quot;&quot;TOP&quot;&quot; BGCOLOR=&quot; &amp; gblReverse &amp; &quot;&gt;&quot; &amp; Tstr &amp; &quot;&lt;/TD&gt;&quot; &amp; VBCRLF
          end if
     Else
		
          newgif = &quot;&quot;
          If fhandle.datelastmodified+14&gt;gblNow Then newgif = MockIcon(&quot;newicon&quot;)
          b = &quot;&quot;
          If len(fhandle.name)&gt;4 Then b = Ucase(Right(fhandle.name,4))
          If Left(b,1) = &quot;.&quot; Then b = Right(b,3)
          Select Case b
          Case &quot;ASP&quot;,&quot;HTM&quot;,&quot;HTML&quot;,&quot;ASA&quot;,&quot;TXT&quot;,&quot;CFM&quot;,&quot;PHP3&quot;
               newgif = newgif &amp; &quot; &lt;A TARGET=&quot;&quot;_blank&quot;&quot; HREF=&quot;&quot;&quot; &amp; gblScriptName &amp; &quot;?c=&quot; &amp; URLSpace(fsDir &amp; fhandle.name) &amp;  &quot;&quot;&quot; TITLE=&quot;&quot;Click here to list the contents of this document.&quot;&quot; STYLE=&quot;&quot;{text-decoration:none}&quot;&quot;&gt;&quot; &amp; MockIcon(&quot;view&quot;) &amp; &quot;&lt;/A&gt;&quot;
               tstr = webbase &amp; replace(fhandle.name,&quot; &quot;,&quot;%20&quot;)
          Case &quot;URL&quot;
               tstr = ShortCutURL
          Case Else
               tstr = webbase &amp; replace(fhandle.name,&quot; &quot;,&quot;%20&quot;)
          End Select
          If fhandle.size&lt;10240 Then
               If fhandle.size=0 Then
                    fsize = &quot;0&quot;
               Else
                    fsize = FormatNumber(fhandle.size,0,0,-2)
               End If
          Else
               fsize = FormatNumber((fhandle.size+1023)/1024,0,0,-2) &amp; &quot;K&quot;
          End If
          
          If (ucase(fhandle.name) &lt;&gt; &quot;SHOW.ASP&quot; and lcase(fhandle.name) &lt;&gt; &quot;_vti_inf.html&quot; AND instr(1,fhandle,&quot;.asa&quot;)&lt;1 AND instr(1,fhandle,&quot;.dll&quot;)&lt;1   and instr(1,fhandle,&quot;.xml&quot;)&lt;1 AND ucase(fhandle.name) &lt;&gt; &quot;UPLOADSEND.HTM&quot; AND ucase(fhandle.name) &lt;&gt; &quot;UPLOADRECEIVE.ASP&quot;) and lcase(fhandle.name)&lt;&gt;&quot;postinfo.html&quot; and lcase(fhandle.name)&lt;&gt;&quot;logerror.asp&quot; and lcase(fhandle.name)&lt;&gt;&quot;test.asp&quot; and lcase(fhandle.name)&lt;&gt;&quot;showmetheerrors.asp&quot; then
          tstr = &quot;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=2&gt;&lt;A HREF=&quot;&quot;&quot; &amp; tstr &amp; &quot;&quot;&quot; TITLE=&quot;&quot;Click here to link to this document.&quot;&quot;&gt;&quot; &amp; LCase(fhandle.name) &amp; &quot;&lt;/A&gt;&lt;/FONT&gt;&quot; &amp; newgif
          response.write &quot;&lt;TD VALIGN=&quot;&quot;TOP&quot;&quot; ALIGN=&quot;&quot;RIGHT&quot;&quot;&gt;&lt;A HREF=&quot;&quot;&quot; &amp; gblScriptName &amp; &quot;?f=&quot; &amp; URLSpace(fhandle.name) &amp; &quot;&amp;d=&quot; &amp; URLSpace(fsDir) &amp; &quot;&quot;&quot; TITLE=&quot;&quot;Click here to view more details about this document.&quot;&quot; STYLE=&quot;&quot;{text-decoration:none}&quot;&quot;&gt;&quot; &amp; MockIcon(b) &amp; &quot;&lt;/A&gt;&lt;/TD&gt;&quot; &amp; VBCRLF
          response.write &quot;&lt;TD VALIGN=&quot;&quot;TOP&quot;&quot; BGCOLOR=&quot; &amp; gblReverse &amp; &quot;&gt;&quot; &amp; Tstr &amp; &quot;&lt;/TD&gt;&quot; &amp; VBCRLF
          response.write &quot;&lt;TD VALIGN=&quot;&quot;TOP&quot;&quot; BGCOLOR=&quot; &amp; gblReverse &amp; &quot;&gt;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=1&gt;&quot; &amp; FormatDateTime(fhandle.datelastmodified,0) &amp; &quot;&lt;/FONT&gt;&lt;/TD&gt;&quot; &amp; VBCRLF
          response.write &quot;&lt;TD VALIGN=&quot;&quot;TOP&quot;&quot; BGCOLOR=&quot; &amp; gblReverse &amp; &quot;&gt;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=1&gt;&quot; &amp; fsize &amp; &quot; bytes&lt;/FONT&gt;&lt;/TD&gt;&quot; &amp; VBCRLF
          End if
     End If 
     response.write &quot;&lt;/TR&gt;&quot; &amp; VBCRLF

End Sub 'DisplayFileName

'--
' MockIcon (icon emulator)
Function MockIcon(txt)
Dim tstr,d

     'Sorry, mac/linux users.
     tstr = &quot;&lt;FONT FACE=&quot;&quot;WingDings&quot;&quot; SIZE=4 COLOR=&quot; &amp; gblRed &amp; &quot;&gt;&quot;
     Select Case Lcase(txt)
     Case &quot;bmp&quot;,&quot;gif&quot;,&quot;jpg&quot;,&quot;tif&quot;,&quot;jpeg&quot;,&quot;tiff&quot;
          d = 176
     Case &quot;doc&quot;
          d = 50
     Case &quot;exe&quot;,&quot;bat&quot;,&quot;bas&quot;,&quot;c&quot;,&quot;src&quot;
          d = 255
     Case &quot;file&quot;
          d = 51
     Case &quot;fldr&quot;
          d = 48
     Case &quot;htm&quot;,&quot;html&quot;,&quot;asa&quot;,&quot;asp&quot;,&quot;cfm&quot;,&quot;php3&quot;
          d = 182
     Case &quot;pdf&quot;
          d = 38
     Case &quot;txt&quot;,&quot;ini&quot;
          d = 52
     Case &quot;xls&quot;
          d = 252
     Case &quot;zip&quot;,&quot;arc&quot;,&quot;sit&quot;
          d = 59
     Case &quot;newicon&quot;
          tstr = &quot;&lt;FONT TITLE=&quot;&quot;This document has been modified sometime during the last 14 days.&quot;&quot; FACE=&quot;&quot;WingDings&quot;&quot; SIZE=4 COLOR=&quot; &amp; gblRed &amp; &quot;&gt;&quot;
          d = 171
     Case &quot;view&quot;
          d = 52
     Case Else
          d = 51
     End Select
     tstr = tstr &amp; Chr(d) &amp; &quot;&lt;/FONT&gt;&quot;
     MockIcon = tstr
End Function 'mockicon

'--
' Navigate
Sub Navigate
Dim emptyDir

     emptyDir = TRUE
     response.write &quot;&lt;TABLE BORDER=0 CELLPADDING=2 CELLSPACING=3 WIDTH=&quot;&quot;100%&quot;&quot;&gt;&quot;

     ' get the directory of file names
     If toplevel Then
          parent = &quot;&quot;
     Else
          parent = fso.GetParentFolderName(fsDir) &amp; &quot;\&quot;
          response.write &quot;&lt;TR&gt;&lt;TD VALIGN=&quot;&quot;TOP&quot;&quot; ALIGN=&quot;&quot;RIGHT&quot;&quot;&gt;&lt;FONT FACE=&quot;&quot;WingDings&quot;&quot; SIZE=4 COLOR=&quot; &amp; gblRed &amp; &quot;&gt;&quot; &amp; chr(199) &amp; &quot;&lt;/FONT&gt;&lt;/TD&gt;&quot; &amp; VBCRLF
          'response.write &quot;&lt;TD COLSPAN=3&gt;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=1&gt;&lt;B&gt;&lt;A TITLE=&quot;&quot;Click here to move up a level to the parent folder.&quot;&quot; HREF=&quot;&quot;&quot; &amp; gblScriptName &amp; &quot;?d=&quot; &amp; URLSpace(parent) &amp; &quot;&quot;&quot;&gt;&quot; &amp; UCASE(fso.GetParentfolderName(fsDir) &amp; &quot;\&quot;) &amp; &quot;&lt;/A&gt;&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;&lt;/TR&gt;&quot; &amp; VBCRLF
          response.write &quot;&lt;TD COLSPAN=3&gt;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=1 &gt;&lt;B&gt;&lt;A TITLE=&quot;&quot;Click here to move up a level to the parent folder.&quot;&quot; HREF=&quot;&quot;&quot; &amp; gblScriptName &amp; &quot;?d=&quot; &amp; URLSpace(parent) &amp; &quot;&quot;&quot;&gt;Click here to move up a level to the parent folder.&lt;/A&gt;&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;&lt;/TR&gt;&quot; &amp; VBCRLF
     End If
     Set f = fso.GetFolder(fsDir)
     Set FileList = f.subFolders
     a = 0
     For Each fn in FileList
          emptyDir = FALSE
          If a = 0 Then
               a = 1
               response.write &quot;&lt;TR&gt;&lt;TD VALIGN=&quot;&quot;TOP&quot;&quot;&gt;&amp;nbsp;&lt;/TD&gt;&quot; &amp; VBCRLF
               'response.write &quot;&lt;TD COLSPAN=3&gt;&lt;HR&gt;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=4&gt;&lt;B&gt;Additional Folders&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;&quot; &amp; VBCRLF
               response.write &quot;&lt;/TR&gt;&quot; &amp; VBCRLF
               response.write &quot;&lt;TR&gt;&lt;TD VALIGN=&quot;&quot;TOP&quot;&quot;&gt;&amp;nbsp;&lt;/TD&gt;&quot; &amp; VBCRLF
               response.write &quot;&lt;TD COLSPAN=3 VALIGN=&quot;&quot;BOTTOM&quot;&quot;&gt;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; COLOR=&quot; &amp; gblRed &amp; &quot; SIZE=1&gt;&lt;B&gt;FOLDER NAME&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;&quot; &amp; VBCRLF
               response.write &quot;&lt;/TR&gt;&quot; &amp; VBCRLF
          End If
          DisplayFileName &quot;DIR&quot;,fn
     
     Next 'fn

     response.write &quot;&lt;TR&gt;&lt;TD VALIGN=&quot;&quot;TOP&quot;&quot;&gt;&amp;nbsp;&lt;/TD&gt;&quot; &amp; VBCRLF
     
     'response.write &quot;&lt;TD COLSPAN=3&gt;&lt;HR&gt;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=4&gt;&lt;B&gt;&quot; &amp; fsDir &amp; &quot;&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;&quot; &amp; VBCRLF
     'response.write &quot;&lt;/TR&gt;&quot; &amp; VBCRLF
     Response.Write &quot;&lt;TD COLSPAN=3&gt;&lt;HR&gt;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=4&gt;&lt;B&gt;Documents&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;&quot; &amp; VBCRLF
     
     response.write &quot;&lt;TR&gt;&lt;TD VALIGN=&quot;&quot;TOP&quot;&quot;&gt;&amp;nbsp;&lt;/TD&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;TD VALIGN=&quot;&quot;BOTTOM&quot;&quot;&gt;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; COLOR=&quot; &amp; gblRed &amp; &quot; SIZE=1&gt;&lt;B&gt;DOCUMENT NAME&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;TD VALIGN=&quot;&quot;BOTTOM&quot;&quot;&gt;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; COLOR=&quot; &amp; gblRed &amp; &quot; SIZE=1&gt;&lt;B&gt;LAST UPDATE&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;TD VALIGN=&quot;&quot;BOTTOM&quot;&quot;&gt;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; COLOR=&quot; &amp; gblRed &amp; &quot; SIZE=1&gt;&lt;B&gt;FILE SIZE&lt;/B&gt;&lt;/FONT&gt;&lt;/TD&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;/TR&gt;&quot; &amp; VBCRLF
     response.write &quot;&quot; &amp; VBCRLF

     Set filelist = f.Files
     For Each fn in filelist
          emptyDir = FALSE
          DisplayFileName &quot;FILE&quot;,fn
               
     Next 'fn

     If emptyDir Then
          response.write &quot;  &lt;FORM METHOD=&quot;&quot;POST&quot;&quot; ACTION=&quot;&quot;&quot; &amp; gblScriptName &amp; &quot;&quot;&quot;&gt;&quot; &amp; VBCRLF
          response.write &quot;  &lt;TR&gt;&lt;TD&gt;&lt;/TD&gt;&lt;TD COLSPAN=3 VALIGN=&quot;&quot;BOTTOM&quot;&quot; BGCOLOR=&quot; &amp; gblReverse &amp; &quot;&gt;&quot; &amp; VBCRLF
          response.write &quot;  &lt;INPUT TYPE=&quot;&quot;HIDDEN&quot;&quot; NAME=&quot;&quot;PARENT&quot;&quot; VALUE=&quot;&quot;&quot; &amp; parent &amp; &quot;&quot;&quot;&gt;&quot; &amp; VBCRLF
          response.write &quot;  &lt;INPUT TYPE=&quot;&quot;HIDDEN&quot;&quot; NAME=&quot;&quot;PATHNAME&quot;&quot; VALUE=&quot;&quot;&quot; &amp; fsDir &amp; &quot;&quot;&quot;&gt;&quot; &amp; VBCRLF
          response.write &quot;  &lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=1&gt; &amp;nbsp; Empty Folder &lt;/FONT&gt;&quot; &amp; VBCRLF
          'response.write &quot;  &lt;INPUT TYPE=&quot;&quot;CHECKBOX&quot;&quot; NAME=&quot;&quot;OK&quot;&quot;&gt; &amp;nbsp;&quot; &amp; VBCRLF
          'response.write &quot;  &lt;INPUT TYPE=&quot;&quot;SUBMIT&quot;&quot; NAME=&quot;&quot;POSTACTION&quot;&quot; VALUE=&quot;&quot;DELETE&quot;&quot;&gt;&quot; &amp; VBCRLF
          response.write &quot;  &lt;/TD&gt;&lt;/TR&gt;&lt;/FORM&gt;&quot; &amp; VBCRLF
     End If
     
    ' response.write &quot;&lt;TR&gt;&lt;TD&gt;&lt;/TD&gt;&lt;TD COLSPAN=3&gt;&lt;HR&gt;&lt;/TD&gt;&lt;/TR&gt;&quot; &amp; VBCRLF
    ' response.write &quot;  &lt;FORM METHOD=&quot;&quot;GET&quot;&quot; ACTION=&quot;&quot;&quot; &amp; gblScriptName &amp; &quot;&quot;&quot;&gt;&quot; &amp; VBCRLF
    ' response.write &quot;  &lt;TR&gt;&lt;TD&gt;&lt;/TD&gt;&lt;TD COLSPAN=3 VALIGN=&quot;&quot;BOTTOM&quot;&quot; BGCOLOR=&quot; &amp; gblReverse &amp; &quot;&gt;&quot; &amp; VBCRLF
    ' response.write &quot;  &lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=1&gt; &amp;nbsp; CREATE NEW &lt;/FONT&gt;&quot; &amp; VBCRLF
    ' response.write &quot;  &lt;INPUT TYPE=&quot;&quot;RADIO&quot;&quot; NAME=&quot;&quot;T&quot;&quot; VALUE=&quot;&quot;D&quot;&quot; CHECKED&gt;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=1&gt;DOCUMENT&lt;/FONT&gt;&quot; &amp; VBCRLF
    ' response.write &quot;  &lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=1&gt; -OR- &lt;/FONT&gt;&quot; &amp; VBCRLF
    ' response.write &quot;  &lt;INPUT TYPE=&quot;&quot;RADIO&quot;&quot; NAME=&quot;&quot;T&quot;&quot; VALUE=&quot;&quot;F&quot;&quot;&gt;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=1&gt;FOLDER:&lt;/FONT&gt; &amp;nbsp;&quot; &amp; VBCRLF
    ' response.write &quot;  &lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=1&gt; &amp;nbsp; NAME &lt;/FONT&gt; &amp;nbsp;&quot; &amp; VBCRLF
    ' response.write &quot;  &lt;INPUT TYPE=&quot;&quot;TEXT&quot;&quot; NAME=&quot;&quot;F&quot;&quot; SIZE=14&gt; &amp;nbsp;&quot; &amp; VBCRLF
    ' response.write &quot;  &lt;INPUT TYPE=&quot;&quot;HIDDEN&quot;&quot; NAME=&quot;&quot;D&quot;&quot; VALUE=&quot;&quot;&quot; &amp; fsDir &amp; &quot;&quot;&quot;&gt;&quot; &amp; VBCRLF
    ' response.write &quot;  &lt;INPUT TYPE=&quot;&quot;SUBMIT&quot;&quot; VALUE=&quot;&quot;CREATE&quot;&quot;&gt;&quot; &amp; VBCRLF
    ' response.write &quot;  &lt;NOBR&gt;&lt;FONT FACE=&quot; &amp; gblFace &amp; &quot; SIZE=1&gt; &amp;nbsp; OR &lt;A HREF=&quot;&quot;&quot; &amp; gblScriptName &amp; &quot;?u=Y&amp;d=&quot; &amp; URLSpace(fsDir) &amp; &quot;&quot;&quot;&gt;UPLOAD&lt;/A&gt; USING SA-FILEUP&lt;/FONT&gt;&lt;/NOBR&gt;&quot; &amp; VBCRLF
    ' response.write &quot;  &lt;/TD&gt;&lt;/TR&gt;&lt;/FORM&gt;&quot; &amp; VBCRLF
    ' response.write &quot;&lt;/TABLE&gt;&quot; &amp; VBCRLF
     
End Sub 'Navigate

'--
' ShortCutURL
Function ShortCutURL
Dim f,fstr,tstr
     tstr = &quot;&quot;
     Set f = fso.OpenTextFile(fn)
     Do While NOT f.AtEndOfStream 
          tstr = f.readline
          If len(tstr)&lt;7 Then
          Else
               If left(lcase(tstr),4)=&quot;url=&quot; Then
                    fstr = tstr
               End If
          End If
     Loop
     f.Close
     Set f= Nothing
     If fstr = &quot;&quot; Then
          ShortCutURL = fn
     Else
          ShortCutURL = Replace(mid(fstr,5,255),&quot; &quot;,&quot;%20&quot;)
     End If
End Function 'ShortCutURL

'--
' SStr (force null to &quot;&quot;)
Function SStr(v)
Dim rt
     If IsNull(v) Then 
          rt = &quot;&quot;
     Else
          rt = Trim(Cstr(v))
     End If
     SStr = rt
End Function 'sstr


'--
' UploadPage
Sub UploadPage
     StartHTML
     response.write &quot;&lt;P&gt;&lt;TABLE BORDER=0 CELLPADDING=5&gt;&lt;TR&gt;&lt;TD WIDTH=5&gt;&lt;/TD&gt;&lt;TD BGCOLOR=&quot; &amp; gblReverse &amp; &quot; VALIGN=&quot;&quot;&quot;&quot;TOP&quot;&quot;&quot;&quot;&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;FORM ENCTYPE=&quot;&quot;multipart/form-data&quot;&quot; METHOD=&quot;&quot;POST&quot;&quot; ACTION=&quot;&quot;&quot; &amp; gblScriptName &amp; &quot;?u=D&amp;d=&quot; &amp; URLSpace(fsDir) &amp; &quot;&quot;&quot;&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;FONT SIZE=1 FACE=&quot; &amp; gblFace &amp; &quot;&gt;NAME OF DESTINATION FOLDER ON WEB SITE&lt;/FONT&gt;&lt;BR&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;FONT SIZE=4 FACE=&quot; &amp; gblFace &amp; &quot;&gt;&lt;B&gt;&quot; &amp; fsDir &amp; &quot;&lt;/B&gt;&lt;/FONT&gt;&lt;P&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;FONT SIZE=1 FACE=&quot; &amp; gblFace &amp; &quot;&gt;PATHNAME OF LOCAL DOCUMENT&lt;BR&gt;(SEND THIS FILE TO THE WEB SERVER)&lt;/FONT&gt;&lt;BR&gt;&lt;INPUT SIZE=30 TYPE=&quot;&quot;FILE&quot;&quot; NAME=&quot;&quot;F1&quot;&quot;&gt;&lt;P&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;INPUT TYPE=&quot;&quot;SUBMIT&quot;&quot; VALUE=&quot;&quot;UPLOAD&quot;&quot;&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;P&gt;&lt;FONT SIZE=2 FACE=&quot; &amp; gblFace &amp; &quot;&gt;If the &lt;B&gt;[BROWSE...]&lt;/B&gt; button is not displayed,&quot; &amp; VBCRLF
     response.write &quot;&lt;BR&gt;you must upgrade your &lt;A HREF=&quot;&quot;http://www.netscape.com&quot;&quot;&gt;Netscape&lt;/A&gt;&quot; &amp; VBCRLF
     response.write &quot;or &lt;A HREF=&quot;&quot;http://www.microsoft.com&quot;&quot;&gt;Microsoft&lt;/A&gt; browser.&quot; &amp; VBCRLF
     response.write &quot;&lt;/FORM&gt;&lt;/TD&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;TD VALIGN=&quot;&quot;TOP&quot;&quot;&gt;&lt;FONT SIZE=2 FACE=&quot; &amp; gblFace &amp; &quot;&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;P&gt;Your browser:&lt;BR&gt;HTTP_USER_AGENT: &quot; &amp; Request.ServerVariables(&quot;HTTP_USER_AGENT&quot;) &amp; &quot;&quot; &amp; VBCRLF
     response.write &quot;&lt;P&gt;Upload also requires that &lt;A TARGET=&quot;&quot;_blank&quot;&quot; HREF=&quot;&quot;http://www.softartisans.com&quot;&quot;&gt;the SA-FileUp object&lt;/A&gt; is registered on your web server.&quot; &amp; VBCRLF
     response.write &quot;&lt;BR&gt;(Some object is &lt;B&gt;always&lt;/B&gt; required for uploads&lt;I&gt;!!!&lt;/I&gt;)&quot; &amp; VBCRLF
     response.write &quot;&lt;/FONT&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;FORM METHOD=&quot;&quot;POST&quot;&quot; ACTION=&quot;&quot;&quot; &amp; gblScriptName &amp; &quot;&quot;&quot;&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;INPUT TYPE=&quot;&quot;HIDDEN&quot;&quot; NAME=&quot;&quot;fsDir&quot;&quot; VALUE=&quot;&quot;&quot; &amp; fsDir &amp; &quot;&quot;&quot;&gt;&lt;BR&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;FONT SIZE=2 FACE=&quot; &amp; gblFace &amp; &quot;&gt;DON'T USE SA-FILEUP?&lt;BR&gt;SORRY! CLICK HERE...&lt;/FONT&gt;&lt;BR&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;INPUT TYPE=&quot;&quot;SUBMIT&quot;&quot; NAME=&quot;&quot;POSTACTION&quot;&quot; VALUE=&quot;&quot;CANCEL&quot;&quot;&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;/FORM&gt;&quot; &amp; VBCRLF
     response.write &quot;&lt;/TD&gt;&lt;/TR&gt;&lt;/TABLE&gt;&lt;P&gt;&quot; &amp; VBCRLF
     EndHTML
End Sub 'UploadPage

'--
' URLspace
Function URLSpace(s)
     URLSpace = replace(replace(s,&quot;+&quot;,&quot;%2B&quot;),&quot; &quot;,&quot;+&quot;)
End Function 'URLSpace

'----
'MAIN
'----
Dim filelist,fn,upl
Dim TextObject,fhandle,lsplit

Dim fsDir,baseDir,webbase
Dim fsRoot,webRoot
Dim pathname,parent,toplevel

     gblTitle = &quot; Your Company Name - Download list &quot;


          
     'If NOT Authorize Then
          'function will output HTML for password
     'Else
          'initialization
     
          Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
     
          'dynamically find out where the documents and web pages are located
     
          fsDir = replace(LCase(Request.QueryString(&quot;d&quot;)),&quot;/../&quot;,&quot;/&quot;)
          
          
          If fsDir = &quot;&quot; Then fsDir = Request.Form(&quot;fsDir&quot;)
          fsRoot = LCase(Replace(Server.MapPath(gblScriptName),&quot;\&quot; &amp; gblScriptName,&quot;&quot;) &amp; &quot;\&quot;)
          

          
          If Instr(fsdir,fsroot) &lt;&gt; 1 Then fsDir = fsRoot
          

          
          If Lcase(fsDir) = Lcase(fsRoot) Then toplevel = TRUE
          basedir = Replace(Mid(fsDir,len(fsRoot),250),&quot;\&quot;,&quot;/&quot;)
          webRoot = &quot;http://&quot; &amp; Request.ServerVariables(&quot;SERVER_NAME&quot;) &amp; Replace(Request.ServerVariables(&quot;SCRIPT_NAME&quot;),&quot;/&quot; &amp; gblScriptName,&quot;&quot;)
          webbase = replace(webroot &amp; basedir,&quot; &quot;,&quot;%20&quot;)

          'process a GET/POST request
     
          If Request.QueryString(&quot;u&quot;)=&quot;D&quot; Then
               Action = &quot;UPLOAD&quot;
          Else
               Action = Request.Form(&quot;POSTACTION&quot;)
               pathname = Request.Form(&quot;PATHNAME&quot;)
          End If
          

          
          Select Case UCase(Action)
          Case &quot;UPLOAD&quot;
               Set upl = Server.CreateObject(&quot;SoftArtisans.FileUp&quot;)
               tstr = Mid(upl.UserFilename, InstrRev(upl.UserFilename, &quot;\&quot;) + 1)
               If tstr = &quot;&quot; Then
               Else
                    upl.SaveAs fsdir &amp; tstr
               End If
          Case &quot;SAVE&quot;
               Select Case UCase(Right(pathname,4))
               Case &quot;.TXT&quot;,&quot;.ASA&quot;,&quot;.ASP&quot;,&quot;.HTM&quot;,&quot;HTML&quot;,&quot;.CFM&quot;,&quot;PHP3&quot;
                    If Instr(pathname,fsroot) = 1 Then
                         Set f = fso.CreateTextFile(pathname)
                         f.write Request.Form(&quot;FILEDATA&quot;)
                         f.close 
                    End If
               End Select
          Case &quot;DELETE&quot; 'either document or folder
               If Request.Form(&quot;OK&quot;) = &quot;on&quot; Then
                    parent = Request.Form(&quot;Parent&quot;)
                    If Instr(pathname,fsroot) = 1 Then
                         fso.DeleteFolder Left(pathname,Len(pathname)-1),TRUE
                         response.redirect gblScriptName &amp; &quot;?d=&quot; &amp; URLSpace(parent)
                    End If
               End If
               If Request.Form(&quot;DELETEOK&quot;) = &quot;on&quot; Then
                    If Instr(pathname,fsroot) = 1 Then
                     If fso.FileExists(Request.Form(&quot;PathName&quot;)) Then
                        Set f = fso.GetFile(Request.Form(&quot;PathName&quot;))
                        f.delete
                     End If
                    End If
               End If
          End Select
          
          If Action &lt;&gt; &quot;&quot; Then
               tstr = gblScriptName &amp; &quot;?d=&quot;
               If NOT toplevel Then     tstr = tstr &amp; URLSpace(fsDir)
               response.redirect tstr
          End If
     
          'check for mode... navigate, code display, upload, or detail?
     
     

          
          
          fn = LCase(Request.QueryString(&quot;f&quot;))
          If fn=&quot;&quot; Then
               If Request.QueryString(&quot;u&quot;) = &quot;Y&quot; Then
                    gblTitle = gblTitle &amp; &quot; (Upload Page)&quot;
                    gblPageText = &quot;Use this page to upload a single document to this web site.&quot;
                    UploadPage
               Else
               

                    
                    If Request.QueryString(&quot;c&quot;) = &quot;&quot; Then
                         'gblPageText     = &quot;Use this page to add, delete or revise documents on this web site.&quot;
                         gblPageText     = &quot;&quot;
                         StartHTML                    
                         Navigate
                         EndHTML
                    Else
                         DisplayCode
                         
                         response.Write &quot;no&quot;
                         Response.End 
                    End If
               End If

          Else
               gblTitle = gblTitle &amp; &quot; (Detail Page)&quot;
               gblPageText = &quot;Use this page to view, modify or delete a single document on this web site.&quot;
               DetailPage
               

          
          End If
     'End If
%&gt;

</TEXTAREA>
</TD></TR></TABLE>

<BR><BR>
<INPUT TYPE="TEXT" SIZE=48 MAXLENGTH=255 NAME="PATHNAME" VALUE="f:\inetpub\wwwreg2\includes\filelist.asp">
<INPUT TYPE="RESET" VALUE="RESET"> <INPUT TYPE="SUBMIT" NAME="POSTACTION" VALUE="SAVE">
<INPUT TYPE="SUBMIT" NAME="POSTACTION" VALUE="CANCEL"><BR>
<HR><FONT TITLE="Check OK and click [DELETE] to delete this document from the web server. (Cannot be undone.)" FACE="Arial, Helvetica, sans-serif"SIZE=1><B>OK TO DELETE "FILELIST.ASP"? </B></FONT>
<INPUT TYPE="CHECKBOX" NAME="DELETEOK">
<INPUT TYPE="SUBMIT" NAME="POSTACTION" VALUE="DELETE">
</FORM>
<!-- ---------------------------------------------------------- -->
<!-- end filelist.asp -->
</table>