需要打开中文文件名的链接,例如
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
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