没有合适的资源?快使用搜索试试~ 我知道了~
资源推荐
资源详情
资源评论
asp 中有关字符编码转换的几个函数
<%
1、'UTF 转 GB---将 UTF8 编码文字转换为 GB 编码文字
function UTF2GB(UTFStr)
for Dig=1 to len(UTFStr)
'如果 UTF8 编码文字以%开头则进行转换
if mid(UTFStr,Dig,1)="%" then
'UTF8 编码文字大于 8 则转换为汉字
if len(UTFStr) >= Dig+8 then
GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9))
Dig=Dig+8
else
GBStr=GBStr & mid(UTFStr,Dig,1)
end if
else
GBStr=GBStr & mid(UTFStr,Dig,1)
end if
next
UTF2GB=GBStr
end function
'UTF8 编码文字将转换为汉字
function ConvChinese(x)
A=split(mid(x,2),"%")
i=0
j=0
for i=0 to ubound(A)
A(i)=c16to2(A(i))
next
for i=0 to ubound(A)-1
DigS=instr(A(i),"0")
Unicode=""
for j=1 to DigS-1
if j=1 then
A(i)=right(A(i),len(A(i))-DigS)
Unicode=Unicode & A(i)
else
i=i+1
A(i)=right(A(i),len(A(i))-2)
Unicode=Unicode & A(i)
资源评论
- SignetChan2012-12-15不错,挺详细的,解决了我的问题!
雁舞九天
- 粉丝: 79
- 资源: 35
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功