asp下用ADODB.Stream代替FSO读取文本文件
更新时间：2007年08月30日 10:20:39 作者：
在ASP中，我们常用Scripting.FileSystemObject组件来读写文本文件，但它有一个缺点是对编码支持不足，比如我们想读写一个utf-8文本文件，FSO就很难办到了，这时我们就需要使用Adodb.Stream组件来代替它。
（福利推荐：【腾讯云】服务器最新限时优惠活动，云服务器1核2G仅99元/年、2核4G仅768元/3年，立即抢购>>>：9i0i.cn/qcloud）
（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）
'文件内容读取.
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")
%>
复制代码 代码如下:
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")
%>
相关文章
通过XML中的XMLHTTP组件调用其它网站上的网页，然后批量截取或替换原有的信息使其转化成变量后再一一储存到数据库中。2009-11-11
asp读取远程文件并保存到本地代码...2007-03-03
保存远程图片函数修改正版...2006-07-07
蓝色空间 天气小偷...2006-08-08
XMLHTTP利用POST发送表单时提交中文的问题...2006-06-06
远程图片自动按文件夹上传到服务器-默飞出品...2006-06-06
研究网页编码很长时间了，因为最近要设计一个友情链接检测的VBS脚本，而与你链接的人的页面很可能是各种编码2008-07-07
小偷程序2...2006-12-12
这两天搞个天气预报，记得以前用.net版本有种是抓取百度天气写入txt，再读取。时间久了，txt很多。感觉不是很好。2010-07-07
用asp获取微软安全更新列表的代码，其实就是小偷程序，原理比较简单，学习asp小偷程序的朋友可以参考下。更好的代码可以下载程序员之家提供的源码。2011-01-01
最新评论