home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_07.cab / CodeBrws.asp < prev    next >
Encoding:
Text File  |  1998-04-27  |  5.5 KB  |  213 lines
  1. <SCRIPT LANGUAGE=VBScript RUNAT=Server>
  2.  REM Returns the minimum number greater than 0
  3.  REM If both are 0, returns -1
  4.  FUNCTION fMin (iNum1, iNum2)
  5.   If iNum1 = 0 AND iNum2 = 0 Then
  6.     fMin = -1
  7.   ElseIf iNum2 = 0 Then
  8.     fMin = iNum1
  9.   ElseIf iNum1 = 0 Then
  10.     fMin = iNum2
  11.   ElseIf iNum1 < iNum2 Then
  12.     fMin = iNum1
  13.   Else 
  14.     fMin = iNum2
  15.   End If
  16.  END FUNCTION
  17. </SCRIPT>
  18.  
  19. <SCRIPT LANGUAGE=VBScript RUNAT=Server>
  20.  FUNCTION fCheckLine (ByVal strLine)
  21.  
  22.   fCheckLine = 0
  23.   iTemp = 0
  24.  
  25.   iPos = InStr(strLine, "<" & "%")
  26.   If fMin(iTemp, iPos) = iPos Then
  27.     iTemp = iPos
  28.     fCheckLine = 1
  29.   End If
  30.   
  31.   iPos = InStr(strLine, "%" & ">")
  32.   If fMin(iTemp, iPos) = iPos Then
  33.     iTemp = iPos
  34.     fCheckLine = 2
  35.   End If
  36.  
  37.   iPos = InStr(1, strLine, "<" & "SCRIPT", 1)
  38.   If fMin(iTemp, iPos) = iPos Then
  39.     iTemp = iPos
  40.     fCheckLine = 3
  41.   End If
  42.  
  43.   iPos = InStr(1, strLine, "<" & "/SCRIPT", 1)
  44.   If fMin(iTemp, iPos) = iPos Then
  45.     iTemp = iPos
  46.     fCheckLine = 4
  47.   End If
  48.  
  49.   iPos = InStr(1, strLine, "<" & "!--", 1)
  50.   If fMin(iTemp, iPos) = iPos Then
  51.     iTemp = iPos
  52.     fCheckLine = 5
  53.   End If
  54.  
  55.   iPos = InStr(1, strLine, "-" & "->", 1)
  56.   If fMin(iTemp, iPos) = iPos Then
  57.     iTemp = iPos
  58.     fCheckLine = 6
  59.   End If
  60.  
  61.  END FUNCTION
  62. </SCRIPT>
  63.  
  64. <SCRIPT LANGUAGE=VBScript RUNAT=Server>
  65. SUB PrintHTML (ByVal strLine)
  66.     iSpaces = Len(strLine) - Len(LTrim(strLine))
  67.     i = 1
  68.     While Mid(Strline, i, 1) = Chr(9)
  69.         iSpaces = iSpaces + 5
  70.         i = i + 1
  71.     Wend
  72.   If iSpaces > 0 Then
  73.     For i = 1 to iSpaces
  74.       Response.Write(" ")
  75.     Next
  76.   End If
  77.   iPos = InStr(strLine, "<")
  78.   If iPos Then
  79.     Response.Write(Left(strLine, iPos - 1))
  80.     Response.Write("<")
  81.     strLine = Right(strLine, Len(strLine) - iPos)
  82.     Call PrintHTML(strLine)
  83.   Else
  84.     Response.Write(strLine)
  85.   End If
  86.  END SUB
  87. </SCRIPT>
  88.     
  89. <SCRIPT LANGUAGE=VBScript RUNAT=Server>
  90.  SUB PrintLine (ByVal strLine, iFlag)
  91.     
  92.   Select Case iFlag
  93.     Case 0
  94.       Call PrintHTML(strLine)
  95.  
  96.     Case 1
  97.       iPos = InStr(strLine, "<" & "%")
  98.       Call PrintHTML(Left(strLine, iPos - 1))
  99.       Response.Write("<FONT COLOR=#ff0000>")
  100.       Response.Write("<%")
  101.       strLine = Right(strLine, Len(strLine) - (iPos + 1))
  102.       Call PrintLine(strLine, fCheckLine(strLine))
  103.  
  104.     Case 2
  105.       iPos = InStr(strLine, "%" & ">")
  106.       Call PrintHTML(Left(strLine, iPos -1))
  107.       Response.Write("%>")
  108.       Response.Write("</FONT>")
  109.       strLine = Right(strLine, Len(strLine) - (iPos + 1))
  110.       Call PrintLine(strLine, fCheckLine(strLine))
  111.  
  112.     Case 3
  113.       iPos = InStr(1, strLine, "<" & "SCRIPT", 1)
  114.       Call PrintHTML(Left(strLine, iPos - 1))
  115.       Response.Write("<FONT COLOR=#0000ff>")
  116.       Response.Write("<SCRIPT")
  117.       strLine = Right(strLine, Len(strLine) - (iPos + 6))
  118.       Call PrintLine(strLine, fCheckLine(strLine))
  119.  
  120.     Case 4
  121.       iPos = InStr(1, strLine, "<" & "/SCRIPT>", 1)
  122.       Call PrintHTML(Left(strLine, iPos - 1))
  123.       Response.Write("</SCRIPT>")
  124.       Response.Write("</FONT>")
  125.       strLine = Right(strLine, Len(strLine) - (iPos + 8))
  126.       Call PrintLine(strLine, fCheckLine(strLine))
  127.  
  128.     Case 5
  129.       iPos = InStr(1, strLine, "<" & "!--", 1)
  130.       Call PrintHTML(Left(strLine, iPos - 1))
  131.       Response.Write("<FONT COLOR=#0000ff>")
  132.       Response.Write("<!--")
  133.       strLine = Right(strLine, Len(strLine) - (iPos + 3))
  134.       Call PrintLine(strLine, fCheckLine(strLine))
  135.  
  136.     Case 6
  137.       iPos = InStr(1, strLine, "-" & "->", 1)
  138.       Call PrintHTML(Left(strLine, iPos - 1))
  139.       Response.Write("-->")
  140.       Response.Write("</FONT>")
  141.       strLine = Right(strLine, Len(strLine) - (iPos + 2))
  142.       Call PrintLine(strLine, fCheckLine(strLine))
  143.  
  144.     Case Else
  145.       Response.Write("FUNCTION ERROR -- PLEASE CONTACT ADMIN.")
  146.   End Select
  147.  END SUB
  148. </SCRIPT>
  149.  
  150. <HTML>
  151.     <HEAD>
  152.         <META NAME="DESCRIPTION" CONTENT="ASP Source code browser">
  153.         <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev 1.0">
  154.         <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso8859-1">
  155.     </HEAD>
  156.  
  157.     <BODY BGCOLOR="#FFFFFF">
  158.  
  159.         <FONT FACE="VERDANA, ARIAL, HELVETICA">
  160.         <%
  161.         strVirtualPath = Request("Source")
  162.         %>
  163.  
  164.              <!-- DISPLAY THE COLOR LEGEND -->
  165.         <TABLE BORDER=1>
  166.             <TR>
  167.               <TD WIDTH="25" BGCOLOR="#FF0000">  
  168.               </TD>
  169.               <TD><FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="2">ASP Script</FONT>
  170.               </TD>
  171.             </TR>
  172.             <TR>
  173.               <TD BGCOLOR="#0000FF">  
  174.               </TD>
  175.               <TD><FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="2">Comments</FONT>
  176.               </TD>
  177.             </tr>
  178.             <tr>
  179.               <TD BGCOLOR="#000000">  
  180.               </TD>
  181.               <TD><FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="2">HTML and Text</FONT>
  182.               </TD>
  183.             </TR>
  184.         </TABLE>
  185.  
  186.         áááááá 
  187.         <hr size="1" color="#000000">
  188.  
  189.         <FONT FACE="VERDANA, ARIAL, HELVETICA" SIZE="2">
  190.  
  191.         <%
  192.         strFilename = Server.MapPath(strVirtualPath)
  193.         Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
  194.         Set oInStream = FileObject.OpenTextFile(strFilename)
  195.  
  196.     
  197.  
  198.       While NOT oInStream.AtEndOfStream
  199.           strOutput = oInStream.ReadLine
  200.         
  201.           Call PrintLine(strOutput, fCheckLine(strOutput))
  202.           Response.Write("<BR>")
  203.         Wend
  204.         %>
  205.  
  206.  
  207.         <hr>
  208.  
  209.  
  210.         </FONT>
  211.     </BODY>
  212. </HTML>
  213.