asp big5 gb2312 转 Unicode
ASP 如何實作 VB 的 StrConv 函數來進行 Unicode 轉換 ( vbFromUnicode / vbUnicode )
VB6 的StrConv 函數說明 :
傳回一特定轉換後的 Variant (String)。
語法
StrConv(string, conversion, LCID)
StrConv 函數的語法有以下的指名引數:
單元 說明
string 必要引數。為欲轉換的字串運算式。
conversion 必要引數:為Integer。其值的和決定轉換的型態。
LCID 選項的。如果與系統LocaleID不同,則為LocaleID(系統LocaleID為缺省值。)
vbUnicode (64) 據系統的預設字元碼對應頁將字串轉成 Unicode。
vbFromUnicode (128) 將字串由 Unicode 轉成系統的預設字元碼對應頁。
ASP 程式碼如下 :
<%
Response.Write ConvUnicode(FromUnicode("強力Power鎯頭Hammer"))
' FromUnicode
Function FromUnicode(strData)
Dim objStm
Set objStm = Server.CreateObject("ADODB.Stream")
objStm.Charset = "Big5"
objStm.Type = 2
objStm.Open
objStm.WriteText strData
objStm.Position = 0
objStm.Charset = "Unicode"
objStm.Type = 1
FromUnicode = MidB(objStm.Read, 1)
End Function
' Unicode
Function ConvUnicode(ByVal strData)
Dim rs, stm, bytAry, intLen
If Len(strData & "") > 0 Then
strData = MidB(strData, 1)
intLen = LenB(strData)
Set rs = Server.CreateObject("ADODB.Recordset")
Set stm = Server.CreateObject("ADODB.Stream")
rs.Fields.Append "X", 205, intLen
rs.Open
rs.AddNew
rs(0).AppendChunk strData & ChrB(0)
rs.Update
bytAry = rs(0).GetChunk(intLen)
stm.Type = 1
stm.Open
stm.Write bytAry
stm.Position = 0
stm.Type = 2
stm.Charset = "Big5"
ConvUnicode = stm.ReadText
End If
On Error Resume Next
stm.Close
Set stm = Nothing
rs.Close
Set rs = Nothing
End Function
%>
'Response.Write ConvUnicode(FromUnicode("強力Power鎯頭Hammer"))
Response.Write ConvUnicode(FromUnicode("我的电脑"))
' FromUnicode
Function FromUnicode(strData)
Dim objStm
Set objStm = Server.CreateObject("ADODB.Stream")
'objStm.Charset = "Unicode"
objStm.Charset = "gb2312"
objStm.Type = 2
objStm.Open
objStm.WriteText strData
objStm.Position = 0
objStm.Charset = "gb2312"
objStm.Type = 1
FromUnicode = MidB(objStm.Read, 1)
End Function
' Unicode
Function ConvUnicode(ByVal strData)
Dim rs, stm, bytAry, intLen
If Len(strData & "") > 0 Then
strData = MidB(strData, 1)
intLen = LenB(strData)
Set rs = Server.CreateObject("ADODB.Recordset")
Set stm = Server.CreateObject("ADODB.Stream")
rs.Fields.Append "X", 205, intLen
rs.Open
rs.AddNew
rs(0).AppendChunk strData & ChrB(0)
rs.Update
bytAry = rs(0).GetChunk(intLen)
stm.Type = 1
stm.Open
stm.Write bytAry
stm.Position = 0
stm.Type = 2
stm.Charset = "gb2312"
ConvUnicode = stm.ReadText
End If
On Error Resume Next
stm.Close
Set stm = Nothing
rs.Close
Set rs = Nothing
End Function
%>
asp big5 gb2312 转 Unicode相关推荐
- ASCII,unicode, utf8 ,big5 ,gb2312,gbk,gb18030等几种常用编码区别
ASCII,unicode, utf8 ,big5 ,gb2312,gbk,gb18030等几种常用编码区别 最近老为编码问题而烦燥,下定决心一定要将其弄明白!本文主要总 结网上一些朋友提供的 asc ...
- 关于编码ansi、GB2312、unicode与utf-8的区别
关于编码ansi.GB2312.unicode与utf-8的区别 2014-01-25 08:51 529人阅读 评论(0) 收藏 举报 本文章已收录于: 关于编码ansi.GB2312.uni ...
- QTextEdit显示中文乱码解决,中文GB2312转Unicode,QString、QByteArray 转换,16进制显示,toUtf8与toLocal8Bit区别
QString.QByteArray 的等效转换: QByteArray = QString.toUtf8();// 转换为Unicode字符集编码,多字节编码,单个中文占3~4个字节 QByteAr ...
- AJPFX解析关于编码ansi、GB2312、unicode与utf-8的区别
大家平时遇到乱码问题是否有自己的一套解决方案?这篇文章就是介绍一下常用的编码方式 关于编码ansi.GB2312.unicode与utf-8的区别 先做一个小小的试验: 在一个文件夹里,把一个txt文 ...
- Big5 = GBK GBK = Big5 GB2312 = GBK GBK = GB2312 互转
本文将介绍四个转换函数分别实现如下的转换: Big5 => GBK GBK => Big5 GB2312 => GBK GBK => GB2312 有关 GB2312 =〉BI ...
- GB2312转unicode程序(转)
GB2312转unicode程序 #ifndef UNICODE_H #define UNICODE_H #include <string.h> #ifdef __DEFLINUX__ # ...
- GB2312转unicode程序
GB2312转unicode程序 #ifndef UNICODE_H #define UNICODE_H #include <string.h> #ifdef __DEFLINUX__ # ...
- ASCII, GB2312, GBK, Unicode, UTF8之间的区别和联系
原文链接:https://zhuanlan.zhihu.com/p/258345888 感谢原作者的分享~本博客仅仅是为了做笔记 计算机是美国人发明的, 早期在处理文字方面, 美国人很自然地只考虑处理 ...
- 字符编码简介:ASCII,Unicode,UTF-8,GB2312及Unicode和UTF-8如何转化
转载请标明出处:http://blog.csdn.net/xx326664162/article/details/51453797 文章出自:薛瑄的博客 你也可以查看我的其他同类文章,也会让你有一定的 ...
- 深入理解-字符编码ASCII,GB2312,GBK,Unicode,UTF-8
字符编码 简介 起初再考虑写不写这篇文章,感觉这篇文章比较枯燥乏味,而且自己感觉也没理解的太透彻,就把理解的记录下来,所以这是纪念版的 前方高能,非战斗人员请迅速撤离,我要开始装逼了. Go hard ...
最新文章
- leetcode算法题--全排列
- Unique Paths II leetcode java
- JSTL解析——001
- 计算机的主要危害是什么意思,cpu使用率是什么意思 cpu使用率低但是电脑卡原因...
- CT基本概念(必须掌握)
- (MoMoCMS教程11)页面的SEO优化与外链
- JavaFX之TableView
- Thread系列——ThreadPool
- python中闭包的作用_Python闭包及其作用域
- 误码率matlab怎么计算,Matlab 仿真(7,4)汉明码 传输误码率
- 自然语言处理理论与实战
- 86. php 绘图体系(2)
- android studio2.3.6,Android Studio 2.3 问题汇总 - 解决一切障碍,为了更好的时代
- java带参数的方法笔记_Java学习笔记十一:Java中的方法
- Notepad2添加到右键菜单栏
- linux 4g 切换 有线网,4G和有线网络的自动切换
- SQL—————的分类
- Installing Oracle11g R2 RAC on RedHat Linux AS 5.5
- GBC代理“花生漫画PEANUTS”,遭遇侵权账户冻结应该怎么处理?
- Redis升级到 6.x 版本后,12306网站起飞了!
热门文章
- 软件设计文档——概要设计书
- 汇编语言编译器 masm.exe and link.exe
- 为什么罗氏线圈不能测直流电流?
- 网络登录计算机密码怎么设置,电脑怎么设置无线网密码?
- linux添加变色龙引导,变色龙Chameleon Install 2281引导工具 windows电脑安装黑苹果
- ListView分页加载数据
- 产品学习---互联网思维
- java项目-第37期基于springboot+layui实现的医院His系统【毕业设计】
- jmail组件 java,分享Jmail发送邮件工具类
- mac 终极教程,最全,最实用的教程