-
ASP模仿PHP的iconv函数实现编码互转,utf-8转gb2312和gb2312转utf-8互转函数
网络 2014/8/15 18:09:18'仿PHP编码转换 '用法:iconv("UTF-8","GB2312","要转换的编码") 'UTF-8转GB2312 Function iconv(InCharset,OutCharset,OutStr) Dim File Set File = server.CreateObject(adsStr) File.Charset = InCharset '输入编码 File.Mode = 3 '可读写 File.Open File.Type = 2 '文本 File.Position = 0 '必须位于 Stream (0) 的开始处,这样才能设置 Charset,且是文本数据 File.WriteText OutStr '按文本读取 File.Position = 0 File.Charset = OutCharset '输出编码 iconv = File.ReadText File.Close Set File = Nothing End Function
阅读(1437) 分享(0)
上一篇: 怎么防止百度推广排名被恶意点击刷屏?
下一篇: 公司应不应该禁止程序员上网?