asp Server.urlencode使用

Posted 2023-02-15

asp Server.urlencode对URL(带参数)进行编译,但打开时显示找不到网页,是不是在参数接收页面要进行对编码的反译?具体怎样做?谢谢!

参考技术A a=server.URLEncode("豆腐干反对")
response.Write a&"<br>"
response.Write URLDecode(a)
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