'文件内容读取. 复制代码 代码如下: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 调用示例 复制代码 代码如下: <% WriteFile "aaa.txt", "www.jb51.net", "utf-8" Response.Write ReadFile("aaa.txt", "utf-8") %>

　　推荐阅读

　　比较不错的asp模板引终极讲解(WEB开发之ASP模式)

作者： 孙立 Email: 17bizAT126.com 写于:2006/3/5 版权声明：可以任意转载，转载时请务必以超链接形式标明文章原始出处和作者信息及本声明 http://sunli.cnblogs.com/archive/2006/03/05/343095.html 关键词:ASP >>>详细阅读

本文标题：asp下用ADODB.Stream代替FSO读取文本文件

地址：http://www.17bianji.com/kaifa2/ASP/32454.html

 1/2    1