文件路径的中文问题

需要打开中文文件名的链接,例如  
http://www.abc.com/站点说明/文件1.txt  
 
用英文名字文件可以打开:  
http://www.abc.com/zhandianshuoming/wenjian1.txt  
 
但是用  
http://www.abc.com/站点说明/文件1.txt  
就无法访问,怎么解决?  
---------------------------------------------------------------  
 
使用此函数转换:  
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    
 
或参照此文:  
http://blog.mvpcn.net/ceocio/articles/2622.aspx