精美而实用的网站，关注web编程技术、网站运营、SEO推广，让您轻松愉快的学习

ASP利用AdoDb.Stream对象来写入或读取一个UTF-8格式的文本文件，用两个函数来实现，方便以后使用，对asp中的AdoDb.Stream对象不熟悉的话，正好可以参考下。

一、写入TXT文本文件，设定文件格式为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
%>

二、读取TXT文本内容

<%
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
%>

函数参数说明：

FileUrl：需要读取或写入的TXT文本路径；

CharSet：需要读取或写入TXT文本的编码格式，比如UTF-8

Tags：ASP Stream 文本文件