您正在使用IPV4(35.168.110.128)访问本站 您本次共访问本站 1 次
 用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
[公益]文明驾车我带头,文明行路我带头,礼貌让座我带头      

【腾讯云】多款云产品1折起,买云服务器送免费机器,最长免费续3个月      
[公益] 节省一分零钱 献出一份爱心 温暖世间真情      
2022年 中秋节 21
2022年 国庆节 42
2023年 元 旦 134
2023年 春 节 155
 
本类新增
本类热门文章
您现在的位置:首页 >> ASP/ASP.net >> 内容
ASP开发中一个把GB2312转UTF-8编码的函数
内容摘要: '中文短信UTF-8编码PrivateFunctionGBtoUTF8(szInput)Dimwch,uch,szRetDimxDimnAsc,nAsc2,nAsc3IfszInput=''ThenGBtoUTF8=szInputExitFunctionEndIfForx=1ToLen(szInput)wch=Mid(szInput,x,1)nAsc=Asc......
'中文短信UTF-8编码

PrivateFunctionGBtoUTF8(szInput)

Dimwch,uch,szRet

Dimx

DimnAsc,nAsc2,nAsc3

IfszInput=""Then

GBtoUTF8=szInput

ExitFunction

EndIf

Forx=1ToLen(szInput)

wch=Mid(szInput,x,1)

nAsc=AscW(wch)

IfnAsc<0ThennAsc=nAsc+65536

If(nAscAnd&HFF80)=0Then

szRet=szRet&wch

Else

If(nAscAnd&HF000)=0Then

uch="%"&Hex(((nAsc\2^6))Or&HC0)&Hex(nAscAnd&H3FOr&H80)

szRet=szRet&uch

Else

uch="%"&Hex((nAsc\2^12)Or&HE0)&"%"&_

Hex((nAsc\2^6)And&H3FOr&H80)&"%"&_

Hex(nAscAnd&H3FOr&H80)

szRet=szRet&uch

EndIf

EndIf

Next

GBtoUTF8=szRet

EndFunction

上一篇:asp 删除数据库记录的代码 下一篇:asp正则替换链接实现伪静态效果
发布日期:2022/6/7
手机扫二维码直达本页
发布时间:14:30:25
点击:31
录入:壹家怡园
相关文章
Baidu

YiJiaCMS 6.3.1.220701(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,百度云加速提供加速防护
Copyright©2000-2022