ASP usa UTF8 para converter o código padrão nacional GB2312 - GB2312 em UTF-8. Amigos necessitados podem consultá-lo. Copie o código do código da seguinte forma:
'Comentários de estilo de codificação pessoal (a primeira letra minúscula no nome da variável indica o tipo da variável)
'i: é do tipo Inteiro;
's: é String;
Função U2UTF8 (Byval a_iNum)
Dim resultado,sUTF8
Dim iTemp,iHexNum,i
iHexNum = Aparar(a_iNum)
Se iHexNum = então
Função de saída
Terminar se
sResultado =
Se (iHexNum <128) Então
sResult = sResult & iHexNum
ElseIf (iHexNum <2048) Então
sResult = ChrB(&H80 + (iHexNum e &H3F))
iHexNum = iHexNum / &H40
sResult = ChrB(&HC0 + (iHexNum e &H1F)) & sResult
ElseIf (iHexNum <65536) Então
sResult = ChrB(&H80 + (iHexNum e &H3F))
iHexNum = iHexNum / &H40
sResult = ChrB(&H80 + (iHexNum e &H3F)) & sResult
iHexNum = iHexNum / &H40
sResult = ChrB(&HE0 + (iHexNum e &HF)) & sResult
Terminar se
U2UTF8 = resultado
Função final
Função GB2UTF(Byval a_sStr)
Dim sGB,sResult,sTemp
Dim iLen,iUnicode,iTemp,i
sGB = Trim(a_sStr)
iLen = Len(sGB)
Para i = 1 Para iLen
temperatura = Médio(sGB,i,1)
iTemp = Asc(sTemp)
Se (iTemp>127 OU iTemp<0) Então
iUnicode = AscW(sTemp)
Se iUnicode<0 então
iUnicode = iUnicode + 65536
Terminar se
Outro
iUnicode = iTemp
Terminar se
sResult = sResult & U2UTF8(iUnicode)
Próximo
GB2UTF = resultado
Função final
'Método de chamada
Response.BinaryWrite(GB2UTF(chinês))