ASP verwendet UTF8, um den nationalen Standardcode GB2312 zu konvertieren. Freunde in Not können sich darauf beziehen. Kopieren Sie den Codecode wie folgt:
'Kommentare zum persönlichen Codierungsstil (der erste Kleinbuchstabe im Variablennamen gibt den Variablentyp an)
'i: ist vom Typ Integer;
's: ist String;
Funktion U2UTF8(Byval a_iNum)
Dimmen Sie sResult, sUTF8
Dim iTemp,iHexNum,i
iHexNum = Trim(a_iNum)
Wenn iHexNum = Dann
Exit-Funktion
Ende wenn
sResult =
Wenn (iHexNum < 128) Dann
sResult = sResult & iHexNum
ElseIf (iHexNum < 2048) Dann
sResult = ChrB(&H80 + (iHexNum Und &H3F))
iHexNum = iHexNum / &H40
sResult = ChrB(&HC0 + (iHexNum And &H1F)) & sResult
ElseIf (iHexNum < 65536) Dann
sResult = ChrB(&H80 + (iHexNum Und &H3F))
iHexNum = iHexNum / &H40
sResult = ChrB(&H80 + (iHexNum And &H3F)) & sResult
iHexNum = iHexNum / &H40
sResult = ChrB(&HE0 + (iHexNum And &HF)) & sResult
Ende wenn
U2UTF8 = sResult
Funktion beenden
Funktion GB2UTF(Byval a_sStr)
Dimmen Sie sGB, sResult, sTemp
Dimmen Sie iLen,iUnicode,iTemp,i
sGB = Trim(a_sStr)
iLen = Len(sGB)
Für i = 1 bis iLen
sTemp = Mid(sGB,i,1)
iTemp = Asc(sTemp)
Wenn (iTemp>127 ODER iTemp<0) Dann
iUnicode = AscW(sTemp)
Wenn iUnicode<0, dann
iUnicode = iUnicode + 65536
Ende wenn
Anders
iUnicode = iTemp
Ende wenn
sResult = sResult & U2UTF8(iUnicode)
Nächste
GB2UTF = sResult
Funktion beenden
'Aufrufmethode
Response.BinaryWrite(GB2UTF(Chinesisch))