ASP让url的中文显示为编码
更新时间：2011年02月27日 15:26:33 作者：
有时候传递中文会出现乱码等原因，最好对中文参数进行编码处理。
asp解码url
<a href="1.asp?action=<%=server.urlencode("你好")%>">asdf</a>
解码函数
[code]
<%
Function URLDecode(enStr)
dim deStr,strSpecial
dim c,i,v
deStr=""
strSpecial="!""#$%&'()*+,.-_/:;<=>?@[\]^`{|}~%"
for i=1 to len(enStr)
c=Mid(enStr,i,1)
if c="%" then
v=eval("&h"+Mid(enStr,i+1,2))
if inStr(strSpecial,chr(v))>0 then
deStr=deStr&chr(v)
i=i+2
else
v=eval("&h"+ Mid(enStr,i+1,2) + Mid(enStr,i+4,2))
deStr=deStr & chr(v)
i=i+5
end if
else
if c="+" then
deStr=deStr&" "
else
deStr=deStr&c
end if
end if
next
URLDecode=deStr
End function
response.Write URLDecode(request.QueryString("action"))
%>
[html]
复制代码 代码如下:
<a href="1.asp?action=<%=server.urlencode("你好")%>">asdf</a>
解码函数
[code]
<%
Function URLDecode(enStr)
dim deStr,strSpecial
dim c,i,v
deStr=""
strSpecial="!""#$%&'()*+,.-_/:;<=>?@[\]^`{|}~%"
for i=1 to len(enStr)
c=Mid(enStr,i,1)
if c="%" then
v=eval("&h"+Mid(enStr,i+1,2))
if inStr(strSpecial,chr(v))>0 then
deStr=deStr&chr(v)
i=i+2
else
v=eval("&h"+ Mid(enStr,i+1,2) + Mid(enStr,i+4,2))
deStr=deStr & chr(v)
i=i+5
end if
else
if c="+" then
deStr=deStr&" "
else
deStr=deStr&c
end if
end if
next
URLDecode=deStr
End function
response.Write URLDecode(request.QueryString("action"))
%>
[html]
相关文章
这篇文章主要介绍了asp的SQL语句中and和or同时使用的注意事项,需要的朋友可以参考下2015-11-11
这篇文章主要介绍了四步如何完成asp网页设计流量统计，感兴趣的小伙伴可以参考一下2015-09-09
asp 表格形式显示数据,方便多行多列内容的输出。2008-11-11
flash和asp分页的一点心得与flash脚本...2007-03-03
解决使用良精企业建站7.0未注册问题...2007-04-04
用asp实现的批量生成大量规律性内容的实现代码，脚本程序就是为了简化用户输入，代替人手操作的，大家一定要好好利用2013-03-03
这篇文章给大家介绍使用asp实现qq在线查询功能，涉及到的知识点有xmlhttp读取腾讯网站相应的html代码获取qq头像。对qq在线查询感兴趣的朋友可以参考下本篇文章2015-10-10
数组显示菜单效果...2006-07-07
这篇文章主要介绍了Asp Conn.execute的参数与返回值总结,数据库对象的execute方法参数与返回值总结,需要的朋友可以参考下2014-07-07
如何有效防止网站(留言板)出现垃圾留言,垃圾评论？本文提供详细解决思路与实现步骤,需要了解的朋友可以参考下2012-12-12
最新评论