'转换双字节字符为合法的URL传输字串 function getUrlEncodel(byVal Url) Dim i,code getUrlEncodel="" iftrim(Url)=""thenexitfunction for i=1tolen(Url) code=Asc(mid(Url,i,1)) If code<0Then code = code +65536 If code>255Then getUrlEncodel=getUrlEncodel&"%"&Left(Hex(Code),2)&"%"&Right(Hex(Code),2) else getUrlEncodel=getUrlEncodel&mid(Url,i,1) endif next endfunction