转换双字节字符为合法的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&mid(Url,i,1)
end if
next
end function
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
解决方案 »
- 为什么皮肤控件引用的css在Theme文件夹里找不到,但确实又起了作用?
- 插不进数据...求助
- 网页上的微博收听,是怎么弄的?
- Firefox中ondragend事件中得到鼠标的X,Y坐标全部为0
- |zyciis| page.LoadControl的方法,能不能得到这个control的ascx的源HTML,谢谢
- Repeater 中CheckBox传值问题。
- 一个很基本的问题 ,分数可是100分哦 ,问题解决马上散分。。。。
- 高手求救,.net下用ODBC访问MySQL数据出错
- 请问DataGrid自带的TextBox的样式怎么修改?多谢
- weblogic7.0连接池配置,和数据源配置(数据库oracle8.0.0.5)求救
- 问一个页面刷新问题
- web中如何使用winForm窗体?
getUrlEncodel===Server.UrlEncode()