response.write"

• "&subjects&"

%>

<%="返回

<%endif%>

选择课程源代码：

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

<%

dimstudent_name,student_no

student_name=session（"student_name"）

student_no=session（"student_no"）

ifsession（"student_name"）=emptythen

response.write"您还没有登录，请返回登录"

response.end

endif

'建立Connection对象

setconn=Server.CreateObject（"adodb.connection"）

'定义OLEDB连接字符串

'provider="provider=microsoft.jet.oledb.4.0;"

'dbpath="datasource="&server.mappath（"/webtest/data/webtest.mdb"）

'打开连接

'conn.openprovider&dbpath

cnnstr="DBQ="+server.mappath（"data/webtest.mdb"）+";DefaultDir=;DRIVER={MicrosoftAccessDriver（*.mdb）};"

'打开连接

'conn.openprovider&dbpath

conn.opencnnstr

'创建command对象

setcmd=server.CreateObject（"mand"）

'将connection对象指定给command对象

setcmd.activeconnection=conn

'创建recordset对象

setrs=Server.CreateObject（"adodb.recordset"）

rs.locktype=2'将锁定类型设为保守式

setrs5=Server.CreateObject（"adodb.recordset"）

rs5.locktype=2'将锁定类型设为保守式

dimsql1

sql1="selectdistinct所讲学科fromteacher"

rs.opensql1,conn,3

dimsql5

sql5="selectdistinct所学课程fromstudent_subjectwhere学生学号='"&student_no&"'"

rs5.opensql5,conn,3

ifnotrs5.eofthen

dimsubject_num

rs5.MoveFirst'将当前的数据记录移到第一项

WhileNotrs5.EOF'判断是否已经过了最后一项

subject_num=subject_num+1

rs5.MoveNext'移到下一项

Wend

redimselect_array（subject_num）'将rs中的记录存入该数组

dimsubject_i

subject_i=0

rs5.MoveFirst'将当前的数据记录移到第一项

WhileNotrs5.EOF'判断是否已经过了最后一项

select_array（subject_i）=rs5（"所学课程"）

subject_i=subject_i+1

rs5.MoveNext'移到下一项

Wend

endif

rs5.close

%>

<%=session（"student_name"）%>同学选择课程

<%ifrequest（"send"）=emptythen%>

<%ifnotrs.eofthenrs.MoveFirst'将当前的数据记录移到第一项%>

<%WhileNotrs.EOF'判断是否已经过了最后一项%>

<%fori=0tosubject_num-1%>

<%ifrs（"所讲学科"）=select_array（i）then%>

已选    

<%=rs（0）%>

<%exitfor%>

<%endif%>

<%next%>

<%ifi>=subject_numthen%>

>

<%=rs（0）%>

<%endif%>

<%rs.MoveNext'移到下一项%>

<%

Wend

rs.close

%>

<%

else%>

<%

'检查是否选择了课程

ifrequest（"subject"）=emptythen

response.write"您还没有选择课程！

response.write"

• "&subjects&"

%>

<%="返回

<%

'将选择了的课程插入到数据库

setrs2=Server.CreateObject（"adodb.recordset"）

subject_array=split（request（"subject"）,","）

dimsubject

dimsql2,sql4

fori=0toubound（subject_array）

subject=trim（subject_array（i））

sql4="select学科编号fromteacherwhere所讲学科='"&subject&"'"

rs2.opensql4,conn,3

sql2="insertintostudent_subjectvalues（'"&student_no&"','"&rs2（0）&"','"&subject&"'）"

cmd.Commandtext=sql2

cmd.Execute

rs2.close

next

conn.close

%>

<%endif%>

超级管理员登录界面源代码：

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

<%

session（"super_name"）=empty

session（"super_password"）=empty

%>

超级管理员登录

姓    名:

密    码:

<%

%>

学生试卷查询源代码：

<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>

--#includefile="fun\OutMDY.fun"-->

<%

'建立Connection对象

setconn=Server.CreateObject（"adodb.connection"）

'定义OLEDB连接字符串

'provider="provider=microsoft.jet.oledb.4.0;"

'dbpath="datasource="&server.mappath（"data/webtest.mdb"）

cnnstr="DBQ="+server.mappath（"data/webtest.mdb"）+";DefaultDir=;DRIVER={MicrosoftAccessDriver（*.mdb）};"

'打开连接

'conn.openprovider&dbpath

conn.opencnnstr

'创建command对象

setcmd=server.CreateObject（"mand"）

'将connection对象指定给command对象

setcmd.activeconnection=conn

'创建recordset对象

setrs=Server.CreateObject（"adodb.recordset"）

rs.locktype=2'将锁定类型设为保守式

%>

学生试卷查询

<%

dims_select_no_paper,s_select_subject_paper,s_select_date_paper

s_select_subject_paper=trim（request（"s_select_subject_paper"））'学生选择考试的学科

s_select_date_paper=trim（request（"s_select_date_paper"））'学生选择考试的时间

s_select_no_paper=trim（request（"s_select_no_paper"））'学生选择考试学科的编号

ifs_select_subject_paper=

文档加载中……请稍候！
如果长时间未打开，您也可以点击刷新试试。

下载文档到电脑，查找使用更方便

下载	加入VIP,免费下载

还剩页未读，继续阅读

举报
版权申诉 word格式文档无特别注明外均可编辑修改；预览文档经过压缩，下载后原文更清晰！ 立即下载

配套讲稿：

如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

特殊限制：

部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。

关 键  词：

在线 考试 系统 源代码

  冰豆网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。