案例:ASP/ADO案例     状态:不可编辑再运行    进入竖版
 运行结果 
x
 
1
<html>
2
<%
3
dim cars
4
cars=Request.Form("cars")
5
%>
6
<body>
7
<form action="/example/aspe/demo_aspe_radiob.asp" method="post">
8
<p>请选择您喜欢的汽车:</p>
9
10
<input type="radio" name="cars"
11
<%if cars="Volvo" then Response.Write("checked")%>
12
value="Volvo">Volvo</input>
13
<br />
14
<input type="radio" name="cars"
15
<%if cars="Saab" then Response.Write("checked")%>
16
value="Saab">Saab</input>
17
<br />
18
<input type="radio" name="cars"
19
<%if cars="BMW" then Response.Write("checked")%>
20
value="BMW">BMW</input>
21
<br /><br />
22
<input type="submit" value="提交" />
23
</form>
24
<%
25
if cars<>"" then
26
   Response.Write("<p>您喜欢的汽车是" & cars & "</p>")
27
end if
28
%>
29
</body>
30
</html>