150 lines
3.9 KiB
Plaintext
150 lines
3.9 KiB
Plaintext
|
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
|
||
|
|
|
||
|
|
REM *************** NOTICE ****************
|
||
|
|
REM * This file may only be used to view *
|
||
|
|
REM * source code of .asp files in the *
|
||
|
|
REM * IXSTest directory. If you wish to *
|
||
|
|
REM * change the security on this, modify *
|
||
|
|
REM * or remove this function. *
|
||
|
|
REM ***************************************
|
||
|
|
|
||
|
|
FUNCTION fValidPath (ByVal strPath)
|
||
|
|
If InStr(1, strPath, "/IXSTest/", 1) Then
|
||
|
|
fValidPath = 1
|
||
|
|
Else
|
||
|
|
fValidPath = 0
|
||
|
|
End If
|
||
|
|
END FUNCTION
|
||
|
|
</SCRIPT>
|
||
|
|
|
||
|
|
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
|
||
|
|
REM Returns the minimum number greater than 0
|
||
|
|
REM If both are 0, returns -1
|
||
|
|
FUNCTION fMin (iNum1, iNum2)
|
||
|
|
If iNum1 = 0 AND iNum2 = 0 Then
|
||
|
|
fMin = -1
|
||
|
|
ElseIf iNum2 = 0 Then
|
||
|
|
fMin = iNum1
|
||
|
|
ElseIf iNum1 = 0 Then
|
||
|
|
fMin = iNum2
|
||
|
|
ElseIf iNum1 < iNum2 Then
|
||
|
|
fMin = iNum1
|
||
|
|
Else
|
||
|
|
fMin = iNum2
|
||
|
|
End If
|
||
|
|
END FUNCTION
|
||
|
|
</SCRIPT>
|
||
|
|
|
||
|
|
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
|
||
|
|
FUNCTION fCheckLine (ByVal strLine)
|
||
|
|
|
||
|
|
fCheckLine = 0
|
||
|
|
iTemp = 0
|
||
|
|
|
||
|
|
iPos = InStr(strLine, "<" & "%")
|
||
|
|
If fMin(iTemp, iPos) = iPos Then
|
||
|
|
iTemp = iPos
|
||
|
|
fCheckLine = 1
|
||
|
|
End If
|
||
|
|
|
||
|
|
iPos = InStr(strLine, "%" & ">")
|
||
|
|
If fMin(iTemp, iPos) = iPos Then
|
||
|
|
iTemp = iPos
|
||
|
|
fCheckLine = 2
|
||
|
|
End If
|
||
|
|
|
||
|
|
iPos = InStr(1, strLine, "<" & "SCRIPT", 1)
|
||
|
|
If fMin(iTemp, iPos) = iPos Then
|
||
|
|
iTemp = iPos
|
||
|
|
fCheckLine = 3
|
||
|
|
End If
|
||
|
|
|
||
|
|
iPos = InStr(1, strLine, "<" & "/SCRIPT", 1)
|
||
|
|
If fMin(iTemp, iPos) = iPos Then
|
||
|
|
iTemp = iPos
|
||
|
|
fCheckLine = 4
|
||
|
|
End If
|
||
|
|
|
||
|
|
END FUNCTION
|
||
|
|
</SCRIPT>
|
||
|
|
|
||
|
|
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
|
||
|
|
SUB PrintHTML (ByVal strLine)
|
||
|
|
iSpaces = Len(strLine) - Len(LTrim(strLine))
|
||
|
|
If iSpaces > 0 Then
|
||
|
|
For i = 1 to iSpaces
|
||
|
|
Response.Write(" ")
|
||
|
|
Next
|
||
|
|
End If
|
||
|
|
iPos = InStr(strLine, "<")
|
||
|
|
If iPos Then
|
||
|
|
Response.Write(Left(strLine, iPos - 1))
|
||
|
|
Response.Write("<")
|
||
|
|
strLine = Right(strLine, Len(strLine) - iPos)
|
||
|
|
Call PrintHTML(strLine)
|
||
|
|
Else
|
||
|
|
Response.Write(strLine)
|
||
|
|
End If
|
||
|
|
END SUB
|
||
|
|
</SCRIPT>
|
||
|
|
|
||
|
|
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
|
||
|
|
SUB PrintLine (ByVal strLine, iFlag)
|
||
|
|
Select Case iFlag
|
||
|
|
Case 0
|
||
|
|
Call PrintHTML(strLine)
|
||
|
|
Case 1
|
||
|
|
iPos = InStr(strLine, "<" & "%")
|
||
|
|
Call PrintHTML(Left(strLine, iPos - 1))
|
||
|
|
Response.Write("<FONT COLOR=#ff0000>")
|
||
|
|
Response.Write("<%")
|
||
|
|
strLine = Right(strLine, Len(strLine) - (iPos + 1))
|
||
|
|
Call PrintLine(strLine, fCheckLine(strLine))
|
||
|
|
Case 2
|
||
|
|
iPos = InStr(strLine, "%" & ">")
|
||
|
|
Call PrintHTML(Left(strLine, iPos -1))
|
||
|
|
Response.Write("%>")
|
||
|
|
Response.Write("</FONT>")
|
||
|
|
strLine = Right(strLine, Len(strLine) - (iPos + 1))
|
||
|
|
Call PrintLine(strLine, fCheckLine(strLine))
|
||
|
|
Case 3
|
||
|
|
iPos = InStr(1, strLine, "<" & "SCRIPT", 1)
|
||
|
|
Call PrintHTML(Left(strLine, iPos - 1))
|
||
|
|
Response.Write("<FONT COLOR=#0000ff>")
|
||
|
|
Response.Write("<SCRIPT")
|
||
|
|
strLine = Right(strLine, Len(strLine) - (iPos + 6))
|
||
|
|
Call PrintLine(strLine, fCheckLine(strLine))
|
||
|
|
Case 4
|
||
|
|
iPos = InStr(1, strLine, "<" & "/SCRIPT>", 1)
|
||
|
|
Call PrintHTML(Left(strLine, iPos - 1))
|
||
|
|
Response.Write("</SCRIPT>")
|
||
|
|
Response.Write("</FONT>")
|
||
|
|
strLine = Right(strLine, Len(strLine) - (iPos + 8))
|
||
|
|
Call PrintLine(strLine, fCheckLine(strLine))
|
||
|
|
Case Else
|
||
|
|
Response.Write("FUNCTION ERROR -- PLEASE CONTACT ADMIN.")
|
||
|
|
End Select
|
||
|
|
END SUB
|
||
|
|
</SCRIPT>
|
||
|
|
|
||
|
|
<HTML>
|
||
|
|
<HEAD><TITLE>View Source Code</TITLE></HEAD>
|
||
|
|
|
||
|
|
<%
|
||
|
|
strVirtualPath = Request("source")
|
||
|
|
If fValidPath(strVirtualPath) Then
|
||
|
|
strFilename = Server.MapPath(strVirtualPath)
|
||
|
|
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
|
||
|
|
Set oInStream = FileObject.OpenTextFile (strFilename, 1, FALSE, TRUE )
|
||
|
|
While NOT oInStream.AtEndOfStream
|
||
|
|
strOutput = oInStream.ReadLine
|
||
|
|
Call PrintLine(strOutput, fCheckLine(strOutput))
|
||
|
|
Response.Write("<BR>")
|
||
|
|
Wend
|
||
|
|
Else
|
||
|
|
Response.Write("<H1>View Source Code -- Access Denied</H1>")
|
||
|
|
End If
|
||
|
|
%>
|
||
|
|
|
||
|
|
</HTML>
|