当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP-server.URLEncode反函数:urldecode

ASP
分享一段代码show.asp?id=26变成show/?26的形式
多域名一网站时如果返回最原来的域名
[原创]完美解决ASP 不能更新。数据库或对象为只读。
5天学会asp
TSYS中生成静态页时溢出: ''CInt''
对象标记具有无效的 ''MSWC.MyInfo'' ProgID
[原创]随机增加网站点击的一个不错的方法
Microsoft JET Database Engine 错误 ''80004005'' 未指定的错误的完美解决方法
反SPAM新思路—换Z-BLOG的验证码!
七步倒┈→专用asp后门
asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码
使用ASP实现网站的“目录树”管理的代码
ShowPage 显示“上一页 下一页”等信息的封装代码
[原创]站长感慨asp编程究竟何去何从
响应对象 错误 ''ASP 0185 : 80020003'' 缺少默认属性
[原创]asp下用实现模板加载的的几种方法总结
[原创]asp获取URL参数的几种方法分析总结
Access数据库中“所有记录中均未找到搜索关键字”的解决方法
ASP程序中输出Excel文件实例一则
ASP应用中如何限制同一表单被多次提交

ASP-server.URLEncode反函数:urldecode


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-08-14   浏览: 298 ::
收藏到网摘: n/a

如果有空格就用%20代替,如果有其它字符就用%ASCII代替,如果有汉字等四个字节的字符,就用两个%ASCII来代替。不过有时候我们也需要将经过这种编码的字符串进行解码,但asp并没有提供相关的函数,这给我们处理问题带来了一定的麻烦。其实我们只要知道了编码规则后,就可以用asp代码来实现我们自己的URlDecode函数了。

以下为引用的内容:
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