nbsp;        Response.Write server.HTMLEncode(m_strReadLine) & vbCrLf
                        End If
                    End If
                End If
            End If
        Loop
        
        ' Grab the time at the completion of processing
        m_EndTime = Time()
        
        ' Close the outside table
        Response.Write "</PRE></td></tr></table>"
        
        ' Close the file and destroy the file object
        objFile.close
        Set objFile = Nothing
    End Sub
    
    ' This function parses a line character by character
    Private Function CharacterParse(inLine)
        Dim charBuffer, tempChar, i, outputString
        Dim insideString, workString, holdChar
        
        insideString = False
        outputString = ""
        
        For i = 1 to Len(inLine)
            tempChar = mid(inLine, i, 1)
            Select Case tempChar
                Case " "
                    If Not insideString Then
                        charBuffer = charBuffer & " "
                        If charBuffer <>" "  Then
   &n

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

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

	Web www.51ec.org

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

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