<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
dim i,a
Randomize
s=0
do until i>=1 and i<=3
i=rnd()
i=CInt(x/1)
loop
a=request.Form("RadioGroup1")
if i=a then
response.Write("平手")
else if i=3 and a=1 then
response.Write("你赢了")
else
response.Write("你输了")
end if
end if
%>
<form id="form1" name="form1" method="post" action="1.asp">
<p>
<label>
<input type="radio" name="RadioGroup1" value="1" />
剪刀</label>
<br />
<label>
<input type="radio" name="RadioGroup1" value="2" />
石头</label>
<br />
<label>
<input type="radio" name="RadioGroup1" value="3" />
帕子</label>
<br />
</p>
<label>
<input type="submit" name="Submit" value="提交" />
</label>
</form>
</body>
</html>