28,409
社区成员




Function C4Code(vStr,FromCharset,ToCharset)
Dim File
Set File = server.CreateObject("Adodb.Stream")
File.Charset = ToCharset
File.Mode = 3
File.Open
File.Type = 2
File.Position = 0
File.WriteText vStr
File.Position = 0
File.Charset = FromCharset
C4Code = File.ReadText
End Function