<%pgurl=Request.Form("pgurl")
if instr(pgurl,"?")>0 then
lpg=instr(pgurl,"?")
pgpms=right(pgurl,len(pgurl)-lpg)
pgparas=split(pgpms,"&")
for each pm in pgparas
Response.AddHeader secCode,"3"
Response.Write pm&"
"
next
pgurl=left(pgurl,lpg-1)
Response.Write lpg
end if
%>