www.gusucode.com > 25175 学生成绩管理查询系统码程序 > ADMIN/admin_liuyan.asp

    <!-- #include file="../config.asp" -->
<%if session("password")<>"" then
session("return")=request.ServerVariables("SCRIPT_NAME")%>
<!-- #include file="../conn.asp" -->
<!-- #include file="admin_top.asp" -->
<!-- #include file="../images/jav4.inc" -->


<table width="98%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td valign='top'>
           <%
    page = CLng(request("page"))                            '利用CLng函数把page值转换为Long型
    judge=request("judge")
    judge2=request("judge2")
    judge3=0
    sqlcmd="select * from liuyan Order By id desc"
    rs.Open sqlcmd,conn,1,2
           %>
      <form method="POST" id=form1 name=form1>
                  <%
            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
            %>

            <div align="center">
            <table width="98%"  border="0" align="center" cellpadding="0" cellspacing="0">
            <tr><td colspan="11" background=images/line.gif height=7></td></tr>
            <tr><td width="2%"><input type="checkbox" name="answer" value="<%=rs("id")%>" id="Checkbox1"></td>
            <td width="5%">学号:</td><td width="15%"><div align="center"><%=rs("xh")%></div></td>
			<td width="5%">姓名:</td><td width="15%"><div align="center"><%=rs("name")%></div></td>
			<td width="5%">Q  Q:</td><td width="15%"><div align="center"><%=rs("qq")%></div></td>
			<td width="5%">邮箱:</td><td width="15%"><div align="center"><%=rs("email")%></div></td>
			<td width="5%">电话:</td><td width="15%%"><div align="center"><%=rs("phone")%></div></td></tr>
            <tr><td></td>
            <td colspan="10">标题:<font color="#FF0000"><%=rs("title")%></font>
            <br>内容:<br><%=rs("content")%>
</td></tr>
            </table></div>            
                      <%
                rs.MoveNext      
                If rs.EOF Then Exit For   
                Next   
          %>
          <table width="97%"  border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
            <td height="20" colspan="9">&nbsp;&nbsp;<input type="checkbox" name="chkall" value="on" onClick="checkall(this)" id="Checkbox2">
              选中所有的显示成绩&nbsp;&nbsp;<input type="button" name="btnDelete" value="删除" style='font-family: 宋体; font-size: 9pt;' onClick="del()" id="Button1">&nbsp;<input type="reset" name="b" value="重置" style='font-family: 宋体; font-size: 9pt;' id="Button1">            </td>
         </tr>
        </table>
      </form>
      <div align=center><table border="0" align="center" cellpadding="0" cellspacing="0" width="98%">
        <tr>
          <form onSubmit="return test();" method="get" action="admin_liuyan.asp" id=form2 name=form2>
            <td width="30%" 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_liuyan.asp?page=1 class='yellow'>第一页</a>"
                   Response.Write " <a href=admin_liuyan.asp?page=" & (page - 1) & " class='yellow'>上一页</a>"
                End If
                If page <> RS.PageCount Then 
                   Response.Write " <a href=admin_liuyan.asp?page=" & (page + 1) & " class='yellow'>下一页</a>"
                   Response.Write " <a href=admin_liuyan.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>
      </div>
<%else%>
 <table border="0" cellpadding="0" cellspacing="0" >
			<tr>
              <td height="25">对不起,还没有留言!</td>
			</tr>
          </table><%end if%>
		</td>
	</tr>
</table> 	</td>	

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