asp 把UTF8转换GB2312代码

'个人代码风格注释（变量名中第一个小写字母表表示变量类型）
'i:为Integer型;
's:为String;
Function U2UTF8(Byval a_iNum)
Dim sResult,sUTF8
Dim iTemp,iHexNum,i

iHexNum = Trim(a_iNum)

If iHexNum = “” Then
Exit Function
End If

sResult = “”

If (iHexNum < 128) Then
sResult = sResult & iHexNum
ElseIf (iHexNum < 2048) Then
sResult = ChrB(&H80 (iHexNum And &H3F))
iHexNum = iHexNum &H40
sResult = ChrB(&HC0 (iHexNum And &H1F)) & sResult
ElseIf (iHexNum < 65536) Then
sResult = ChrB(&H80 (iHexNum And &H3F))
iHexNum = iHexNum &H40
sResult = ChrB(&H80 (iHexNum And &H3F)) & sResult
iHexNum = iHexNum &H40
sResult = ChrB(&HE0 (iHexNum And &HF)) & sResult
End If

U2UTF8 = sResult
End Function

Function GB2UTF(Byval a_sStr)
Dim sGB,sResult,sTemp
Dim iLen,iUnicode,iTemp,i

sGB = Trim(a_sStr)
iLen = Len(sGB)
For i = 1 To iLen
sTemp = Mid(sGB,i,1)
iTemp = Asc(sTemp)

If (iTemp>127 OR iTemp<0) Then
iUnicode = AscW(sTemp)
If iUnicode<0 Then
iUnicode = iUnicode 65536
End If
Else
iUnicode = iTemp
End If

sResult = sResult & U2UTF8(iUnicode)
Next

GB2UTF = sResult
End Function

'调用方法
Response.BinaryWrite(GB2UTF(“中国人”))

您可能感兴趣的文章：
js编码转换 utf8转为gb2312编码
php 检测字符编码代码
php iconv函数解决utf-8与gb2312编码转换问题
asp文件怎么转换成php文件
php不使用iconv库进行gb2312与utf-8编码转换的函数
mysql中文乱码解决方法汇总
asp 把UTF8转换GB2312代码
mysql 编码转换三种方法
php 自动检测内容编码并转换的代码
php编码转换 实现gbk编码转换为utf8