欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

从网上看了个:点击表单中某字段升序、再点下降序。放到小弟我的代码里去没有反应,请教如何

更新时间: 2014-01-05 00:56:19 责任编辑: Author_N1

 

从网上看了个:点击表单中某字段升序、再点下降序。放到我的代码里去没有反应,请问怎么
<%
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">&nbsp;<%=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 "首页 上一页&nbsp;"
  else
    response.write "<a href=test.asp?page=1>首页</a>&nbsp;"
    response.write "<a href=test.asp?page=" & Page-1 & ">上一页</a>&nbsp;"
  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 "&nbsp;页次:<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
    response.write "&nbsp;共<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>"     
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 00:56:19
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/1599/
本文WWW.DOC100.NET DOC100.NET版权所有。