📄 yonghu.aspx
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<%@ Import Namespace="System.Data" %>
<%@ Page Language="vb" Debug="true" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script language="VB" runat="server" >
Sub Enter_Cl(Sender As Object, E As EventArgs)
If Page.IsValid=True Then '如果通过验证，则显示有关信息
Dim strMessage As String '定义变量，存放信息
strMessage="姓名：" & user_name.Text '获取姓名
strMessage="学号：" & user_no.Text '获取学号
end If
End sub
Sub Enter_Click(Sender As Object, E As EventArgs)
Session("Name")=user_name.text
Session("Number")=user_no.text
'建立Connection对象
Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath ("TEST.mdb"))
'建立Command对象,注意根据输入的姓名和学号查找
Dim strSql As String
strSql="Select*From 成绩单 Where 姓名='" & user_name.Text & "' And 学号='" & user_no.text & "'"
Dim cmd As New OleDbCommand(strSql,conn)
conn.open()
Dim dr As OleDbDataReader=cmd.ExecuteReader()
'dr.Read()=Ture表示有1条记录,说明有该考生.否则表示没有该考生
If dr.Read()=True Then
Response.Redirect("test.aspx")
Else
conn.Close()
message.Text="请输入有效的姓名和学号"
end if
End Sub
sub usertype_change(Sender As Object, E As EventArgs)
Session("Course")=usertype.Selecteditem.value
End Sub
</script>
<HTML>
<HEAD>
<TITLE>网络考试系统</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<BODY>
<center><h2> </h2>
<h2>在线考试系统</h2></center>
<hr>
<center>
<form runat="server">
<asp:dropdownlist id="usertype" AutoPostBack="false" OnSelectedIndexChanged="usertype_change" runat="server">
<asp:listitem ></asp:listitem>
<asp:listitem value="XML">XML试卷</asp:listitem>
<asp:listitem value="ASP">ASP试卷</asp:listitem>
</asp:dropdownlist >
<br>
<br>
<center> 姓名：<asp:Textbox id="user_name" runat="server"/></center>
<br>
<center>学号：<asp:Textbox id="user_no" runat="server"/><br>
<br><asp:button id="enter" text="开始考试" onClick="Enter_click" runat="server"/>
<asp:label id="message" runat="server"/>
</form>
</center>
<br>
<hr>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -