ado.stream解决办法

ado.stream
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)
                    .Charset   =   "GB2312 "
                  .Position   =.size
  .writetext   "xulei ",adwriteline
  .Position   =2
                  response.write(   .ReadText)
  response.write(   .size)
  .SaveToFile   Server.MapPath(File),2
 
                  .Close
          End   With
          Set   objStream   =   Nothing
End   Function
保存的全是乱码请问如何处理

------解决方案--------------------
.charset=
------解决方案--------------------
With objStream
.Type = 2
.Open
.Charset = "GB2312 "
.Position = objStream.Size
.WriteText = “啊啊啊”
.SaveToFile Server.MapPath(File),2
.Close
End With
Set objStream = Nothing