vb 汉字 编码

Function   UrlEncode(ByVal   urlText   As   String)   As   String  
      Dim   i   As   Long  
      Dim   ansi()   As   Byte  
      Dim   ascii   As   Integer  
      Dim   encText   As   String  
   
      ansi   =   StrConv(urlText,   vbFromUnicode)  
   
      encText   =   ""  
              For   i   =   0   To   UBound(ansi)  
          ascii   =   ansi(i)  
   
          Select   Case   ascii  
          Case   48   To   57,   65   To   90,   97   To   122  
              encText   =   encText   &   Chr(ascii)  
   
          Case   32  
              encText   =   encText   &   "+"  
   
          Case   Else  
              If   ascii   <   16   Then  
                  encText   =   encText   &   "%0"   &   Hex(ascii)  
              Else  
                  encText   =   encText   &   "%"   &   Hex(ascii)  
              End   If  
   
          End   Select  
      Next   i  
           
      UrlEncode   =   encText  
  End   Function