书签 分享 收藏 举报 版权申诉 / 15

类型ASP在线考试系统设计报告.docx

  • 文档编号:7074838
  • 上传时间:2023-01-17
  • 格式:DOCX
  • 页数:15
  • 大小:289.79KB

准考证号:


考试科目:

<%rs.Open“Select*From试卷信息OrderBy创建日期DESC”,conn,1,1

whilenotrs.eof%>

”><%=rs(“试卷名称”)%>

<%

rs.movenext

wend

rs.close%>


<%

IfRequest.QueryString(“CurPage”)=“”orRequest.QueryString(“CurPage”)=0then

CurPage=1

Else

CurPage=CINT(Request.QueryString(“CurPage”))

EndIf

%>

<%rs.Open“Select*From试卷信息OrderBy创建日期DESC”,conn,1,1%>

<%ifrs.eofandrs.bofthen%>

暂时没有任何记录!

<%else

rs.PageSize=6’设置每页记录数

DimTotalPages

TotalPages=rs.PageCount

IfCurPage>rs.PagecountThen

CurPage=RS.Pagecount

endif

RS.AbsolutePage=CurPage

rs.CacheSize=RS.PageSize’设置最大记录数

DimTotalcount

Totalcount=INT(RS.recordcount)

StartPageNum=1

dowhileStartPageNum+10<=CurPage

StartPageNum=StartPageNum+10

Loop

EndPageNum=StartPageNum+9

IfEndPageNum>RS.PagecountthenEndPageNum=RS.Pagecount%>

当前所有试卷名称

创建时间

操作

<%I=0

p=RS.PageSize*(Curpage-1)

dowhile(NotRS.Eof)and(I

p=p+1%>

<%=rs(“试卷名称”)%>

[<%=rs(“创建日期”)%>]

id=<%=rs(“试卷名称”)%>”>删除|

id=<%=rs(“试卷名称”)%>”target=_blank>试题|

id=<%=rs(“试卷名称”)%>”target=_blank>修改|

新建

<%I=I+1

RS.MoveNext

Loop%>

页次:

<%=CurPage%>/<%=TotalPages%>

页数:

CurPage=<%=StartPageNum-1%>”><<

<%ForI=StartPageNumtoEndPageNum

ifI<>CurPagethen%>

CurPage=<%=I%>”><%=I%><%else%>

<%=I%><%endif%><%Next%>

<%ifEndPageNum

CurPage=<%=EndPageNum+1%>”>下页<%endif%>|刷新

<%

endif

rs.close

setrs=nothing

endif

%>

考生登入代码:

用户登录

--

a{color:

#000000;text-decoration:

none}

.bt{font-size:

9pt;border-top-width:

0px;border-right-width:

0px;border-bottom-width:

0px;border-left-width:

0px;height:

16px;width:

80px;background-color:

#eeeeee;cursor:

hand}

-->

考生登录

准考证号

姓   名

考试科目

--#includefile=”connect.asp”-->

<%rs.Open“Select*From试卷信息OrderBy创建日期DESC”,conn,1,1

whilenotrs.eof%>

”><%=rs(“试卷名称”)%>

<%

rs.movenext

wend

rs.close%>

在线帮助

管理登陆

时间、IP和班级限制代码:

<%

StudentID=Request(“StudentID”)

Name=Request(“Name”)

Subject=Request(“Subject”)

ifStudentID=””then%>

MsgBox“错误:

请输入你的学号!

location.href=“javascript:

history.back()”

<%

endif

ifName=””then%>

MsgBox“错误:

请输入你的姓名!

location.href=“javascript:

history.back()”

<%

endif%>

--#includefile=”connect.asp”-->

<%

rs.Open“Select*From学生信息whereStudentID=’”&StudentID&”’”,conn,1,1%>

<%ifrs.bofthen%>

MsgBox“错误:

此学号不存在!

location.href=“javascript:

history.back()”

<%

elseifName<>rs(“Name”)then%>

MsgBox“错误:

你的学号和你的姓名不一致,请查正!

location.href=“javascript:

history.back()”

<%endif

rs.close

%>

<%

userip=Request.ServerVariables(“HTTP_X_FORWARDED_FOR”)‘获取用户客户端IP

Ifuserip=“”Then

userip=Request.ServerVariables(“REMOTE_ADDR”)

endif

rs.open“select*from试卷信息where试卷名称=’”&Subject&”’”,conn,1,1

ifrs(“ip地址1”)>useripthen

Response.write“该机器不允许参加考试!

Response.End

endif

ifrs(“ip地址2”)

Response.write“该机器不允许参加考试!

Response.End

endif

rs.close

%>

<%

v=now()

rs.open“select*from试卷信息where试卷名称=’”&Subject&”’”,conn,1,1

t1=rs(“考试时间1”)

t2=rs(“考试时间2”)

ift1>now()then

Response.write“考试时间还没有到,请稍后!

Response.end

endif

ift2

Response.write“您已经错过考试时间!

补考吧!

Response.end

endif

rs.close

%>

<%

rs.open“select*from成绩表whereStudentID=’”&StudentID&”’and试卷名称=’”&Subject&”’”,conn,1,1

ifnotrs.eofthen%>

MsgBox“错误:

你已经参加过这一门的考试了!

location.href=“javascript:

history.back()”

<%else

session(“logstatus”)=1‘记录登陆状态

response.redirect“testpaper.asp?

”&Request.QueryString

endif

conn.close

setrs=nothing%>

三、课程设计(综合实验)总结或结论

本系统限于我们的精力、技术和时间,因此要改进

配套讲稿:

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

特殊限制:

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

关 键  词:
ASP 在线 考试 系统 设计 报告
提示  冰豆网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:ASP在线考试系统设计报告.docx
链接地址:https://www.bdocx.com/doc/7074838.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2008-2022 冰点文档网站版权所有

经营许可证编号:鄂ICP备2022015515号-1

收起
展开