復制代碼 代碼如下:

function     getUrlEncodel(byVal     Url)      
      Dim     i,code      
      getUrlEncodel=""      
      if     trim(Url)=""     then     exit     function      
          for     i=1     to     len(Url)      
                code=Asc(mid(Url,i,1))      
                      If     code<0     Then     code     =     code     +     65536      
                          If     code>255     Then      
                              getUrlEncodel=getUrlEncodel&"%"&Left(Hex(Code),2)&"%"&Right(Hex(Code),2)      
        else      
            getUrlEncodel=getUrlEncodel&mid(Url,i,1)      
        end     if      
            next      
end     function