asp 生成UTF-8的HTML页

'tmp = ReadFileFrom("xxxx.html","utf-8")
'Call  WriteFileTo("../index.html",content,"utf-8")

'********************************
'fc：文件内容，f：文件路径，cset：文件编码
'********************************
Function WriteFileTo(f,fc,cset)
  Dim objStream
  Set  objStream = Server.CreateObject("ADODB.Stream")
  With objStream
    .Open
    .Charset   = cset
    .Position  = objStream.Size
    .WriteText = fc
    .SaveToFile Server.Mappath(f), 2
    .Close
  End With
  Set objStream = Nothing 
End Function

'********************************
'f：文件路径，cset：文件编码
'********************************
Function ReadFileFrom(f,cset)
  Dim fc,objStream
  Set objStream = Server.CreateObject("ADODB.Stream")
  With objStream
    .Type = 2
    .Mode = 3
    .Charset = cset
    .Open
    .LoadFromFile Server.MapPath(f)
    fc = .ReadText
  End With
  Set objStream = Nothing 
  ReadFileFrom = fc
End Function