ASP超链接传递参数问题

无标题文档
<% dim a
a=request.QueryString("r1")

if a="aaa" then
response.Write("0")
else
response.Write("1")
end if
%>

<% dim r1 %> 111