ASP ใช้ UTF8 เพื่อแปลงรหัสมาตรฐานแห่งชาติ GB2312 - GB2312 เป็น UTF-8 เพื่อนที่ต้องการความช่วยเหลือสามารถอ้างอิงได้ คัดลอกรหัสรหัสดังต่อไปนี้:
'ความคิดเห็นเกี่ยวกับรูปแบบการเขียนโค้ดส่วนตัว (อักษรตัวพิมพ์เล็กตัวแรกในชื่อตัวแปรจะระบุถึงประเภทของตัวแปร)
'i: เป็นประเภทจำนวนเต็ม;
's: เป็นสตริง;
ฟังก์ชั่น U2UTF8(Byval a_iNum)
Dim sResult, sUTF8
หรี่ iTemp, iHexNum, i
iHexNum = ตัดแต่ง(a_iNum)
ถ้า iHexNum = จากนั้น
ออกจากฟังก์ชัน
สิ้นสุดถ้า
ผลลัพธ์ =
ถ้า (iHexNum < 128) แล้ว
sResult = sResult & iHexNum
ElseIf (iHexNum < 2048) จากนั้น
sResult = ChrB(&H80 + (iHexNum และ &H3F))
iHexNum = iHexNum / &H40
sResult = ChrB(&HC0 + (iHexNum และ &H1F)) & sResult
ElseIf (iHexNum < 65536) จากนั้น
sResult = ChrB(&H80 + (iHexNum และ &H3F))
iHexNum = iHexNum / &H40
sResult = ChrB(&H80 + (iHexNum และ &H3F)) & sResult
iHexNum = iHexNum / &H40
sResult = ChrB(&HE0 + (iHexNum และ &HF)) & sResult
สิ้นสุดถ้า
U2UTF8 = ผลลัพธ์
ฟังก์ชันสิ้นสุด
ฟังก์ชัน GB2UTF(Byval a_sStr)
หรี่ sGB, sResult, sTemp
Dim iLen,iUnicode,iTemp,i
sGB = ตัดแต่ง (a_sStr)
ไอเลน = เลน(sGB)
สำหรับ i = 1 ถึง iLen
sTemp = กลาง(sGB,i,1)
iTemp = Asc(sTemp)
ถ้า (iTemp>127 หรือ iTemp<0) จากนั้น
iUnicode = AscW(sTemp)
ถ้า iUnicode<0 แล้ว
iUnicode = iUnicode + 65536
สิ้นสุดถ้า
อื่น
iUnicode = iTemp
สิ้นสุดถ้า
sResult = sResult & U2UTF8(iUnicode)
ต่อไป
GB2UTF = sผลลัพธ์
ฟังก์ชันสิ้นสุด
'วิธีโทร
Response.BinaryWrite(GB2UTF(ภาษาจีน))