用ADODB.Stream代替FSO读取文本文件

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

'文件内容读取.
Function LoadFile(ByVal File)
    Dim objStream
    On Error Resume Next
    Set objStream = Server.CreateObject("ADODB.Stream")
    If Err.Number=-2147221005 Then
        Response.Write "<div align='center'>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>"
        Err.Clear
        Response.End
    End If
    With objStream
        .Type = 2
        .Mode = 3
        .Open
        .LoadFromFile Server.MapPath(File)
        If Err.Number<>0 Then
    Response.Write "<div align='center'>文件<font color='#ff0000'>"&File&"</font>无法被打开，请检查是否存在!</font></div>"
    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 "<div align='center'>非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序</div>"
        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

• ASP
• PHP
• JSP
• CGI/perl
• ASP.NET
• C#
• XML
• 编程综合

• 透彻掌握ASP分页技术
• ASP上传图片自动生成缩略图解决方案
• ASP中读取远程XML文件的方法 XMLHttp+XMLDOM
• 在ASP中连接MySQL数据库，最好通过ODBC方法
• 如何将身份证号码变成出生年月日
• ASP常用函数收集
• ASP中Cookie使用指南
• 获取远程服务器数据（asp，adodb.stream，保存远程图片，XMLHTTP）
• 使用Jmail4.0发送HTML邮件
• ASP自定义常用函数集合

• 使用VB将ASP代码封装生成DLL文件
• 透彻掌握ASP分页技术
• ASP操作数据库的类
• 改进性能和样式的 24个 ASP 技巧
• ASP自定义常用函数集合
• 在ASP中连接MySQL数据库，最好通过ODBC方法
• 介绍一种效率极高的分类算法
• ASP网站生成静态页面，及网站数据采集的攻、防原理和策略
• 用ASP动态生成JavaScript的表单验证代码
• 使用Jmail4.0发送HTML邮件