<%
if session("Name") = "" then
response.Redirect "Login.asp"
end if
%>
<!--#include file="CONN.ASP"-->
<html>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="images/Admin_Style.css">
<head>
<title>管理中心</title>
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<%
rOlderType = trim(request("orderType"))
if rOlderType="" or isNull(rOlderType) then
olderType = "asc"
else
olderType = rOlderType
end if
if olderType="asc" then
olderTypeStr = "desc"
else
olderTypeStr = "asc"
end if
rOlderField = trim(request("olderField"))
if rOlderField="" or isNull(rOlderField) then
olderField = "id"
else
olderField = rOlderField
end if
sql = "select * from user where class="高二3班" order by "&orderField&""&olderType
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr align="center" class="topbg">
<td width="50" height="25"><b><a href="">姓名</a></b></td>
<td width="45"><b><a href="">性别</a></b></td>
<td width="30"><b><a href="">政治面貌</a></b></td>
<td width="80"><b><a href="">民族</a></b></td>
</tr>
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from user where class="高二3班" order by xingming"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("本目录下没有数据记录!")
else
rs.PageSize=25
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%> <tr align="center" class="tdbg" onMouseOver="this.style.background='#CBE0D8'" onMouseOut="this.style.background='#E1F4EE'">
<td width="50" height="23"><%=rs("class")%></td><!--班级 -->
<td width="45" align="left"> <%=rs("xingming")%></td><!--姓名 -->
<td width="30"><%=rs("sex")%></td><!--性别 -->
<td width="80"><%=rs("zzmm")%></td><!--政治面貌 -->
<td width="45"><%=rs("mz")%></td><!--民族 -->
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
</table>
</div>
<br>
<table cellpadding="2" cellspacing="1" border="0" width="100%" class="border" align="center" id="table1">
<tr align="right">
<form method="Post" action="test.asp">
<td height="23" class="topbg"><%if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href=test.asp?page=1>首页</a> "
response.write "<a href=test.asp?page=" & Page-1 & ">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=test.asp?page=" & (page+1) & ">"
response.write "下一页</a> <a href=test.asp?page="&rs.pagecount&">尾页</a>"
end if
response.write " 页次:<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write " 共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
response.write " 转到:<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
response.write " <input class=input type='submit' value=' Goto ' name='cndok'></span>"
详细解决方案
从网上看了个:点击表单中某字段升序、再点下降序。放到小弟我的代码里去没有反应,请教如何
热度:302 发布时间:2013-12-02 12:00:40.0
相关解决方案
- 为啥调用 UpdateAllViews 没有反应
- helloworld例子小弟我在电脑上编译成功,但传到手机上运行,没有反应?详见正文
- 单击 "Internal Frame"没有反应 请指教
- 安插图片到SQL数据库,保存图片路径,没有反应
- 为啥点击链接file://10.86.84.108/share/没有反应
- 为何点击链接file://10.86.84.108/share/没有反应
- 请教:键盘监听,为什么总是失灵||没有反应
- pl sql 中 show serveroutput 没有反应 ?解决方案
- qt检测u盘安插,没有反应
- android.view.View中的事件处理,没有反应,该如何处理
- WPF DataGrid 绑定到 ObservableCollection 没有反应,该怎么处理
- python idle(idle.bat)没有反应(不运行,无警告)的修复