ASP использует UTF8 для преобразования кода национального стандарта GB2312 — GB2312 в UTF-8. Друзья, нуждающиеся в этом, могут обратиться к нему. Скопируйте код кода следующим образом:
'Комментарии к индивидуальному стилю кодирования (первая строчная буква в имени переменной указывает тип переменной)
'i: целочисленный тип;
's: это строка;
Функция U2UTF8(Byval a_iNum)
Тусклый результат, sUTF8
Тусклый iTemp,iHexNum,i
iHexNum = Trim(a_iNum)
Если iHexNum = Тогда
Выход из функции
Конец, если
сРезультат =
Если (iHexNum < 128) Тогда
sResult = sResult & iHexNum
ИначеЕсли (iHexNum < 2048) Тогда
sResult = ChrB(&H80 + (iHexNum и &H3F))
iHexNum = iHexNum / &H40
sResult = ChrB(&HC0 + (iHexNum и &H1F)) & sResult
ИначеЕсли (iHexNum < 65536) Тогда
sResult = ChrB(&H80 + (iHexNum и &H3F))
iHexNum = iHexNum / &H40
sResult = ChrB(&H80 + (iHexNum и &H3F)) & sResult
iHexNum = iHexNum / &H40
sResult = ChrB(&HE0 + (iHexNum And &HF)) & sResult
Конец, если
U2UTF8 = сРезультат
Конечная функция
Функция GB2UTF(Byval a_sStr)
Тусклый sGB,sResult,sTemp
Дим iLen, iUnicode, iTemp, я
sGB = Trim(a_sStr)
iLen = Len(sGB)
Для i = 1 To iLen
sTemp = Mid(sGB,i,1)
iTemp = Asc(sTemp)
Если (iTemp>127 ИЛИ iTemp<0) Тогда
iUnicode = AscW(sTemp)
Если iUnicode<0 Тогда
iЮникод = iЮникод + 65536
Конец, если
Еще
iUnicode = iTemp
Конец, если
sResult = sResult & U2UTF8(iUnicode)
Следующий
GB2UTF = сРезультат
Конечная функция
'Вызов метода
Response.BinaryWrite(GB2UTF(китайский))