<code id="lymdv"><nobr id="lymdv"></nobr></code>
  1. <tr id="lymdv"></tr>

    <strike id="lymdv"></strike><object id="lymdv"></object><th id="lymdv"><option id="lymdv"></option></th>

    1. ASP漢字轉換UTF-8及UTF-8轉換GB2312 設為首頁 | 加入收藏 | 咨詢熱線:0594-2266222 6666543
      全國民辦教育機構評選,授予“2007年度最受歡迎培訓機構”榮譽稱號
      北京新亞研修學院、前進大學聯合辦學打造技能加學歷全新教學模式
      莆田市勞動局指定農村剩余勞動力、下崗職工再就業定點培訓學校
      ASP漢字轉換UTF-8及UTF-8轉換GB2312 學校首頁  學校簡介  專業設置   學歷教育    校園風景  辦學優勢  學校榮譽  最新動態  就業動態  就業回訪  考試考證  恒心英才
       學生考勤  學子心聲  加盟合作  發票查詢 乘車路線    學校論壇  ~在線報名
      ASP漢字轉換UTF-8及UTF-8轉換GB2312 ASP漢字轉換UTF-8及UTF-8轉換GB2312
           您當前的位置:首頁 - 在線學習 

      ASP漢字轉換UTF-8及UTF-8轉換GB2312

      ASP漢字轉換UTF-8及UTF-8轉換GB2312
      閱讀次數:6063 發表時間:2012-6-5 17:05:00 
       

      漢字轉換為UTF-8
      function chinese2unicode(Str) 
        dim i 
        dim Str_one 
        dim Str_unicode 
        for i=1 to len(Str) 
          Str_one=Mid(Str,i,1) 
          Str_unicode=Str_unicode&chr(38) 
          Str_unicode=Str_unicode&chr(35) 
          Str_unicode=Str_unicode&chr(120) 
          Str_unicode=Str_unicode& Hex(ascw(Str_one)) 
          Str_unicode=Str_unicode&chr(59) 
        next 
        Response.Write Str_unicode 
      end function     
      UTF-8 To GB2312
      function UTF2GB(UTFStr)
          for Dig=1 to len(UTFStr)
              if mid(UTFStr,Dig,1)="%" then
                  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 

       
      下頁: 制作個性化U盤啟動盤-教程 上頁: 超低成本手機3D投影制作方法,原創! 超低成本手機3D投影制作方法,原創!
       
      超低成本手機3D投影制作方法,原創!
         

      校區一:莆田市城廂區萬達廣場6號門對面三樓

      電話:0594-2266222
      校區二:莆田城廂區萬達廣場旁福利區后門旁(原私立中學) 電話:0594-6666543
      莆田市恒心電腦職業培訓學校版權所有 閩ICP備11008856號-1
      關閉
      05946666543 工作日:8:00-23:00
      周 六:8:00-23:00
      WWW.1109K.COM