使用ADODB。代替FSO读取文本文件在ASP流

读取文件的内容。
复制代码代码如下所示：
函数的LoadFile（一个文件）
昏暗的objstream
下次继续出错
集objstream = server.createobject（ADODB。流）
如果错误＝2147221005，那么
响应。写很遗憾，您的主机不支持ADODB。流和不能使用该程序。
呃。清晰
反应结束
最后如果
与objstream
类型= 2
模式= 3
开。
LoadFromFile Server.MapPath（文件）。
如果错误，数字＜0，然后
响应写文件无法打开，请检查是否有！
呃。清晰
反应结束
最后如果
。字符集=GB2312
位置= 2
READTEXT出现=。
关闭
结束
集objstream =没有
端功能

将内容存储到文件
复制代码代码如下所示：
Sub SaveToFile（ByVal strbody，ByVal文件）
昏暗的objstream
下次继续出错
集objstream = server.createobject（ADODB。流）
如果错误＝2147221005，那么
响应。写很遗憾，您的主机不支持ADODB。流和不能使用该程序。
呃。清晰
反应结束
最后如果
与objstream
类型= 2
开。
。字符集=GB2312
objstream大小。位置=。
strbody WRITETEXT =。
SaveToFile Server.MapPath（文件），2。
关闭
结束
集objstream =没有
端子

调用的例子
复制代码代码如下所示：
<
WriteFile AAA .txt
响应。写ReadFile（AAA .txt
%>