网上考试系统程序代码.docx
- 文档编号:7602914
- 上传时间:2023-01-25
- 格式:DOCX
- 页数:25
- 大小:26.08KB
网上考试系统程序代码.docx
《网上考试系统程序代码.docx》由会员分享,可在线阅读,更多相关《网上考试系统程序代码.docx(25页珍藏版)》请在冰豆网上搜索。
网上考试系统程序代码
网上考试系统程序代码
【例9-1】注册源程序代码
<%@language=″vbscript″%>
<%if(″http_method″)=″post″then
if(″submit″)=″学生考场″then′学生进入在线考试系统登录的处置
setconn=(″″)
=″dsn=testsys″′连接并打开相应的数据源名testsys
strsql=″select * fromstudentinfowherestid=′″&(″stid″)&″′andstname=′″&(″stname″)&″′″
setmrs=(strsql)
ifnotandnotthen
′假设数据库中存在该学生的相应的记录就可进入考试系统,并用session属性存储当前学生的姓名与学号信息
session(″stid″)=(″stid″)
session(″stname″)=(″stname″)
″″
setmrs=nothing
else
″学生姓名或学号输入有错误!
″
′假设数据库中不存在该学生的信息就返回,显示页面,并给犯错误提示
Endif
setconn=nothing
else
′出卷教师进入在线考试系统的处置。
setconn=(″″)
=″dsn=testsys″
strsql=″select*fromteacherinfowhereteachid=′″&(″teachid″)&″′andteachname=′″&(″teachname″)&″′″
setmrs=(strsql)
ifnotandnotthen
session(″teachid″)=(″teachid″)
session(″teachname″)=(″teachname″)
′假设数据库中已有该教师的记录,那么进入在线考试系统,用session属性保留当前教师姓名与编号信息
″″
else
″教师的姓名或编号输入错误!
″
′假设数据库中不存在该教师的信息,页面返回并显示,并给出提示错误信息
endif
setmrs=nothing′关闭数据库连接并释放对象
setconn=nothing
endif
endif%>