www.gusucode.com > ASP+ACCESS学生成绩查询系统毕业设计(源代码+论文+开题报告) > ASP+ACCESS学生成绩查询系统毕业设计(源代码+论文+开题报告)\score\score\admin.asp
<%if session("password")<>"" then%> <!--#include file="conn.asp"--> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>学生成绩管理系统</title> <script language="JavaScript"> <!-- function test(){ if (document.form2.page.value=="" || isNaN(document.form2.page.value)) { alert("输入页数必须为数值型"); document.form2.page.focus(); return false; } return true; } // --> </script> <script> function del () //用于判断记录有没有选中的函数 { var flag=true; var temp=""; var tmp; if((document.form1.answer.length+"")=="undefined") {tmp=1}else{tmp=document.form1.answer.length} if (tmp==1){ if (document.form1.answer.checked){ flag=false; temp=document.form1.answer.value } }else{ for (i=0;i<document.form1.answer.length;i++) { if (document.form1.answer[i].checked){ if (temp=="") { flag=false; temp=document.form1.answer[i].value }else{ flag=false; temp = temp +","+ document.form1.answer[i].value } } } } if (flag){ alert("对不起,你还没有选择!")} else { name=document.form1.name.value //alert(name) if (confirm("确实要删除?")){ window.location="delnews.asp?id=" + temp; } } return !flag; } </script> <style type="text/css"> <!-- @import url("20041026_25175_stry_css.css"); a { font-size: 12px; } tr { font-size: 12px; } .style1 {font-size: 24px} body { background-color: #FFFFFF; background-image: url(image/bg.jpg); } --> </style> </head> <body> <script language=Javascript> function checkall(all)//用于判断全选记录的函数 { var a = document.getElementsByName("answer"); for (var i=0; i<a.length; i++) a[i].checked = all.checked; } </script> <table width="768" border="0" align="center" cellpadding="5" cellspacing="0"> <tr> <td width="754" valign="top" bgcolor="#A0A4AC" style="line-height:140%;"><img src="image/1.gif" width="800" height="92"></td> </tr> </table> <table width="768" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="30" bgcolor="#A0A4AC"><div align="center" class="unnamed3write">学生成绩管理系统</div></td> </tr> </table> <table width="768" height="25" align="center" cellpadding="0" cellspacing="0" class="unnamed_rld2"> <tr bgcolor="#EEEEEE"> <td width="100" height="25" align="center"><a href="index.asp">首页</a></td> <td width="100" align="center"><a href="add.asp">添加单个成绩</a></td> <td width="100" align="center"><a href="adds.asp">批量添加成绩</a></td> <td width="100" align="center" bgcolor="#EEEEEE"><a href="res.asp">按学号查询</a></td> <td width="100" align="center"><a href="res1.asp">按班级查询</a></td> <td width="100" align="center"><font color="#0000CC" size="2"><a href="admin.asp">管理页面</a></font></td> <td width="100" align="center"><a href="logout.asp">退出</a></td> </tr> </table> <table width="768" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td valign='top'> <!--#include file="conn1.asp"--> <% page = CLng(request("page")) '利用CLng函数把page值转换为Long型 judge=request("judge") judge2=request("judge2") judge3=0 sqlcmd="select * from bbs1 Order By xh Desc" rs.Open sqlcmd,newconn,1,2 %> <form method="POST" id=form1 name=form1> <table width="768" border='1' align="center" cellpadding='0' cellspacing='0' bordercolor="#F0F0F0" id=TabDocMain> <tr> <td width="44" height="20" align=center> 删除框 </td> <td width="124" height="20" align=center>班级</td> <td width="110" height="20" align=center>学号</td> <td width="89" height="20" align=center>姓名</td> <td width="97" height="20" align=center>课程</td> <td width="69" height="20" align=center>成绩</td> <td width="97" height="20" align=center>学期 </td> <td width="86" height="20" align=center>类型</td> <td width="74" height="20" align=center> 操作</td> </tr> <% if not (rs.EOF or rs.BOF) then rs.MoveFirst rs.PageSize = 12 '每页显示的条数 If page < 1 Then page = 1 If page > rs.PageCount Then page = rs.PageCount rs.AbsolutePage = page For ipage = 1 To rs.PageSize %> <tr> <td height="20" align=center width="44"> <input type="checkbox" name="answer" value="<%=rs("id")%>" id="Checkbox1"> </td> <td height="20" align=left width="124"><div align="center"><%=rs("bj")%></div></td> <td height="20" align=left width="110"><div align="center"><%=rs("xh")%></div></td> <td height="20" align=left width="89"><div align="center"><%=rs("user")%></div></td> <td height="20" align=left width="97"><div align="center"><%=rs("kc")%></div></td> <td height="20" align=left width="69"><div align="center"><%=rs("cj")%></div></td> <td height="20" align=left width="97"><div align="center"><%=rs("xq")%></div></td> <td height="20" align=left width="86"><div align="center"><%=rs("lx")%></div></td> <td height="20" align=center width="74"><a href="update.asp?id=<%=rs("id")%>">修改</a></td> </tr> <% rs.MoveNext If rs.EOF Then Exit For Next %> <tr> <td height="20" colspan="12"> <input type="checkbox" name="chkall" value="on" onClick="checkall(this)" id="Checkbox2"> 选中所有的显示新闻 <input type="button" name="btnDelete" value="删除" style='font-family: 宋体; font-size: 9pt;' onClick="del()" id="Button1"> </td> </tr> </table> </form> <table border="0" align="center" cellpadding="0" cellspacing="0" width="768"> <tr> <form onSubmit="return test();" method="get" action="admin.asp" id=form2 name=form2> <td width="220" height="25" bgcolor="#F0F0F0" > <% If page = 1 Then Response.Write "<font class='white'>第一页 上一页</font>" End If If page <> 1 Then Response.Write "<a href=admin.asp?page=1 class='yellow'>第一页</a>" Response.Write " <a href=admin.asp?page=" & (page - 1) & " class='yellow'>上一页</a>" End If If page <> RS.PageCount Then Response.Write " <a href=admin.asp?page=" & (page + 1) & " class='yellow'>下一页</a>" Response.Write " <a href=admin.asp?page=" & RS.PageCount & " class='yellow'>最后一页</a>" End If If page = RS.PageCount Then Response.Write " <font class='white'>下一页 最后一页</font>" End If %></td> <td height="25" bgcolor="#E4E4E4" >GOTO页数: <%Response.Write "<input type=text size=2 maxlength=4 name=page class=editbox1><input type=hidden name=judge value=1>" '显示输入页数框并将page,judge参数传递下去%></td> </form> </tr> <tr> <td class="white" colspan="2" height="25" >记录总数:<%=rs.recordCount%> 总页数:<%=rs.PageCount%> 当前页次:<%=page%> </td> </tr> </table> <table width="768" border="0" cellspacing="0" cellpadding="0"> <tr> <td><%else%></td> <td><table border="0" cellpadding="0" cellspacing="0" > <td height="25" >对不起,还没有记录!</td> </table></td> <td><%end if%></td> </tr> </table></td> </tr> </table> <p> </p> <p> </p> <p> <% set rs=server.createobject("adodb.recordset") sql="select * from bbs1 order by xh desc" rs.open sql,conn,1,3 %> </p> <table width="768" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="30" bgcolor="#A0A4AC"><div align="center" class="unnamed3write"><a href="http://www.163.com" class="unnamed3write">powered by deng131 </a></div></td> </tr> </table> </body> </html> <%else Response.Redirect "admpost.asp" end if %>