日期:2014-05-16  浏览次数:20815 次

从网上看了个:点击表单中某字段升序、再点下降序。放到我的代码里去没有反应,请问怎么
<%
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                       &nb