{"id":177,"date":"2008-12-02T09:38:34","date_gmt":"2008-12-02T01:38:34","guid":{"rendered":""},"modified":"2014-02-27T22:58:59","modified_gmt":"2014-02-27T14:58:59","slug":"gb2312%e8%bd%acutf-8","status":"publish","type":"post","link":"http:\/\/www.xiaoyebailong.com\/index.php\/2008\/12\/02\/177.htm","title":{"rendered":"GB2312\u8f6cUTF-8"},"content":{"rendered":"

‘\u4e2a\u4eba\u4ee3\u7801\u98ce\u683c\u6ce8\u91ca\uff08\u53d8\u91cf\u540d\u4e2d\u7b2c\u4e00\u4e2a\u5c0f\u5199\u5b57\u6bcd\u8868\u8868\u793a\u53d8\u91cf\u7c7b\u578b\uff09
\n‘i:\u4e3aInteger\u578b;
\n‘s:\u4e3aString;
\nFunction U2UTF8(Byval a_iNum)
\n    Dim sResult,sUTF8
\n    Dim iTemp,iHexNum,i<\/p>\n

    iHexNum = Trim(a_iNum)<\/p>\n

    If iHexNum = "" Then
\n        Exit Function
\n    End If<\/p>\n

    sResult = ""<\/p>\n

    If (iHexNum < 128) Then
\n        sResult = sResult & iHexNum
\n    ElseIf (iHexNum < 2048) Then
\n        sResult = ChrB(&H80 + (iHexNum And &H3F))
\n        iHexNum = iHexNum \\ &H40
\n        sResult = ChrB(&HC0 + (iHexNum And &H1F)) & sResult
\n    ElseIf (iHexNum < 65536) Then
\n        sResult = ChrB(&H80 + (iHexNum And &H3F))
\n        iHexNum = iHexNum \\ &H40
\n        sResult = ChrB(&H80 + (iHexNum And &H3F)) & sResult
\n        iHexNum = iHexNum \\ &H40
\n        sResult = ChrB(&HE0 + (iHexNum And &HF)) & sResult
\n    End If<\/p>\n

    U2UTF8 = sResult
\nEnd Function<\/p>\n

Function GB2UTF(Byval a_sStr)
\n    Dim sGB,sResult,sTemp
\n    Dim iLen,iUnicode,iTemp,i<\/p>\n

    sGB = Trim(a_sStr)
\n    iLen = Len(sGB)
\n    For i = 1 To iLen
\n         sTemp = Mid(sGB,i,1)
\n         iTemp = Asc(sTemp)<\/p>\n

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

        sResult = sResult & U2UTF8(iUnicode)
\n    Next<\/p>\n

    GB2UTF = sResult
\nEnd Function<\/p>\n

‘\u8c03\u7528\u65b9\u6cd5
\nResponse.BinaryWrite(GB2UTF("\u4e2d\u56fd\u4eba"))<\/p>\n","protected":false},"excerpt":{"rendered":"

‘\u4e2a\u4eba\u4ee3\u7801\u98ce\u683c\u6ce8\u91ca\uff08\u53d8\u91cf\u540d\u4e2d\u7b2c\u4e00\u4e2a\u5c0f\u5199\u5b57\u6bcd\u8868\u8868\u793a\u53d8\u91cf\u7c7b\u578b\uff09 ‘i:\u4e3aInteger\u578b; ‘s:\u4e3aString; Function U2UTF8(Byval a_iNum)   &nbs…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"topic":[],"class_list":["post-177","post","type-post","status-publish","format-standard","hentry","category-technology"],"_links":{"self":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/177","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/comments?post=177"}],"version-history":[{"count":1,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/177\/revisions"}],"predecessor-version":[{"id":66046,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/177\/revisions\/66046"}],"wp:attachment":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/media?parent=177"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/categories?post=177"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/tags?post=177"},{"taxonomy":"topic","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/topic?post=177"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}