ASP menggunakan UTF8 untuk mengubah kode standar nasional GB2312 - GB2312 ke UTF-8. Copy kode kodenya sebagai berikut:
'Komentar gaya pengkodean pribadi (huruf kecil pertama pada nama variabel menunjukkan jenis variabel)
'i: bertipe Integer;
's: adalah String;
Fungsi U2UTF8(Byval a_iNum)
Redupkan hasilnya,sUTF8
Redupkan iTemp,iHexNum,i
iHexNum = Potong(a_iNum)
Jika iHexNum = Maka
Fungsi Keluar
Akhiri Jika
sHasil =
Jika (iHexNum <128) Maka
sHasil = sHasil & iHexNum
ElseIf (iHexNum <2048) Lalu
sHasil = ChrB(&H80 + (iHexNum Dan &H3F))
iHexNum = iHexNum / &H40
sHasil = ChrB(&HC0 + (iHexNum Dan &H1F)) & sHasil
ElseIf (iHexNum <65536) Lalu
sHasil = ChrB(&H80 + (iHexNum Dan &H3F))
iHexNum = iHexNum / &H40
sHasil = ChrB(&H80 + (iHexNum Dan &H3F)) & sHasil
iHexNum = iHexNum / &H40
sHasil = ChrB(&HE0 + (iHexNum Dan &HF)) & sHasil
Akhiri Jika
U2UTF8 = sHasil
Fungsi Akhir
Fungsi GB2UTF(Byval a_sStr)
Redupkan sGB,sResult,sTemp
Redupkan iLen,iUnicode,iTemp,i
sGB = Potong(a_sStr)
iLen = Len(sGB)
Untuk i = 1 Ke iLen
sTemp = Pertengahan(sGB,i,1)
iTemp = Asc(sTemp)
Jika (iTemp>127 ATAU iTemp<0) Lalu
iUnicode = AscW(sTemp)
Jika iUnicode<0 Lalu
iUnicode = iUnicode + 65536
Akhiri Jika
Kalau tidak
iUnicode = iTemp
Akhiri Jika
sHasil = sHasil & U2UTF8(iUnicode)
Berikutnya
GB2UTF = Hasil
Fungsi Akhir
'Metode panggilan
Respon.BinaryWrite(GB2UTF(Cina))