程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> asp 把UTF8轉換GB2312代碼

asp 把UTF8轉換GB2312代碼

編輯:關於ASP編程

    個人代碼風格注釋(變量名中第一個小寫字母表表示變量類型)
    i:為Integer型;
    s:為String;
    Function U2UTF8(Byval a_iNum)
    Dim sResult,sUTF8
    Dim iTemp,iHexNum,i

    iHexNum = Trim(a_iNum)

    If iHexNum = “” Then
    Exit Function
    End If

    sResult = “”

    If (iHexNum < 128) Then
    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
    End If

    U2UTF8 = sResult
    End Function

    Function GB2UTF(Byval a_sStr)
    Dim sGB,sResult,sTemp
    Dim iLen,iUnicode,iTemp,i

    sGB = Trim(a_sStr)
    iLen = Len(sGB)
    For i = 1 To iLen
    sTemp = Mid(sGB,i,1)
    iTemp = Asc(sTemp)

    If (iTemp>127 OR iTemp<0) Then
    iUnicode = AscW(sTemp)
    If iUnicode<0 Then
    iUnicode = iUnicode + 65536
    End If
    Else
    iUnicode = iTemp
    End If

    sResult = sResult & U2UTF8(iUnicode)
    Next

    GB2UTF = sResult
    End Function

    調用方法
    Response.BinaryWrite(GB2UTF(“中國人”))

    1. 上一頁:
    2. 下一頁:
    Copyright © 程式師世界 All Rights Reserved