ASP用ADODB.Stream代替FSO读写文本文件

<%
'读取文件
Function ReadFile(ByVal strFile, ByVal strEncode)
    Dim objStream
    On Error Resume Next
    Set objStream = Server.CreateObject("ADODB.Stream")
    If Err.Number=-2147221005 Then 
        ReadFile = "ADODB.Stream对象创建失败！"
        Err.Clear
        Exit Function
    End If
    With objStream
        .Type = 2
        .Mode = 3
        .Open
        .LoadFromFile Server.MapPath(strFile)
        If Err.Number<>0 Then
			ReadFile = strFile & "打开失败！"
			Err.Clear
			Exit Function
        End If
        .Charset = strEncode
        .Position = 2
        ReadFile = .ReadText
        .Close
    End With
    Set objStream = Nothing
End Function

'写入文件
Sub WriteFile(ByVal strFile, ByVal strBody, ByVal strEncode)
    Dim objStream
    On Error Resume Next
    Set objStream = Server.CreateObject("ADODB.Stream")
    If Err.Number=-2147221005 Then 
        Response.Write "ADODB.Stream对象创建失败！"
        Err.Clear
        Exit Sub
    End If
    With objStream
        .Type = 2
        .Open
        .Charset = strEncode
        .Position = objStream.Size
        .WriteText = strBody
        .SaveToFile Server.MapPath(strFile),2
        .Close
    End With
    Set objStream = Nothing
End Sub
%>

<%
WriteFile "aaa.txt", "www.mzwu.com", "utf-8"
Response.Write ReadFile("aaa.txt", "utf-8")
%>