ASP utilise UTF8 pour convertir le code standard national GB2312 - GB2312 en UTF-8. Les amis dans le besoin peuvent s'y référer. Copiez le code comme suit :
'Commentaires personnels sur le style de codage (la première lettre minuscule du nom de la variable indique le type de variable)
'i : est de type entier ;
's : est une chaîne ;
Fonction U2UTF8(Byval a_iNum)
Dim sRésultat, sUTF8
Dim iTemp,iHexNum,i
iHexNum = Trim(a_iNum)
Si iHexNum = Alors
Fonction de sortie
Fin si
sRésultat =
Si (iHexNum < 128) Alors
sRésultat = sRésultat & iHexNum
ElseIf (iHexNum < 2048) Alors
sRésultat = ChrB(&H80 + (iHexNum Et &H3F))
iHexNum = iHexNum / &H40
sRésultat = ChrB(&HC0 + (iHexNum Et &H1F)) & sRésultat
ElseIf (iHexNum < 65536) Alors
sRésultat = ChrB(&H80 + (iHexNum Et &H3F))
iHexNum = iHexNum / &H40
sRésultat = ChrB(&H80 + (iHexNum Et &H3F)) & sRésultat
iHexNum = iHexNum / &H40
sRésultat = ChrB(&HE0 + (iHexNum Et &HF)) & sRésultat
Fin si
U2UTF8 = sRésultat
Fonction de fin
Fonction GB2UTF(Byval a_sStr)
Dim sGB,sResult,sTemp
Dim iLen,iUnicode,iTemp,i
sGB = Trim(a_sStr)
iLen = Len(sGB)
Pour i = 1 À iLen
sTemp = Milieu (sGB,i,1)
iTemp = Asc(sTemp)
Si (iTemp>127 OU iTemp<0) Alors
iUnicode = AscW(sTemp)
Si iUnicode<0 Alors
iUnicode = iUnicode + 65536
Fin si
Autre
iUnicode = iTemp
Fin si
sRésultat = sRésultat & U2UTF8 (iUnicode)
Suivant
GB2UTF = sRésultat
Fonction de fin
'Méthode d'appel
Réponse.BinaryWrite(GB2UTF(Chinois))