bsp;                        If left(charBuffer, 1) = " " Then outputString = outputString & " "
                            
                            ' Check for a 'rem' style comment marker
                            If LCase(Trim(charBuffer)) = "rem" Then
                                outputString = outputString & CommentColor
                                outputString = outputString & "REM"
                                workString = mid( inLine, i, Len(inLine))
                                workString = replace(workString, "<", "＆ｌｔ；")
                                workString = replace(workString, ">", "＆ｇｔ；")
                                outputString = outputString & workString & "</font>"
                                charBuffer = ""
                                Exit For
                            End If
       &nb

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

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

	Web www.51ec.org

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

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