下载
加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 asp 汉字转utf8编码 ASP汉字编码转换UTF-8及UTF-8转换GB2312

asp 汉字转utf8编码 ASP汉字编码转换UTF-8及UTF-8转换GB2312.doc

asp 汉字转utf8编码 ASP汉字编码转换UTF-8及UT…

静听雨滴声_
2018-02-19 0人阅读 举报 0 0 暂无简介

简介:本文档为《asp 汉字转utf8编码 ASP汉字编码转换UTF-8及UTF-8转换GB2312doc》,可适用于领域

asp汉字转编码ASP汉字编码转换及转换GB导读:就爱阅读网友为您分享以下“ASP汉字编码转换及转换GB”资讯希望对您有所帮助感谢您对tocom的支持!ASP汉字编码转换及转换GBfunctionchineseunicode(Str)dimidimStronedimStrunicodefori=tolen(Str)Strone=Mid(Str,i,)Strunicode=Strunicodechr()Strunicode=Strunicodechr()Strunicode=Strunicodechr()Strunicode=StrunicodeHex(ascw(Strone))Strunicode=Strunicodechr()nextResponseWriteStrunicodeendfunctionToGBfunctionGB(Str)forDig=tolen(Str)ifmid(Str,Dig,)=“”theniflen(Str)=DigthenGBStr=GBStrConvChinese(mid(Str,Dig,))Dig=DigelseGBStr=GBStrmid(Str,Dig,)endifelseGBStr=GBStrmid(Str,Dig,)endifnextGB=GBStrendfunctionfunctionConvChinese(x)A=split(mid(x,),””)i=j=fori=toubound(A)A(i)=cto(A(i))nextfori=toubound(A)DigS=instr(A(i),””)Unicode=““forj=toDigSifj=thenA(i)=right(A(i),len(A(i))DigS)Unicode=UnicodeA(i)elsei=iA(i)=right(A(i),len(A(i)))Unicode=UnicodeA(i)endifnextiflen(cto(Unicode))=thenConvChinese=ConvChinesechrw(int(“H”cto(Unicode)))elseConvChinese=ConvChinesechr(int(“H”cto(Unicode)))endifnextendfunctionfunctioncto(x)i=fori=tolen(x)stepcto=ctohex(cto(mid(x,i,)))nextendfunctionfunctiontocom,您的在线图书馆

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/4

asp 汉字转utf8编码 ASP汉字编码转换UTF-8及UTF-8转换GB2312

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利