p;     Case Chr(34)
                    ' catch quote chars and flip a boolean variable to denote that
                    ' whether or not we're "inside" a quoted string
                    insideString = Not insideString
                    If insideString Then
                        outputString = outputString & StringColor
                        outputString = outputString & "＆ｑｕｏｔ；"
                    Else
                        outputString = outputString & """"
                        outputString = outputString & "</font>"
                    End If
                Case "'"
                    ' Catch comments and output the rest of the line
                    ' as a comment IF we're not inside a string.
                    If Not insideString Then
                        outputString = outputString & CommentColor
                        workString = mid( inLine, i, Len(inLine))
                        workString = replace(workString, "<", "＆ｌｔ；")
      &

 << 上一页  [11] [12] [13] [14] [15] 下一页

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

	Web www.51ec.org

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

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