admin_chengjibat.asp

本科毕业课程设计！学生管理系统！功能相当强大

<%
if session("password")<>"" then
session("return")=request.ServerVariables("SCRIPT_NAME")
%>
<!-- #include file="inc/conn.asp" --> 
<!-- #include file="images/jav3.inc" -->
<!-- #include file="inc/top.asp"-->
<!-- #include file="inc/adminmenu.asp" -->
<style type="text/css">
body {
	background-image: url(2/main.jpg);
	background-attachment:fixed|scroll;
} 
</style>


<table width="768"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td valign='top'>
      <!--#include file="inc/conn1.asp"-->
      <% 
	  a=request("action")
	  if a="del" then
	     id=request("id")
		 if id="" or not isNumeric(id) then
		    response.Write("<script>alert('参数错误');history.back();</script>")
		 end if
		 page=request("page")
		 
		 conn.execute("delete from bbs1 where id="&id&"")
		 response.write("<script>alert('删除成功');location.replace('admin_chengjibat.asp?page="&page&"');</script>")
	    
	  end if
	  
	  
    page = CLng(request("page"))                            '利用CLng函数把page值转换为Long型
    judge=request("judge")
    judge2=request("judge2")
    judge3=0
    sqlcmd="select * from bbs1 Order By id desc"
    rs.Open sqlcmd,newconn,1,2
%>
      <form method="POST" id=form1 name=form1>
	  	  <table width="768" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td>&nbsp; <strong>成绩管理</strong></td>
  </tr>
</table>

        <table width="768" border='1'  align="center" cellpadding='0' cellspacing='0' bordercolor="#F0F0F0" id=TabDocMain>
          <tr>
            <td width="5%" height="20" align=center> 用户 </td>
            <td width="15%" height="20" align=center>课程</td>
         
            <td width="25%" height="20" align=center>成绩</td>
            <td width="15%" height="20" align=center>课程类型 </td>
            
            <td width="8%" 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="42"><%=rs("user")%></td>
            <td height="20" align=center><%=rs("kc")%></td>
            <td height="20" align=center nowrap><%=rs("cj")%></td>
            <td height="20" align=center><%=rs("lx")%></td>
           
            <td height="20" align=center><a href="cjmodify.asp?page=<%=page%>&id=<%=rs("id")%>">修改</a>&nbsp;|&nbsp;<a href="?action=del&id=<%=rs("id")%>&page=<%=page%>" onClick="javascript:return confirm('一旦删除将不能恢复！！？');">删除</a></td>
          </tr>
          <%
                rs.MoveNext      
                If rs.EOF Then Exit For   
                Next   
      %>
         
        </table>
      </form>
      <table border="0" align="center" cellpadding="0" cellspacing="0" width="768">
        <tr>
          <form onSubmit="return test();" method="get" action="admin_chengjibat.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=?page=1 class='yellow'>第一页</a>" 
                   Response.Write "　<a href=?page=" & (page - 1) & " class='yellow'>上一页</a>" 
                End If
                If page <> RS.PageCount Then 
                   Response.Write "　<a href=?page=" & (page + 1) & " class='yellow'>下一页</a>" 
                   Response.Write "　<a href=?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" bgcolor="#FFFFFF">记录总数：<%=rs.recordCount%>　总页数：<%=rs.PageCount%>　当前页次：<%=page%> </td>
        </tr>
      </table>      <table width="768" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><%else%></td>
          <td colspan=9><table border="0" cellpadding="0" cellspacing="0" >
              <td height="25" >对不起，还没有记录！</td>
          </table></td>
          <td><%end if%></td>
        </tr>
    </table></td>
  </tr>
</table>

<!-- #include file="inc/copyright.asp"-->