dadi1977

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


getUrlEncodel("要处理的URL串")