server.urlencode对应自定义UrlDecode解码函数

BigC=""
Response.Write server.urlencode(BigC)
BigC=server.urlencode(BigC)
Response.Write UrlDecode(BigC)

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