聊城网站制作公司,聊城网站建设,聊城网站优化,聊城网络公司,聊城网站推广,聊城网站运营,聊城网络运营,聊城搜索引擎优化,聊城网页设计,聊城网站制作
 
 
公司拥有五年的网站建设经验,专业网站制作,推广及网站优化,有大量优秀客户案例
网站建设 | 设为首页 | 加入收藏 | 联系我们  
公告:热烈庆祝聊城精英网络2010版官方网站改版成功!
当前位置 :首页 > 网页知识  

聊城精英告诉你asp获取地址栏参数如何反编码

http://www.wangzhan123.net   2015/5/12 11:54:44   人气:

通过request.servervariables("QUERY_STRING") 方法获取地址栏参数

如:http://www.wangzhan123.net/?精英网络

通过此方法获取到值为:%E8%93%9D%E8%89%B2%E7%90%86%E6%83%B3


如果这个是作为一个查询参数,肯定与数据库中字段值匹配不了,数据库中的值是 “精英网络”。

请问要如何反编码这个获取到的值?
谢谢!

ASP代码中用VBS调用JS脚本引擎还原经过encodeURI编码过的URL地址

以下是引用片段:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ASP代码中用VBS调用JS脚本引擎还原经过encodeURI编码过的URL地址</title>
</head>

<body>

<%
Function JSdecodeURL(ByVal oriurl)
        Err.Clear
        on error resume next
        dim sobj,outputstr
        set sobj=CreateObject("MSScriptControl.ScriptControl")
        sobj.Language="JavaScript"
        outputstr=sobj.Eval("decodeURI("""&oriurl&""")")
        set sobj=Nothing
        If Err.Number=0 then JSdecodeURL=outputstr else JSdecodeURL=oriurl
End Function
if request.servervariables("QUERY_STRING") <>"" then
        Response.Write(JSdecodeURL(request.servervariables("QUERY_STRING") ))
else
        Response.Write(JSdecodeURL("http://www.blueidea.com/?%E8%93%9D%E8%89%B2%E7%90%86%E6%83%B3"))
end if
%>
</body>
</html>

专业设计团队
满足您的各种设计要求
实力程序开发团队
为您定制各种程序模块
后台管理高效安全
方便更新上传网站资料
全球高速访问
无盲区、定制异地备份
专业客服团队
解决一切使用难题
赠送大容量空间邮箱
免费优化推广
   
关于我们 | 工作机会 | 付款方式 | 网站制作 | 网页制作 | 网页设计 | 网络公司 | 联系我们 | 网站地图
版权所有:聊城精英网络科技有限公司 © 2005-2010 All Rights Reserved.
咨询专线:0635-6950368 技术专线:15192175820 在线QQ:312817927 1485871644
地址:聊城市闸口科技市场 邮编:252000 苏ICP备10112026号