📄 list2.asp

📁 用ASP写的学生管理系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<HEAD><TITLE>学生信息列表</TITLE>
<META http-equiv=Content-Language content=zh-cn>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="images/style.css" type=text/css rel=stylesheet>

</HEAD>
<BODY  bgColor=#2f66bf >
<DIV align=center>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 cellSpacing=0 
cellPadding=0 width=763 border=0>
  <TBODY>
  <TR>
    <TD width="100%"><!--#include file="head.asp"--></TD></TR></TBODY></TABLE>
	
<TABLE dir=ltr cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD vAlign=top>
      <DIV align=center>
      <TABLE height=830 cellSpacing=0 cellPadding=0 width=763 border=0>
        <TBODY>
        <TR>
          <TD width=763 background=images/head_13.jpg height=15></TD></TR>
        <TR>
          <TD vAlign=top align=middle width=763 
          background=images/head_14.jpg height=49>
            <TABLE id=AutoNumber3 style="BORDER-COLLAPSE: collapse" 
            borderColor=#111111 cellSpacing=0 cellPadding=0 width=763 
              border=0><TBODY>
              <TR>
                <TD width=11 rowSpan=4>　</TD>
                <TD width=741></TD>
                <TD width=11 rowSpan=4>　</TD></TR>
              <TR>
                <TD width=741></TD></TR>
              <TR>
                <TD width=741>　</TD></TR>
              <TR>
                <TD width=741></TD></TR></TBODY></TABLE></TD></TR>
        <TR>
          <TD width=763 background=images/head_16.jpg height=11></TD></TR>
        <TR>
          <TD width=763 background=images/head_11.jpg height=726>
            <DIV align=center>
            <TABLE id=table8 height="101%" cellSpacing=0 cellPadding=0 
            width="100%" border=0>
              <TBODY>
              <TR>
                <TD vAlign=top align=middle width=187>
                  <!-- #include file="left.asp" -->
				 </TD>
                <TD vAlign=top>
                  <TABLE id=table9 height=30 cellSpacing=0 cellPadding=0 
                  width=571 border=0>
                    <TBODY>
                    <TR>
                      <TD width=12 background=images/sousuo_1.jpg>　</TD>
                      <TD width=115 background=images/sousuo_2.jpg>
                        <TABLE id=table12 height=18 cellSpacing=0 cellPadding=0 
                        width="100%" border=0>
                          <TBODY>
                          <TR>
                            <TD vAlign=top><FONT color=#ffffff><SPAN 
                              style="FONT-SIZE: 12px">&nbsp;学 生 搜 
                            索</SPAN></FONT></TD></TR></TBODY></TABLE></TD>
                      <TD background=images/sousuo_2.jpg>　 </TD>
                      <TD vAlign=top width=133 
                      background=images/sousuo_2.jpg>
                        <FORM style="MARGIN: 0px" name="form1" action="search.asp"  method="post">
                        <TABLE cellSpacing=0 cellPadding=0 width=390 border=0>
                          <TBODY>
                          <TR>
                            <TD width=56></TD>
                            <TD vAlign=top width=144><SPAN lang=zh-cn>
							<SELECT class=smallSel size=1 name="searchid">
							 <OPTION  value="Userid" selected name="typeid">=按登陆学号=</OPTION> 
                             <OPTION value="UserName"  name="typeid">=按学生姓名=</OPTION>
							 <OPTION value="Sex"  name="typeid">=按学生性别=</OPTION>
							 <OPTION value="Birthday"  name="typeid">=按出生年月=</OPTION>
							 <OPTION value="Banji"  name="typeid">=按学生班级=</OPTION>
						    </SELECT></SPAN>
							 
						    </TD>
                            <TD vAlign=top width=113>
							<input name="searchkey" type="text" onfocus="this.value=''" size="10" maxlength="10" value=关键字>
							
						    </TD>
                           <TD width=77><DIV align=center>
							<INPUT type=image src="images/sousuo_4.jpg" border=0 name=Submit value="开始查找" onclick="return checkk();"></DIV></TD></TR></TBODY></TABLE></FORM></TD></TD>
                      <TD width=15 
                    background=images/sousuo_5.jpg>　</TD></TR></TBODY></TABLE>
                  <TABLE id=table15 height=131 cellSpacing=0 cellPadding=0 
                  width=568 border=0>
                    <TBODY>
                    <TR>
                      <TD width=146 background=images/bjbg_1.jpg height=35>
						<TABLE id=table16 height=20 cellSpacing=0 cellPadding=0 width="100%" border=0>
                          <TBODY>
                          <TR>
                            <TD align=middle><FONT style="FONT-SIZE: 12px" 
                              color=#ff0000>学 生 列 表</FONT></TD></TR></TBODY>
					     </TABLE></TD>
                         <TD width=422 height=35><IMG height=35 src="images/bjbg_2.jpg" width=422 border=0></TD></TR>
                    <TR>
                         <TD align=middle width=568 background=images/bjbg_3.jpg colSpan=2>
         <table id=table28 height=16 align="center"  cellSpacing=0 cellPadding=0  width=557 border=0>
           <tr><td valign="top">
         
<%
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>
<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 
%></td></tr>
<TR> <TD width=568 colSpan=2 height=16><IMG height=16 src="images/bjbg_6.jpg" width=568 border=0></TD></TR>
</TABLE>

			
                  
                        </TABLE></TD></TABLE>
<DIV align=center>
<CENTER>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=76 
cellSpacing=0 cellPadding=0 width=763 border=0>
  <TBODY>
  <TR>
    <TD width=763 background=images/xiabg_3.jpg height=76>
      <DIV align=center>
      <TABLE id=table34 cellSpacing=0 cellPadding=0 width="98%" border=0>
        <TBODY>
        <TR>
          <TD align=middle><FONT color=#051547><SPAN 
            style="FONT-SIZE: 12px">CopyRingt 2006&nbsp; 
        清水河源工作室</SPAN></FONT></TD>
        </TR></TBODY></TABLE></DIV></TD></TR></TBODY></TABLE></CENTER></DIV>
<DIV></DIV></BODY>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -