<!--#include file="admin_chk.asp"-->
<!--#include file="book_conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="page.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.b {color:#cccc99;font-size:10pt;border:dotted 1px}
.style2 {color: #FF9900}
-->
</style>
</head>

<body>
<table width="188" height="34" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><div align="center">网上报名管理</div></td>
  </tr>
</table>
<table width="568" height="262" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr>
    <td valign="top" bgcolor="#FFFFFF"><br>
      <table width="508" height="25" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td width="508"><span class="style2">点击学生姓名可以查看报名的详细情况！</span></td>
      </tr>
    </table>
            <hr width="90%" size="1" class="form">
            <br>
      <table width="517" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td width="92"><div align="center">学生姓名</div></td>
        <td width="67"><div align="center">报名状态</div></td>
        <td width="87"><div align="center">所报专业</div></td>
        
        <td width="215"><div align="center">报名时间</div></td>
        <td width="43"><div align="center">操作</div></td>
        <td width="13"><div align="center"></div></td>
      </tr>
    </table>
      <%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from wsbm order by Time desc",conn,1,1
url="wsbmdd.asp"

page=1    ' 设置变量PAGE=1
rs.PageSize = 10 '每页显示记录数
if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...
Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
        if Page > rs.PageCount then '如果接收的页数大于总页数
        rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
            elseif Page <= 0 then '如果page小于等于0
        Page = 1 '设置PAGE等于第一页
    else
        rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数 
    end if
End if
Page = rs.AbsolutePage 
total = rs.RecordCount
%>
      <% 
For i = 1 to rs.PageSize
if rs.EOF then     
Exit For 
end if '利用for next 循环依次读出记录
%>      <table width="517" height="34" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="92">            <div align="center"><a href="wsbmddtype.asp?id=<%=rs("id")%>"><%= rs("studentname") %></a></div></td>
          <td width="67"><div align="center"><% if rs("Status")=0 then %><font color="#FF0000">新报名</font><%end if %><% if rs("Status")=11 then %><font color="#0000FF">自行取消</font><%end if %><% if rs("Status")=99 then %>订单完成<%end if %>  </div></td>
          <td width="87"><div align="center"><%= rs("zy") %></div></td>
          
          <td width="216"><div align="center"><%= rs("Time") %></div></td>
          <td width="44"><div align="center"><a href="wsbmdddel.asp?id=<%=rs("id")%>">删除</a></div></td>
          <td width="11"><div align="center"></div></td>
        </tr>
      </table><% rs.MoveNext
					  next %>
      <table width="476" height="34" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="510"><div align="right">
              <%
					  response.Write("第"&page&"/"&rs.pagecount&"页 共"&total&"条记录 ")

if Page>1 then
    response.write "<a Href="&url&"?Page="&"1"&">首页</a> <a Href='"&url&"?Page="&Page-1&"'>上一页</a> "

else
    response.write "首页 上一页 "
end if

if Page<>rs.pagecount then
    response.write "<a Href='"&url&"?Page="&Page+1&"'>下一页</a> <a Href='"&url&"?Page="&rs.PageCount&"'>尾页</a>"
else
    response.write "下一页 尾页"
end if
%>
          </div></td>
        </tr>
      </table></td>
  </tr>
</table>
</body>
</html>
 
