asp转义url地址,asp实现URLdecode

function tranurl(url)
url = url&""
m_url = url
outstring = ""
for x1 = 1 to len(m_url)
chrstr = mid(m_url,x1,1)
if chrstr="&" then
outstring=outstring&"%26"
elseif chrstr="?" then
outstring=outstring&"%3F"
elseif chrstr=":" then
outstring=outstring&"%3A"
else
outstring=outstring&chrstr
end if
next
tranurl=outstring
end function