一个简单的在线考试小程序

才学asp.net,前两天编了一个简单的在线考试小程序,其中粗陋之极,,希望大家给点意见,我也好改正一下
代码如下:

1<script language="vb" runat="server">
  2sub page_load(sender as object,e as eventargs)
  3response.cookies("mycookie").values("username")=name.text
  4response.cookies("mycookie").values("usernumber")=number.text
  5response.cookies("mycookie").values("yuan")=yuan.selecteditem.text
  6response.cookies("mycookie").values("lastvisited")=datetime.now.tolongtimestring()
  7response.cookies("mycookie").expires=datetime.now.adddays(7)
  8end sub
  9sub button_click(sender as object,e as eventargs)
10dim mycookie as HttpCookie=request.cookies("mycookie")
11message2.text="<h2>您登陆的时间为：" & mycookie.values("lastvisited") & "</h2>"
12if number.text mod 2=0 then
13juan2.visible="true"
14juan1.visible="false"
15message1.text="<h2>您的姓名为：" & name.text & "<br>" & "您的学号为：" & number.text & "<br>" & "您是" & yuan.selecteditem.text & "的学生,您的学号为偶数，做B卷</h2>"
16else
17juan1.visible="true"
18juan2.visible="false"
19message1.text="<h2>您的姓名为：" & name.text & "<br>" & "您的学号为：" & number.text & "<br>" & "您是" & yuan.selecteditem.text & "的学生,您的学号为奇数，做A卷</h2>"
20end if
21end sub
22sub button2_click(sender as object,e as eventargs)
23dim msg as string=""
24if radiobuttonlist.items(2).selected
25msg=msg & "<br>" & "<h3>您做对了，恭喜您得100分</h3>"
26else
27msg=msg & "<br>" & "<h3>您做错了，继续努力把</h3>"
28end if
29if page.isvalid then
30message.text=msg
31end if
32end sub
33sub button3_click(sender as object,e as eventargs)
34dim msg as string=""
35if today.items(2).selected or today.items(3).selected then
36msg=msg & "<br>" & "<h3>您做错了，继续努力把</h3>"
37else
38msg=msg & "<br>" & "<h3>您做对了，恭喜您得100分</h3>"
39end if
40if page.isvalid then
41message0.text=msg
42end if
43end sub
44sub button1_click(sender as object,e as eventargs)
45page.response.redirect("\index.aspx")
46end sub
47</script>
48<head>
49<style type="text/css">
50
56</style>
57</head>
58<body>
59 <form runat="server">
60<asp:panel runat="server" id="ziliao">
61<fieldset>
62<legend><h1>个人资料<h1></legend>
63姓名：
64<asp:textbox runat="server" id="name" columns="7"/>
65<asp:requiredfieldvalidator runat="server" controltovalidate="name" errormessage="请输入姓名"/>
66<br>
67学号：
68<asp:textbox runat="server" id="number" columns="7"/>
69<asp:regularexpressionvalidator runat="server" enableclientscript="false" controltovalidate="number" validationexpression="[0-9]{7}" errormessage="学号输入有误"/>
70<asp:requiredfieldvalidator runat="server" controltovalidate="number" errormessage="请输入学号"/>
71<br>
72学院：
73<asp:dropdownlist runat="server" id="yuan">
74<asp:listitem>海洋学院</asp:listitem>
75<asp:listitem>信息学院</asp:listitem>
76<asp:listitem>人文学院</asp:listitem>
77<asp:listitem>食品学院</asp:listitem>
78</asp:dropdownlist>
79</fieldset>
80<asp:button runat="server" text="提交资料" id="button" onclick="button_click"/>
81<asp:button runat="server" text="重新填写" id="button1" onclick="button1_click"/>
82</asp:panel>
83 <asp:label runat="server" id="message1"/>
84<span id=applelew>
85
86<script>
87function show2(){
88if (!document.all)
89return
90var Digital=new Date()
91var hours=Digital.getHours()
92var minutes=Digital.getMinutes()
93var seconds=Digital.getSeconds()
94if (minutes<=9)
95minutes="0"+minutes
96if (seconds<=9)
97seconds="0"+seconds
98var ctime=hours+":"+minutes+":"+seconds+" "
99applelew.innerHTML="<h2 style=\'color:blue;\'>现在的时间是："+ctime+"</h2>"
100setTimeout("show2()",1000)
101}
102window.onload=show2
103</script>
104</span>
105<asp:label runat="server" id="message2"/>
106<asp:panel runat="server" id="juan1" visible="false">
107<fieldset>
108<legend><h1>A卷题目：</h1></legend>
109明末引清兵进关的是：<br>
110<asp:radiobuttonlist runat="server"  id="radiobuttonlist" repeatdirection="horizontal">
111<asp:listitem>吴一桂</asp:listitem>
112<asp:listitem>吴二桂</asp:listitem>
113<asp:listitem>吴三桂</asp:listitem>
114<asp:listitem>吴四桂</asp:listitem>
115</asp:radiobuttonlist>
116<br>
117<asp:button runat="server" text="提交" id="button2" onclick="button2_click"/>
118<br>
119<asp:label runat="server" id="message"/>
120</fieldset>
121</asp:panel>
122<asp:panel runat="server" id="juan2" visible="false">
123<fieldset>
124<legend><h1>B卷题目：</h1></legend>
125中国的政治和经济中心分别是：<br>
126