利用AdoDb.Stream对象来读取UTF-8格式的文本文件 利用AdoDb.Stream对象来写入UTF-8格式的文本文件

<% ‘————————————————- ‘函数名称:ReadTextFile ‘作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件 ‘—————————————————- function ReadFromTextFile (FileUrl,CharSet)  dim str  set stm=server.CreateObject(“adodb.stream”)  stm.Type=2 ‘以本模式读取  stm.mode=3   stm.charset=CharSe

代码如下:‘函数名称:ReadTextFile     ‘作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件     ‘—————————————————-     Function ReadFromTextFile (FileUrl,CharSet)         If FileUrl = “” OR IsNull(FileUrl) Then             ReadFromTextFile = “”             Exit Function