支持中文转换的Asp UrlDecode函数
分类:程序开发 Tags: asp UrlDecode 评论:0 浏览:3583 最近更新时间:2014/8/23 13:10:58
<% function URLDecode(strIn) URLDecode = "" Dim sl: sl = 1 Dim tl: tl = 1 Dim key: key = "%" Dim kl: kl = Len(key) sl = InStr(sl, strIn, key, 1) Do While sl>0 If (tl=1 And sl<>1) Or tl<sl Then URLDecode = URLDecode & Mid(strIn, tl, sl-tl) End If Dim hh, hi, hl Dim a Select Case UCase(Mid(strIn, sl+kl, 1)) Case "U":'Unicode URLEncode a = Mid(strIn, sl+kl+1, 4) URLDecode = URLDecode & ChrW("&H" & a) sl = sl + 6 Case "E":'UTF-8 URLEncode hh = Mid(strIn, sl+kl, 2) a = Int("&H" & hh)'ascii码 If Abs(a)<128 Then sl = sl + 3 URLDecode = URLDecode & Chr(a) Else hi = Mid(strIn, sl+3+kl, 2) hl = Mid(strIn, sl+6+kl, 2) a = ("&H" & hh And &H0F) * 2 ^12 Or ("&H" & hi And &H3F) * 2 ^ 6 Or ("&H" & hl And &H3F) If a<0 Then a = a + 65536 URLDecode = URLDecode & ChrW(a) sl = sl + 9 End If Case Else:'Asc URLEncode hh = Mid(strIn, sl+kl, 2)'高位 a = Int("&H" & hh)'ascii码 If Abs(a)<128 Then sl = sl + 3 Else hi = Mid(strIn, sl+3+kl, 2)'低位 a = Int("&H" & hh & hi)'非ascii码 sl = sl + 6 End If URLDecode = URLDecode & Chr(a) End Select tl = sl sl = InStr(sl, strIn, key, 1) Loop URLDecode = URLDecode & Mid(strIn, tl) End function %>
本文地址:/531/
-
• 兼容ie,火狐,chrome,safari,360,qq,遨游,搜狗等浏览器的设为首页和加入收藏代码
• 利用ASP显示当前网站在线人数代码
• fckeditor报错FCKLang undefined(fcklang未定义)的解决方法
• JS、ASP、PHP自动检测浏览器语言并转到相关URL
• ASP禁止站外提交表单(不允许从外部提交数据)
• 兼容IE和Firefox火狐的上下、左右循环滚动JS代码
• ASP获取图片宽度和高度的程序源代码
• js兼容IE、谷歌Chrome、火狐Firefox的上传图片预览代码
• ASP搜索关键词时结果用红色显示代码
• rs.open sql,conn,1,1和rs.open sql,conn,1,3的意思
-
• 点击一个超级链接,能同时打开两个网页/网站的代码
• asp检测email地址是否有效函数
• 最新国家工商行政管理局局徽(新工商徽)图片素材下载
• Chrome浏览器打开https网站提示“您的连接不是私密连接”解决办法
• 怎样在电脑上浏览WAP网站网页,下载网站里面的软件、游戏、玲声、电子书、电影、图片等!
• 把Access 2010 .accdb文件格式转换为Access 2003 .mdb操作方法
• 值得我们一生收藏的126部电影的经典台词
• 做小语种外贸网站有哪些好处
• 教你用MSN账号登录Skype
• 兼容ie,火狐,chrome,safari,360,qq,遨游,搜狗等浏览器的设为首页和加入收藏代码
-
• zoho企业邮箱开启手机验证码双重认证教程
• 外贸网站如何使用Google Search Console谷歌管理员工具
• 腾讯企业邮箱开启安全登录后,如何登录foxmail收发信
• 获取小红书无水印图片的原理
• iis如何支持.webp图片格式访问
• FireFox火狐浏览器有用的设置方法记录
• 最新政策 Google免费版企业邮箱个人用途可以继续保留免费版
• MySQL报Field‘***’doesn’t have a default value错误的解决办法
• 抖音国际版TikTok注册过程记录
• opencart网店设置opencart PayPal Express Checkout收款教程