asp adodb.stream读取文件和写文件

读取文件操作：

'-------------------------------------------------

'函数名称: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=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格式的文本文件

'----------------------------------------------------

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

　　创建一个config.asp的文件

call WriteToTextFile("config.asp","http://www.cnit618.com","utf-8")

http://www.cnit618.com/html/fwdkf/asp/2056.htm