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

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

  1 < script language = " vb "  runat = " server " >
  2 Sub page_load() sub 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
  9 Sub button_click() sub 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
 22 Sub button2_click() sub 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
 33 Sub button3_click() sub 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
 44 Sub button1_click() sub 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 < ! --
 51 body {background - color: #98AB6F }
 52 h1 {font: 16pt / 18pt  " Arial " ; font - weight: bold; color: maroon}
 53 h2 {font: 13pt / 15pt  " Arial " }
 54 h3 {font: 14pt / 16pt  " Arial " ; font - weight: bold; color:crimson}
 55 -->
 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 >
 87 Function show2() function 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<asp:checkboxlist runat="server"  id="today" repeatdirection="horizontal">
127<asp:listitem>北京</asp:listitem>
128<asp:listitem>上海</asp:listitem>
129<asp:listitem>西藏</asp:listitem>
130<asp:listitem>山东</asp:listitem>
131</asp:checkboxlist>
132<br>
133<asp:button runat="server" text="提交" id="button3" onclick="button3_click"/>
134<br>
135<asp:label runat="server" id="message0"/>
136</fieldset>
137</asp:panel>
138</form>
139</body>
140</html>

转载于:https://www.cnblogs.com/lwjab/archive/2005/05/15/155826.html