يستخدم ASP UTF8 لتحويل الكود القياسي الوطني GB2312 - GB2312 إلى UTF-8 ويمكن للأصدقاء المحتاجين الرجوع إليه. انسخ رمز الكود كما يلي:
'تعليقات نمط الترميز الشخصي (الحرف الصغير الأول في اسم المتغير يشير إلى نوع المتغير)
'i: هو نوع عدد صحيح؛
الصورة: هي سلسلة؛
الدالة U2UTF8(Byval a_iNum)
نتيجة باهتة، 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 = sResult
وظيفة النهاية
الدالة GB2UTF(Byval a_sStr)
خافت sGB، sResult، sTemp
خافت إيلين، iUnicode، iTemp، i
sGB = تقليم (a_sStr)
إيلين = لين (sGB)
لأني = 1 إلى إيلين
درجة الحرارة = منتصف (sGB، ط، 1)
إيتيمب = تصاعدي (sTemp)
إذا (iTemp>127 أو iTemp<0) إذن
إيونيكود = تصاعدي (sTemp)
إذا iUnicode <0 ثم
إيونيكود = إيونيكود + 65536
نهاية إذا
آخر
iUnicode = iTemp
نهاية إذا
sResult = sResult وU2UTF8(iUnicode)
التالي
GB2UTF = sResult
وظيفة النهاية
"طريقة الاتصال."
Response.BinaryWrite(GB2UTF (الصينية))