日期:2014-05-17 浏览次数:21347 次
<%
a=request("a")
b=request("b")
c=request("c")
......
%>
<%
dim dd
dd="%E8%A7%84%E5%88%92%E5%B1%80" '中文是 规划局
%>
<script language="javascript" runat="server">
var dd;
ddd = decodeURI(dd);
</script>
<%
response.Write ddd
%>
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