;    Case Else
                blnGoodExtension = False
        End Select
        
        If Not blnGoodExtension Then
            Err.Raise 5, "cBuffer: File extension not asp or inc"
            Exit Sub
        End If
        
        Set objFile = objFSO.OpenTextFile(server.MapPath(PathToFile))
        
        Response.Write "<table nowrap bgcolor=" & TableBGColor & " cellpadding=0 cellspacing=0>"
        Response.Write "<tr><td><PRE>"
        
        m_StartTime = Time()
        
        Do While Not objFile.AtEndOfStream
            m_strReadLine = objFile.ReadLine
            
            blnEmptyLine = False
            If Len(m_strReadLine) = 0 Then
                blnEmptyLine = True
            End If
            
            m_strReadLine = Replace(m_strReadLine, vbTab, TabSpaces)
            m_LineCount = m_LineCount + 1
            tempString = LTrim(m_strReadLine)
            
            ' Check for the top script line that set's the default script language
            ' for the page.
            If left( tempString, 3 ) = Chr(60) & "%@" And right(tempString, 2) = "%" & Chr(62) Then
                Respons

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

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

	Web www.51ec.org

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

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