转换双字节字符为合法的URL传输字串

' 转换双字节字符为合法的URL传输字串  
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