strsql = "select * from question where subjectname='" & name & "' AND type='单选题'and haveselect=0 "
Dim cmd As New SqlDataAdapter(strsql, appconn)
cmd.Fill(Qds, "Info")
Return Qds.Tables("Info").Rows.Count
End Function
4.2 管理主页面的实现
管理主页面是管理员进入后台管理后所看到的第一个页面，在该页面上有Label控件显示了管理员名，登录时间信息，一组超链接实现各个页面之间的跳转，以一个表格中加入超链接图片也可以在不同页面之间跳转，该页面主要是管理员欢迎界面，没有什么关键代码，只是超链接的使用。
4.3 学生信息管理页面(manstudentinfo/)的实现
该页面用DataGrid控件显示了学生信息，并实现了分页显示，同时以下拉列表事件来实现按班级查询学生信息，其中班级是从数据库里查询出来的不重复的班级，还以下拉列表提供了按序号、学号、姓名进行的关键字查询，以超链接实现了跳转到添加、修改学生信息页面。如图4-1所示：
图4-1 学生信息管理页面
关键代码解释：
//定义数据库连接字符串，
Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
//使用DISTINCT关键字搜索出数据库中的不同班级，class_name为下拉列表控件
comdstr2 = "select DISTINCT class from student"
class_name.DataSource = studs.Tables("student1")
class_name.DataBind()
class_name.Items.Insert(0, New ListItem("全部", "全部"))
//使第一项显示为“全部”
class_name.SelectedIndex = class_name.Items.IndexOf(class_name.Items.FindByText("全部"))
//使用Response.Redirect可以将网页转移至另外的网页上，使用的语法结构是:Response.Redirect网址，其中网址可以是相对地址或绝对地址，在此使用Response.Redirect("addstudentinfo/")跳转到修改学生信息页面
Session("studentid") = s_datagrid.DataKeys(CInt(E.Item.ItemIndex))
//使用下拉列表控件的SelectedIndexChanged事件，实现下拉列表改变，自动按不同班级查询学生信息
Public Sub class_name_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles class_name.SelectedIndexChanged
dblstr = Request.Form("class_name")
ifsub()
End Sub
//根据不同的查询条件生成不同的查询字符串
Sub ifsub()
//使用like '%" & key & "%'实现按关键字查询，以下输入学号关键字为来实现查询
If skey = "s_no" Then
comdskey = " where s_no like '%" & key & "%' "
comdstr = "select * from student " & comdskey
End If
Session("str") = comdstr
adp = New SqlDataAdapter(comdstr, conn)
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说计算机基于B/S的网上考试系统的设计与实现(7)在线全文阅读。
相关推荐：