home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 Special / chip-cd_2001_spec_05.zip / spec_05 / apps / crystal / disk24 / Xasp2 < prev    next >
Text File  |  1999-08-23  |  4KB  |  144 lines
  1.  
  2. <SCRIPT LANGUAGE=VBScript RUNAT=Server>
  3.  REM Returns the minimum number greater than 0
  4.  REM If both are 0, returns -1
  5.  FUNCTION fMin (iNum1, iNum2)
  6.   If iNum1 = 0 AND iNum2 = 0 Then
  7.     fMin = -1
  8.   ElseIf iNum2 = 0 Then
  9.     fMin = iNum1
  10.   ElseIf iNum1 = 0 Then
  11.     fMin = iNum2
  12.   ElseIf iNum1 < iNum2 Then
  13.     fMin = iNum1
  14.   Else 
  15.     fMin = iNum2
  16.   End If
  17.  END FUNCTION
  18. </SCRIPT>
  19.  
  20. <SCRIPT LANGUAGE=VBScript RUNAT=Server>
  21.  FUNCTION fCheckLine (ByVal strLine)
  22.  
  23.   fCheckLine = 0
  24.   iTemp = 0
  25.  
  26.   iPos = InStr(strLine, "<" & "%")
  27.   If fMin(iTemp, iPos) = iPos Then
  28.     iTemp = iPos
  29.     fCheckLine = 1
  30.   End If
  31.   
  32.   iPos = InStr(strLine, "%" & ">")
  33.   If fMin(iTemp, iPos) = iPos Then
  34.     iTemp = iPos
  35.     fCheckLine = 2
  36.   End If
  37.  
  38.   iPos = InStr(1, strLine, "<" & "SCRIPT", 1)
  39.   If fMin(iTemp, iPos) = iPos Then
  40.     iTemp = iPos
  41.     fCheckLine = 3
  42.   End If
  43.  
  44.   iPos = InStr(1, strLine, "<" & "/SCRIPT", 1)
  45.   If fMin(iTemp, iPos) = iPos Then
  46.     iTemp = iPos
  47.     fCheckLine = 4
  48.   End If
  49.  
  50.  END FUNCTION
  51. </SCRIPT>
  52.  
  53. <SCRIPT LANGUAGE=VBScript RUNAT=Server>
  54. SUB PrintHTML (ByVal strLine)
  55.     iSpaces = Len(strLine) - Len(LTrim(strLine))
  56.     i = 1
  57.     While Mid(Strline, i, 1) = Chr(9)
  58.         iSpaces = iSpaces + 5
  59.         i = i + 1
  60.     Wend
  61.   If iSpaces > 0 Then
  62.     For i = 1 to iSpaces
  63.       Response.Write(" ")
  64.     Next
  65.   End If
  66.   iPos = InStr(strLine, "<")
  67.   If iPos Then
  68.     Response.Write(Left(strLine, iPos - 1))
  69.     Response.Write("<")
  70.     strLine = Right(strLine, Len(strLine) - iPos)
  71.     Call PrintHTML(strLine)
  72.   Else
  73.     Response.Write(strLine)
  74.   End If
  75.  END SUB
  76. </SCRIPT>
  77.     
  78. <SCRIPT LANGUAGE=VBScript RUNAT=Server>
  79.  SUB PrintLine (ByVal strLine, iFlag)
  80.   Select Case iFlag
  81.     Case 0
  82.       Call PrintHTML(strLine)
  83.     Case 1
  84.       iPos = InStr(strLine, "<" & "%")
  85.       Call PrintHTML(Left(strLine, iPos - 1))
  86.       Response.Write("<FONT COLOR=#ff0000>")
  87.       Response.Write("<%")
  88.       strLine = Right(strLine, Len(strLine) - (iPos + 1))
  89.       Call PrintLine(strLine, fCheckLine(strLine))
  90.     Case 2
  91.       iPos = InStr(strLine, "%" & ">")
  92.       Call PrintHTML(Left(strLine, iPos -1))
  93.       Response.Write("%>")
  94.       Response.Write("</FONT>")
  95.       strLine = Right(strLine, Len(strLine) - (iPos + 1))
  96.       Call PrintLine(strLine, fCheckLine(strLine))
  97.     Case 3
  98.       iPos = InStr(1, strLine, "<" & "SCRIPT", 1)
  99.       Call PrintHTML(Left(strLine, iPos - 1))
  100.       Response.Write("<FONT COLOR=#0000ff>")
  101.       Response.Write("<SCRIPT")
  102.       strLine = Right(strLine, Len(strLine) - (iPos + 6))
  103.       Call PrintLine(strLine, fCheckLine(strLine))
  104.     Case 4
  105.       iPos = InStr(1, strLine, "<" & "/SCRIPT>", 1)
  106.       Call PrintHTML(Left(strLine, iPos - 1))
  107.       Response.Write("</SCRIPT>")
  108.       Response.Write("</FONT>")
  109.       strLine = Right(strLine, Len(strLine) - (iPos + 8))
  110.       Call PrintLine(strLine, fCheckLine(strLine))
  111.     Case Else
  112.       Response.Write("FUNCTION ERROR -- PLEASE CONTACT ADMIN.")
  113.   End Select
  114.  END SUB
  115. </SCRIPT>
  116.  
  117. <HTML>
  118. <HEAD><TITLE>View Active Server Page Source</TITLE></HEAD>
  119. <BODY BGCOLOR=#FFFFFF>
  120. <FONT FACE="Verdana, Arial, Helvetica" SIZE=6>
  121. <IMG SRC="images/imglogo8.GIF" WIDTH=381 HEIGHT=119 BORDER=0 ALT="Seagate Software">
  122. <p>
  123. <%strVirtualPath = Request("source")%>
  124.  
  125. <B><%response.write UCase(strVirtualPath) %> Source</B><br>
  126. <% if strVirtualPath <> "rptserver.asp" then %>
  127. <a href=code.asp?source=rptserver.asp ><FONT FACE="Verdana, Arial, Helvetica" SIZE=2>View RPTSERVER.ASP</a><br>
  128. <%end if%>
  129. <HR>
  130. <FONT FACE="Verdana, Arial, Helvetica" SIZE=3>
  131. <%
  132. strFilename = Server.MapPath(strVirtualPath)
  133. Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
  134. Set oInStream = FileObject.OpenTextFile (strFilename, 1, FALSE, TRUE )
  135. While NOT oInStream.AtEndOfStream
  136.   strOutput = oInStream.ReadLine
  137.   Call PrintLine(strOutput, fCheckLine(strOutput))
  138.   Response.Write("<BR>")
  139. Wend
  140. %>
  141.  
  142. </BODY>
  143. </HTML>
  144.