FLASH考试系统

应用ASP开发的一个简单学校考试系统 <% IF Request.QueryString("delid")"" Then %> Dim MyVar MyVar=MsgBox("确定要清空该考生考试资料吗？",4) if MyVar=vbYes then alert "考生可以重新参加考试了！" end if <% response.Write "window.open('admin_main.asp?delid=&temp="&now()&"&page="&request.QueryString("page")&"','mainFrame')" End IF %> 无标题文档 <% set rs=server.createobject("adodb.recordset") sql = "SELECT * from kazl order by ksid asc" rs.open sql,conn,1,1 rs.pagesize=15 if len(request.QueryString("page"))=0 or cint(request.QueryString("page"))rs.pagecount then ipage=rs.pagecount else ipage=request.QueryString("page") end if rs.absolutepage=ipage %> 班级 学号 姓名 登录地址 分数 操作           重考    合分 第一页  上一页  下一页  最后一页