ASP は UTF8 を使用して GB2312 国家標準コードを変換します。必要な友人はそれを参照できます。次のようにコードをコピーします。
'個人的なコーディング スタイルのコメント (変数名の最初の小文字は変数の型を示します)
'i: は整数型です。
's: は文字列です。
関数 U2UTF8(Byval a_iNum)
Dim sResult,sUTF8
Dim iTemp,iHexNum,i
iHexNum = トリム(a_iNum)
iHexNum = の場合
終了関数
終了の場合
結果 =
(iHexNum < 128) の場合
sResult = sResult & iHexNum
ElseIf (iHexNum < 2048) then
sResult = ChrB(&H80 + (iHexNum And &H3F))
iHexNum = iHexNum / &H40
sResult = ChrB(&HC0 + (iHexNum And &H1F)) & sResult
ElseIf (iHexNum < 65536) then
sResult = ChrB(&H80 + (iHexNum And &H3F))
iHexNum = iHexNum / &H40
sResult = ChrB(&H80 + (iHexNum And &H3F)) & sResult
iHexNum = iHexNum / &H40
sResult = ChrB(&HE0 + (iHexNum And &HF)) & sResult
終了の場合
U2UTF8 = s結果
終了機能
関数 GB2UTF(Byval a_sStr)
薄暗い sGB、sResult、sTemp
ディム iLen、iUnicode、iTemp、i
sGB = トリム(a_sStr)
iLen = Len(sGB)
For i = 1 To iLen
sTemp = Mid(sGB,i,1)
iTemp = Asc(sTemp)
(iTemp>127 OR iTemp<0) の場合
iUnicode = AscW(sTemp)
iUnicode<0 の場合
iUnicode = iUnicode + 65536
終了の場合
それ以外
iUnicode = iTemp
終了の場合
sResult = sResult & U2UTF8(iUnicode)
次
GB2UTF = s結果
終了機能
'メソッドの呼び出し
Response.BinaryWrite(GB2UTF(中国語))