求助：关于下载的中文文件名的问题

我用asp做了一个下载系统，可是服务器上很多中文文件名的无法下在，请问除了重命名那些文件，还有没有别的办法解决？
---------------------------------------------------------------

'转换双字节字符为合法的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∣(Url,i,1)
end if
next
end function