用adodb.stream来读取可以指定charset

qjiqun

用adodb.stream来读取可以指定charset，这种拿到代码具体要怎么用才可以？

代码:
Function LoadFile(ByVal File)
    Dim objStream
    On Error Resume Next
    Set objStream = Server.CreateObject("ADODB.Stream")
    With objStream
        .Type = 2
        .Mode = 3
        .Open
        .LoadFromFile Server.MapPath(File)
        If Err.Number<>0 Then
    Response.Write "出错，文件不存在"
    Err.Clear
    Response.End
        End If
        .Charset = "utf-8"
        .Position = 2
        LoadFile = .ReadText
        .Close
    End With
    Set objStream = Nothing
End Function
'存储内容到文件
'Set fso = Server.CreateObject("Scripting.FileSystemObject") '建立FSO对象
'        Set fo = fso.OpenTextFile(Cssurl&"style.css",1,true,0)
'        c= fo.ReadAll
'        fo.Close
        
%><form language="javascript" onsubmit="return CheckForm()"  name=WriteForm method="post" action="?action=save">
//'检测是否支持ADODB.Stream,不支持则不显示以下代码。
<textarea id="article"  name="article" cols="80" rows="30"><%=LoadFile("style.css")%></textarea>