nInScriptBlock = True
                End If
            Else
                If blnInScriptBlock Then
                    If blnEmptyLine Then
                        Response.Write vbCrLf
                    Else
                        If right(tempString, 2) = "%" & Chr(62) Then
                            Response.Write "<table><tr bgcolor=yellow><td>%></td></tr></table>"
                            blnInScriptBlock = False
                        Else
                            Response.Write CharacterParse(m_strReadLine) & vbCrLf
                        End If
                    End If
                Else
                    If blnOutputHTML Then
                        If blnEmptyLine Then
                            Response.Write vbCrLf
                        Else
                   &

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

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

	Web www.51ec.org

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

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