通過request.servervariables("QUERY_STRING") 方法獲取地址欄參數(shù)
如：http://www.zjgjyh.cn/?精英網(wǎng)絡(luò)
通過此方法獲取到值為：%E8%93%9D%E8%89%B2%E7%90%86%E6%83%B3
如果這個(gè)是作為一個(gè)查詢參數(shù)，肯定與數(shù)據(jù)庫中字段值匹配不了，數(shù)據(jù)庫中的值是 “精英網(wǎng)絡(luò)”。
請問要如何反編碼這個(gè)獲取到的值？
謝謝！
ASP代碼中用VBS調(diào)用JS腳本引擎還原經(jīng)過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調(diào)用JS腳本引擎還原經(jīng)過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> |
