'文件内容读取.
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
关于用ADODB.Stream读写文本文件的一些问题
最新推荐文章于 2024-04-02 08:25:59 发布
这篇博客介绍了如何利用ADODB.Stream对象在VBScript中进行文本文件的读取和保存。通过LoadFile函数,可以读取指定路径的文件,并处理可能出现的错误。SaveToFile子程序则用于将内容写入文件,同样处理了不支持ADODB.Stream的情况。在读写过程中,还涉及到字符编码的设置。
摘要由CSDN通过智能技术生成