以下讨论的是和GB2312 UTF-8 编码 函数相关的ASP开发中一个把GB2312转UTF-8编码的函数 教程文章，内容是本站精心挑选整理的教程，希望对广大的网友给到帮助,下面是详细内容：

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

[code]

'中文短信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[/code]

关于ASP开发中一个把GB2312转UTF-8编码的函数的内容写到这里就结束啦，您可以收藏本页网址http://www.alixixi.com/biancheng/ a/2018090621697.shtml方便下次再访问哦。