📄 admin.asp
字号:
<% response.buffer=false
response.expires=0
if session("logstatus")<>1 then%>
<font size="5" ><b>你还没有登录，没有权利浏览本页，请先<a href="adminlogin.htm">登录</a>！</b></font>
<%else
%>
<!-- #include file="connect.asp" -->
<html>
<head>
<title>网上考试管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="style.css" rel=stylesheet>
</head>
<script LANGUAGE="JavaScript">
<!--
function openwin(url,name,w,h) {
window.open (url,name,"width=" + w + ",height=" + h + ",toolbar=no,menubar=no,scrollbars=no,resizable=no,location=no,status=no")
}
//-->
</script>
<body background="images/adminbj.jpg">
<p align="center">
<img border="0" src="images/adminlogo.gif">
<table width="608" border="0" cellspacing="0" cellpadding="3" align="center">
<tr><td width="600"><table border="1" width="584" cellpadding="1" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#999999" align="center" height="96">
<tr align=center><td bgcolor="#33CCFF" width="291" height="17"><B>管理员资料修改</B></td>
<td bgcolor="#33CCFF" width="261" height="17"><b>查询考生成绩</b></td>
</tr><tr><td width="291" height="71">
<form method="POST" action="changezl.asp">
<div align="center">用户名：
<input type="text" name="username" size="10" value="">
<br>
密 码：
<input type="password" name="password" size="10" value="">
<br>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="清除">
</div></form></td><td width="261" height="71">
<form method="GET" action="searchscore.asp">
<input type="hidden" name="id" value="1">
<div align="center">准考证号：
<input type="text" name="StudentID" size="16" value="">
<br>
考试科目：
<select name="Subject">
<%rs.Open "Select * From 试卷信息 Order By 创建日期 DESC", conn, 1,1
while not rs.eof%>
<option value="<%=rs("试卷名称")%>"><%=rs("试卷名称")%></option>
<%
rs.movenext
wend
rs.close%>
</select>
<br>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="清除">
<input type="button" onclick=window.open("advancesearch.asp") value="高级" >
</div></form></td></tr></table></td></tr></table>
<%
If Request.QueryString("CurPage") = "" or Request.QueryString("CurPage") = 0 then
CurPage = 1
Else
CurPage = CINT(Request.QueryString("CurPage"))
End If
%>
<%rs.Open "Select * From 试卷信息 Order By 创建日期 DESC", conn, 1,1%>
<%if rs.eof and rs.bof then%>
暂时没有任何记录！！
<%else
rs.PageSize=6'设置每页记录数
Dim TotalPages
TotalPages = rs.PageCount
If CurPage>rs.Pagecount Then
CurPage=RS.Pagecount
end if
RS.AbsolutePage=CurPage
rs.CacheSize = RS.PageSize'设置最大记录数
Dim Totalcount
Totalcount =INT(RS.recordcount)
StartPageNum=1
do while StartPageNum+10<=CurPage
StartPageNum=StartPageNum+10
Loop
EndPageNum=StartPageNum+9
If EndPageNum>RS.Pagecount then EndPageNum=RS.Pagecount %>
<table border="1" width="585" cellpadding="1" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#999999" align="center">
<tr>
<td bgcolor="#33CCFF" height="20" width="194">
<p align="center"><b>当前所有试卷名称</b></p>
</td>
<td align="center" bgcolor="#33CCFF" height="20" width="185"><b>创 建 时 间</b></td>
<td height="20" align="center" bgcolor="#33CCFF" width="192"><b>操 作</b></td>
</tr>
<%I=0
p=RS.PageSize*(Curpage-1)
do while (Not RS.Eof) and (I<RS.PageSize)
p=p+1%>
<tr>
<td bordercolorlight="#C0C0C0" align=left width="194"><b><%=rs("试卷名称")%></b></td>
<td align="center" width="185">[<%=rs("创建日期")%>]</td>
<td bordercolorlight="#c0c0c0" align=middle width="192"><a href="delpaper.asp?id=<%=rs("试卷名称")%>">删除</a>|<a href="modifile.asp?id=<%=rs("试卷名称")%>" target=_blank>修改</a>|
<a class="blue" href="#" onclick="window.open('madepaper.htm','create','scrollbars=no,resizable=no,width=353,height=191')">新建</a></td>
</tr>
<%I=I+1
RS.MoveNext
Loop%>
<tr><td colspan=4 align=middle bordercolorlight="#C0C0C0" width="579">页次： <font color="#CC0000"><%=CurPage%></font>/<%=TotalPages%>
页数： <a href="admin.asp?CurPage=<%=StartPageNum-1%>"><<</a>
<% For I=StartPageNum to EndPageNum
if I<>CurPage then %> <a href="admin.asp?CurPage=<%=I%>"><%=I%></a> <% else %>
<%=I%> <% end if %> <% Next %>
<% if EndPageNum<RS.Pagecount then %> <a href="admin.asp?CurPage=<%=EndPageNum+1%>">下页</a>
<%end if%>|<a href="admin.asp">刷 新</a></td></tr>
</table>
<p align="center">作者：韩波
指导教师：徐新农</p>
<p align="center">单位：物理工程学院电子信息工程专业</p>
<p align="center">2003.5.1</p>
</body>
</html>
<%
end if
rs.close
set rs=nothing
end if
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -