e.Write "<table><tr bgcolor=yellow><td>"
                Response.Write server.HTMLEncode(m_strReadLine)
                Response.Write "</td></tr></table>"
                blnInScriptBlock = False
            ' Check for an opening script tag
            ElseIf Left( tempString, 2) = Chr(60) & "%" Then
                ' Check for a closing script tag on the same line
                If right( RTrim(tempString), 2 ) = "%" & Chr(62) Then
                    Response.Write "<table><tr><td bgcolor=yellow><%</td>"
                    Response.Write "<td>"
                    Response.Write CharacterParse(mid(m_strReadLine, 3, Len(m_strReadLine) - 4))
                    Response.Write "</td>"
                    Response.Write "<td bgcolor=yellow>%gt;</td></tr></table>"
                    blnInScriptBlock = False
                Else
                    Response.Write "<table><tr bgcolor=yellow><td><%</td></tr></table>"
                    ' We've got an opening script tag so set the flag to true so
                    ' that we know to start parsing the lines for keywords/comments
                    bl

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

在google里搜索更多VBS、ASP代码语法加亮显示的类

	Web www.51ec.org

上一篇信息学院： 远程获取内容，并将内容存在本地电脑上，包括任何文件！利用xmlhttp和adodb.stream,酷！绝对原创！

下一篇信息学院： 超长字符的智能分页-支持HTML。