在线等100分,中文文件链接问题

需要打开中文文件名的链接,例如
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∣(Url,i,1)
end if
next
end function

或参照此文:
http://blog.mvpcn.net/ceocio/articles/2622.aspx

Published At
Categories with Web编程
Tagged with
comments powered by Disqus