关于用ADODB.Stream读写文本文件的一些问题

最新推荐文章于 2021-04-05 10:36:43 发布

ch_scofield

最新推荐文章于 2021-04-05 10:36:43 发布

阅读量1.6k

点赞数

分类专栏： asp 文章标签： file div function 存储

本文链接：https://blog.csdn.net/ch_scofield/article/details/5626853

版权

这篇博客介绍了如何利用ADODB.Stream对象在VBScript中进行文本文件的读取和保存。通过LoadFile函数，可以读取指定路径的文件，并处理可能出现的错误。SaveToFile子程序则用于将内容写入文件，同样处理了不支持ADODB.Stream的情况。在读写过程中，还涉及到字符编码的设置。

摘要由CSDN通过智能技术生成

'文件内容读取.
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& amp; gt;</div>"
Err.Clear
Response.End
End If
.Charset = "GB2312" '可以根据需求，把这里的编码修改成utf-8等编码格式
.Position = 2