Adodb.Stream读取和写入UTF-8编码的文件

最新推荐文章于 2021-05-11 15:11:33 发布

weixin_30699443

最新推荐文章于 2021-05-11 15:11:33 发布

阅读量660

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/ly312/archive/2010/03/18/1689187.html

本文介绍了如何使用Adodb.Stream对象进行文件的读写操作，包括读取UTF-8编码的文件内容及将字符串写入文件的具体实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<%'函数名称：ReadTextFile
'作用：利用Adodb.Stream对象来读取UTF-8编码的文件
'示例：ReadFromTextFile("File/FileName.htm",UTF-8)
Function ReadFromTextFile(FileUrl,CharSet)
dim str
set stm=server.CreateObject("adodb.stream")
stm.Type=2'以本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.loadfromfile server.MapPath(FileUrl)
str=stm.readtext
stm.Close
set stm=nothing
ReadFromTextFile=str
End Function
'函数名称：WriteToTextFile
'作用：利用Adodb.Stream对象来写入UTF-8编码的文件
'示例：WriteToTextFile("File/FileName.htm",Content,UTF-8)
Sub WriteToTextFile(FileUrl,byval Str,CharSet)
set stm=server.CreateObject("adodb.stream")
stm.Type=2'以本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.WriteText str
stm.SaveToFile server.MapPath(FileUrl),2
stm.flush
stm.Close
set stm=nothing
End Sub%>

转载于:https://www.cnblogs.com/ly312/archive/2010/03/18/1689187.html