【99%的人没见过的ASP注入，等待高手解决,急。。。。。。。。。 】

Response.End

end if

"注意取消的分号的过滤

Function URLDecode(enStr)

dim deStr

dim c,i,v

deStr=""

for i=1 to len(enStr)

c=Mid(enStr,i,1)

if c="%" then

v=eval("&h"+Mid(enStr,i+1,2))

if v<128 then

deStr=deStr&chr(v)

i=i+2

else

if isvalidhex(mid(enstr,i,3)) then

if isvalidhex(mid(enstr,i+3,3)) then

v=eval("&h"+Mid(enStr,i+1,2)+Mid(enStr,i+4,2))

deStr=deStr&chr(v)

i=i+5

else

v=eval("&h"+Mid(enStr,i+1,2)+cstr(hex(asc(Mid(enStr,i+3,1)))))

deStr=deStr&chr(v)

i=i+3

end if

else

destr=destr&c

end if

end if

else

if c="+" then

deStr=deStr&" "

else

deStr=deStr&c

end if

end if

next

URLDecode=deStr

end function