nbsp;                 workString = replace(workString, ">", "＆ｇｔ；")
                        outputString = outputString & workString
                        outputString = outputString & "</font>"
                        Exit For
                    Else
                        outputString = outputString & "'"
                    End If
                Case Else
                    ' We've dealt with special case characters so now
                    ' we'll begin adding characters to our outputString
                    ' or charBuffer depending on the state of the insideString
                    ' boolean variable
                    If insideString Then
                        outputString = outputString & tempChar
                    Else
                        charBuffer = charBuffer & tempChar
                    End If
            End Select
        Next
        
        ' Deal with the last part of the

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

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

	Web www.51ec.org

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

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