<li id="9li22"><tr id="9li22"><kbd id="9li22"></kbd></tr></li>

    <rp id="9li22"></rp>
    <li id="9li22"><acronym id="9li22"><cite id="9li22"></cite></acronym></li><em id="9li22"><tr id="9li22"></tr></em>
    <dd id="9li22"><track id="9li22"></track></dd>

    1. <button id="9li22"><acronym id="9li22"><input id="9li22"></input></acronym></button><em id="9li22"><strike id="9li22"></strike></em>

    2.   虛擬主機域名注冊-常見問題網絡編程問題ASP

      aspURL中有中文漢字 接收亂碼的問題
      function UTF2GB(UTFStr)
      
        for Dig=1 to len(UTFStr)
          '如果UTF8編碼文字以%開頭則進行轉換
          if mid(UTFStr,Dig,1)="%" then
             'UTF8編碼文字大于8則轉換為漢字
            if len(UTFStr) >= Dig+8 then
              GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9))
              Dig=Dig+8
           else
             GBStr=GBStr & mid(UTFStr,Dig,1)
           end if
         else
            GBStr=GBStr & mid(UTFStr,Dig,1)
         end if
       next
       UTF2GB=GBStr
       end function
      
      function convchinese(x)
      a=split(mid(x,2),"%")
      i=0
      j=0
      
      for i=0 to ubound(a)
      a(i)=c16to2(a(i))
      next
      
      for i=0 to ubound(a)-1
      digs=instr(a(i),"0")
      unicode=""
      for j=1 to digs-1
      if j=1 then
      a(i)=right(a(i),len(a(i))-digs)
      unicode=unicode & a(i)
      else
      i=i+1
      a(i)=right(a(i),len(a(i))-2)
      unicode=unicode & a(i)
      end if
      next
      
      if len(c2to16(unicode))=4 then
      convchinese=convchinese & chrw(int("&h" & c2to16(unicode)))
      else
      convchinese=convchinese & chr(int("&h" & c2to16(unicode)))
      end if
      next
      end function
      
      function c2to16(x)
      i=1
      for i=1 to len(x) step 4
      c2to16=c2to16 & hex(c2to10(mid(x,i,4)))
      next
      end function
      
      function c2to10(x)
      c2to10=0
      if x="0" then exit function
      i=0
      for i= 0 to len(x) -1
      if mid(x,len(x)-i,1)="1" then c2to10=c2to10+2^(i)
      next
      end function
      
      function c16to2(x)
      i=0
      for i=1 to len(trim(x))
      tempstr= c10to2(cint(int("&h" & mid(x,i,1))))
      do while len(tempstr)<4
        tempstr="0" & tempstr
        loop
        c16to2=c16to2 & tempstr
        next
        end function
      
        function c10to2(x)
        mysign=sgn(x)
        x=abs(x)
        digs=1
        do
        if x<2^digs then
        exit do
        else
        digs=digs+1
        end if
        loop
        tempnum=x
      
        i=0
        for i=digs to 1 step-1
        if tempnum>=2^(i-1) then
        tempnum=tempnum-2^(i-1)
        c10to2=c10to2 & "1"
        else
        c10to2=c10to2 & "0"
        end if
        next
        if mysign=-1 then c10to2="-" & c10to2
        end function
      
      keywords = UTF2GB(Server.UrlEncode(Request("keyword")))
      response.write keywords


      來源:
      閱讀:231
      日期:2021-09-23

      【 字體: 】 
      上一篇:php數組去重
      下一篇:js localstorage存取與重罿
        >> 相關文章
        沒有相關文章。
      發表評論

      字數0
      請輸入驗證碼:


      • 尊重網上道德,遵守中華人民共和國的各項有關法律法規
      • 承擔一切因您的行為而直接或間接導致的民事或刑事法律責任
      • 本站管理人員有權保留或刪除其管轄留言中的任意內容
      • 本站有權在網站內轉載或引用您的評論
      • 參與本評論即表明您已經閱讀并接受上述條款
      網友評論
      沒有相關評論。
      72种姿势欧美久久久久大黄蕉_中文字字幕在线乱码_捏胸亲嘴床震娇喘视频_巨黄肉篇暴露大尺度小说