list.asp

用ASP写的学生管理系统

<!--#include file="conn.asp"-->
<%
pages = 20
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where UserNum is not null"
if request("show")<>"yes" then sql=sql+usersql 
  sql=sql+" order by SignDate desc"
  rs.open sql,conn,1,3
  if rs.eof and rs.bof then
  response.write "<tr><td colspan=7 align=center height=50><font color=red>暂时没有学生</font></td></tr>" 
'response.end 
 
else
  totalrs=rs.RecordCount
  rs.pageSize = pages
  allPages = rs.pageCount
  page = Request("page")
If not isNumeric(page) then page=1
if isEmpty(page) or int(page) <=1 then
 page = 1
elseif int(page) > allPages then
 page = allPages 
end if
rs.AbsolutePage = page
%>

<Table width="100%" border="0" cellspacing="1" cellpadding="0">
          <br>
      <tr>
<% i=1
   Do While Not rs.eof and pages>0 
usertype=rs("usertype")
if usertype="2" then
usertype="管理员"
elseif usertype="3" then
usertype="班长"
elseif usertype="4" then
usertype="副班长"
elseif usertype="5" then
usertype="团支书"
elseif usertype="6" then
usertype="委员级别"
else
usertype="普通学生"
end if
%>
<Td> 
<TABLE id=AutoNumber2  style="BORDER-COLLAPSE: collapse"  borderColor=#111111 cellSpacing=0 cellPadding=0  width=276 border=0>
                <tr><td width="8%" ><td> <td width="32%" > <a href='show.asp?userid=<%=rs("userid")%>'><%=rs("UserName")%></a></td>
                <td><span alt="<%=rs("SignDate")%>"><%=split(rs("SignDate")," ")(0)%></span></td>
       </tr></table>
<Td>
<%if i mod 2 <>0 then%>
 <%end if%>
  <% if i mod 2 =0 then%>
          </Tr>
              <Tr>  
               <%end if%>
<% 
rs.movenext
pages = pages - 1
i=i+1
if rs.eof then exit do
loop
end if
%>
  </Tr>
</Table>

<%
response.write "<br>&nbsp;&nbsp;&nbsp;&nbsp;总学生人数<font color=red>"&totalrs&"</font> &nbsp; 每页<font color=red>20</font>&nbsp; "
if page <= 1 then
response.write "<font color=darkgray>首页 前页</font>"
else
response.write "<a href=list2.asp?keywords="&keywords&"&page=1>首页</a> <a href=list2.asp?keywords="&keywords&"&page="&page-1&">前页</a>"
end if
if page = allpages then
response.write "<font color=darkgray> 下页 末页</font>"
else
response.write " <a href=list2.asp?keywords="&keywords&"&page="&page+1&">下页</a> <a href=list2.asp?keywords="&keywords&"&page="&allpages&">末页</a>"
end if
response.write " &nbsp;&nbsp;&nbsp;第"&page&"页 共"&allpages&"页"

rs.close
set rs=nothing 
%>