ASP ÀïÃæÓÐÄÚÖõÄ×Ö·û±àÂëת»»·½·¨Âð£¿

ÈçÌâ¡«ÏÖÔÚÓöµ½Ò»¸ö GB ת UTF-8 µÄÎÊÌâ¡­¡­
·ÇѧÊõÈËÔ±£¬ÄÜ´ÕºÏÓþͺá«¡«

---

Òä¾­×¢½âµÄºÜÏêϸµÄ£¡£¡£¡

VB code:
'GBתUTF8
Function toUTF8(szInput)
Dim wch, uch, szRet
Dim x
Dim nAsc, nAsc2, nAsc3
'Èç¹ûÊäÈë²ÎÊýΪ¿Õ£¬ÔòÍ˳öº¯Êý
If szInput = "" Then
toUTF8 = szInput
Exit Function
End If
'¿ªÊ¼×ª»»
For x = 1 To Len(szInput)
'ÀûÓÃmidº¯Êý·Ö²ðGB±àÂëÎÄ×Ö
wch = Mid(szInput, x, 1)
'ÀûÓÃascWº¯Êý·µ»Øÿһ¸öGB±àÂëÎÄ×ÖµÄUnicode×Ö·û´úÂë
'×¢£ºascº¯Êý·µ»ØµÄÊÇANSI ×Ö·û´úÂ룬עÒâÇø±ð
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
'GB±àÂëÎÄ×ÖµÄUnicode×Ö·û´úÂëÔÚ0800 - FFFFÖ®¼ä²ÉÓÃÈý×Ö½ÚÄ£°æ
uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _
Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _
Hex(nAsc And &H3F Or &H80)