實(shí)現(xiàn)UTF8轉(zhuǎn)換GB2312國(guó)標(biāo)碼的asp代碼

'個(gè)人代碼風(fēng)格注釋?zhuān)ㄗ兞棵械谝粋€(gè)小寫(xiě)字母表表示變量類(lèi)型）
'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 iTemp0) Then
iUnicode = AscW(sTemp)
If iUnicode0 Then
iUnicode = iUnicode + 65536
End If
Else
iUnicode = iTemp
End If

sResult = sResult U2UTF8(iUnicode)
Next

GB2UTF = sResult
End Function

'調(diào)用方法
Response.BinaryWrite(GB2UTF(“中國(guó)人”))