ASP utiliza UTF8 para convertir el código estándar nacional GB2312: GB2312 a UTF-8. Los amigos que lo necesiten pueden consultarlo. Copie el código de código de la siguiente manera:
'Comentarios de estilo de codificación personal (la primera letra minúscula en el nombre de la variable indica el tipo de variable)
'i: es de tipo entero;
's: es Cadena;
Función U2UTF8(Byval a_iNum)
Resultado tenue, sUTF8
Atenuar iTemp,iHexNum,i
iNumHex = Recortar(a_iNum)
Si iHexNum = Entonces
Función de salida
Terminar si
sResultado =
Si (iHexNum < 128) entonces
sResultado = sResultado & iNumHex
De lo contrario (iHexNum <2048) Entonces
sResultado = ChrB(&H80 + (iHexNum y &H3F))
iNumHex = iNumHex / &H40
sResultado = ChrB(&HC0 + (iHexNum y &H1F)) & sResultado
De lo contrario (iHexNum <65536) Entonces
sResultado = ChrB(&H80 + (iHexNum y &H3F))
iNumHex = iNumHex / &H40
sResultado = ChrB(&H80 + (iHexNum y &H3F)) & sResultado
iNumHex = iNumHex / &H40
sResultado = ChrB(&HE0 + (iHexNum y &HF)) & sResultado
Terminar si
U2UTF8 = sResultado
Función final
Función GB2UTF(Byval a_sStr)
Dim sGB,sResult,sTemp
Atenuar iLen,iUnicode,iTemp,i
sGB = Recortar(a_sStr)
iLen = Len(sGB)
Para i = 1 Para iLen
sTemp = Medio(sGB,i,1)
iTemp = Asc(sTemp)
Si (iTemp>127 O iTemp<0) Entonces
iUnicode = AscW(sTemp)
Si iUnicode <0 entonces
iUnicode = iUnicode + 65536
Terminar si
Demás
iUnicode = iTemp
Terminar si
sResultado = sResultado y U2UTF8(iUnicode)
Próximo
GB2UTF = sResultado
Función final
'Método de llamada
Respuesta.BinaryWrite(GB2UTF(chino))