asp转换字符串编码

答案：
' C4Code(vStr,FromCharset,ToCharset)
' 转换字符串编码
'
' #####################################################
'
' vStr 为原始字符串
' FromCharset 为原始编码
' ToCharset 为转换后编码
'
' #####################################################
'
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

上一个：asp统计中文混合的字符串长度
下一个：asp截取、测量字符串