ASP研发中一个把GB2312转UTF-8编码的函数

发布时间：2023-08-04 14:10:29 所属栏目：Asp教程来源：

导读：今天在给客户做一个手机短信发送接口，由于短信服务商的接口只支持中文的UTF-8编码方式，而客户的网站又是GB2312编码，用UTF-8做的页面可以正常发送短信了，但想想这样两种编码分开来，对网站系统的整合还是很方便，

今天在给客户做一个手机短信发送接口，由于短信服务商的接口只支持中文的UTF-8编码方式，而客户的网站又是GB2312编码，用UTF-8做的页面可以正常发送短信了，但想想这样两种编码分开来，对网站系统的整合还是很方便，试了很多代码，终于还是调试出这个GB2312转UTF-8编码的函数，分享出来给大家。

错新网web开发网为大家整理了这篇ASP开发中一个把GB2312转UTF-8编码的函数，如果这篇文章在您的工作或学习中有帮助，欢迎常回来看看哦，更多精彩的教程请访问我们的主页,以下是教程浏览：

今天在给客户做一个手机短信发送接口，由于短信服务商的接口只支持中文的UTF-8编码方式，而客户的网站又是GB2312编码，用UTF-8做的页面可以正常发送短信了，但想想这样两种编码分开来，对网站系统的整合还是很方便，试了很多代码，终于还是调试出这个GB2312转UTF-8编码的函数，分享出来给大家。

程序代码(For Alixixi.com)如下:

'中文短信UTF-8编码

Private Function GBtoUTF8(szInput)

Dim wch, uch, szRet

Dim x

Dim nAsc, nAsc2, nAsc3

If szInput = "" Then

GBtoUTF8= szInput

Exit Function

End If

For x = 1 To Len(szInput)

wch = Mid(szInput, x, 1)

nAsc = AscW(wch)

If nAsc < 0 Then nAsc = nAsc + 65536

If (nAsc And &HFF80) = 0 Then

szRet = szRet & wch

Else

If (nAsc And &HF000) = 0 Then

uch = "%" & Hex(((nAsc / 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)

szRet = szRet & uch

Else

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

Hex((nAsc / 2 ^ 6) And &H3F Or &H80) & "%" & _

Hex(nAsc And &H3F Or &H80)

szRet = szRet & uch

End If

End If

Next

GBtoUTF8= szRet

End Function

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!