用ADODB.Stream代替FSO读取文本文件 -pc6资讯

您的位置：首页 → 技术开发 → ASP技巧 → 用ADODB.Stream代替FSO读取文本文件

用ADODB.Stream代替FSO读取文本文件 时间：2004/11/7 4:12:00来源：本站整理作者：蓝点我要评论(0)

昨天我问过这个问题,不过没人回答到点上,今天搞定了.贴出来给觉得有用的朋友,希望其他朋友不用走弯路.

'文件内容读取.
Function LoadFile(ByVal File)
    Dim objStream
    On Error Resume Next
    Set objStream = Server.CreateObject("ADODB.Stream")
    If Err.Number=-2147221005 Then
        Response.Write "

非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序

"
        Err.Clear
        Response.End
    End If
    With objStream
        .Type = 2
        .Mode = 3
        .Open
        .LoadFromFile Server.MapPath(File)
        If Err.Number<>0 Then
    Response.Write "

文件"&File&"无法被打开，请检查是否存在!

"
    Err.Clear
    Response.End
        End If
        .Charset = "GB2312"
        .Position = 2
        LoadFile = .ReadText
        .Close
    End With
    Set objStream = Nothing
End Function

'存储内容到文件
Sub SaveToFile(ByVal strBody,ByVal File)
    Dim objStream
    On Error Resume Next
    Set objStream = Server.CreateObject("ADODB.Stream")
    If Err.Number=-2147221005 Then
        Response.Write "

非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序

"
        Err.Clear
        Response.End
    End If
    With objStream
        .Type = 2
        .Open
        .Charset = "GB2312"
        .Position = objStream.Size
        .WriteText = strBody
        .SaveToFile Server.MapPath(File),2
        .Close
    End With
    Set objStream = Nothing
End Sub

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。