查看: 80|回复: 1

asp组合查询分页问题，请教高手

[复制链接]

西门庆

电梯直达

1^#

发表于 2010-1-10 02:05:12 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

同页多条件查询，查询正常显示，第一页、上一页、下一页、最后一页都显示全部记录，差了很多种方法都解决不了，请高手帮忙看看。
附源码：
<%
bzr=Session("UserName")
      strSql = "SELECT * FROM class WHERE mainteacher='"&bzr&"'"
   Set rs11 = Server.CreateObject("ADODB.Recordset")
   rs11.open strSql,conn,1,1
   bj=rs11("name")

%>

<table width="808" style="border-collapse: collapse" height="37">
  <form id="form1" name="form1" id="form1" method="post" action="Index_Student_kq.asp" target="_self">
  <td width="796" bgcolor="#6699FF" height="37" align="center" colspan="16">
      选择班级：
      <select name="classid" size="1">
   <%
strSql = "SELECT * FROM Class WHERE name='"&bj&"'"
Set rs111 = Server.CreateObject("ADODB.Recordset")
rs111.open strSql,conn,1,1
%>
   <%
         Do While Not rs111.EOF
%>
   <option value=<%=rs111("name")%> selected><%=rs111("name")%></option>
   <%
         rs111.movenext
         loop
         rs111.close
%>
</select> 学期： <select name="xq" size="1">
      <option value=1 selected>第一学期</option>

         <option value="2">第二学期</option>
         <option value="3">第三学期</option>
         <option value="4">第四学期</option>
         <option value="5">第五学期</option>

      </select>

      科目：<select name="Kc" size="1">
<%
strSql = "SELECT * FROM suject"
Set rs222 = Server.CreateObject("ADODB.Recordset")
rs222.open strSql,conn,1,1
%><%
         Do While Not rs222.EOF
%>
   <option value="<%=rs222("name")%>" selected><%=rs222("name")%></option>
   <%
         rs222.movenext
         loop
         rs222.close
%>

      </select>
      <select name="By" size="1">
         <option value="zp">总评成绩</option>
            <option value="bukao1">第一次补考</option>
         <option value="bukao2">第二次补考</option>
         <option value="bukao3">第三次补考</option>
      </select>
      <select name="By0" size="1">
         <option value="全部">全部</option>
         <option value="及格">及格</option>
            <option value="不及格">不及格</option>
      </select>
   <%
Dim strSearchSql ,strKc ,strBy ,strBj ,strBy0,strxq
strBy = Request.form("By")
strBy0 = Request.form("By0")
strBj = trim(Request.form("classid"))
strKc = Request.form("Kc")
strxq = Request.form("xq")

If strBj <> "" And  strBy <> "" and strKc <> "" and strby0 <> "" Then
      If strBy = "zp" and strby0 = "全部" Then
         strSearchSql = "WHERE class = '"& strBj &"' and xueqi = '"& strxq &"' and kemu = '"& strKc &"'"
      elseIf strBy = "zp" and strby0 = "及格" then
         strSearchSql = "WHERE class = '"& strBj &"' and xueqi = '"& strxq &"' and kemu = '"& strKc &"' and zongpingfen > 59"
      elseIf strBy = "zp" and strby0 = "不及格" then
         strSearchSql = "WHERE class = '"& strBj &"' and xueqi = '"& strxq &"' and kemu = '"& strKc &"' and zongpingfen < 60"
      elseIf strBy = "bukao1" and strby0 = "及格" then
         strSearchSql = "WHERE class = '"& strBj &"' and xueqi = '"& strxq &"' and kemu = '"& strKc &"' and bukao1 > 59"
      elseIf strBy = "bukao1" and strby0 = "不及格" then
         strSearchSql = "WHERE class = '"& strBj &"' and xueqi = '"& strxq &"' and kemu = '"& strKc &"' and bukao1 < 60"
      elseIf strBy = "bukao2" and strby0 = "及格" then
         strSearchSql = "WHERE class = '"& strBj &"' and xueqi = '"& strxq &"' and kemu = '"& strKc &"' and bukao2 > 59"
      elseIf strBy = "bukao2" and strby0 = "不及格" then
         strSearchSql = "WHERE class = '"& strBj &"' and xueqi = '"& strxq &"' and kemu = '"& strKc &"' and bukao2 < 60"
      elseIf strBy = "bukao3" and strby0 = "及格" then
         strSearchSql = "WHERE class = '"& strBj &"' and xueqi = '"& strxq &"' and kemu = '"& strKc &"' and bukao3 > 59"
      elseIf strBy = "bukao3" and strby0 = "不及格" then
         strSearchSql = "WHERE class = '"& strBj &"' and xueqi = '"& strxq &"' and kemu = '"& strKc &"' and bukao3 < 60"

      Else
         strSearchSql = "WHERE "& strBy &" = '"& strBj &"' and kemu = '"& strKc &"'"
      End If
Else
      strSearchSql = "WHERE class = '"& bj &"'"

End If
Dim rs,rs11,rs22 ,strSql ,Num ,pageNum ,page ,loopNum
strSql = "SELECT * FROM Student_cj " & strSearchSql
      Set rs = Server.CreateObject("ADODB.Recordset")
      rs.open strSql,conn,3,3

'If rs.EOF Then
' Response.Write("对不起，没有记录！")
' Response.End
'End If


%>

<%
If rs.recordcount > 0 Then
      rs.pagesize = 14
      Num = rs.recordcount
      pageNum = rs.pagecount
      page =  Request.QueryString("page")
      If page <> ""  Then
         page = Cint(page)
      ElseIf page < 1 Then
         page = 1
      Else
         page =1
      End If
      If page < 1 then
         page =1
      End If
      If page*rs.pagesize >Num and Not ((page-1)*rs.pagesize <Num) Then
         page = 1
      End If
      rs.absolutepage = page
      If page <> pageNum Then
         LoopNum = rs.pagesize
      Else
         LoopNum = Num - (page-1)*rs.pagesize
      End If

%><input type="submit" name="Submit" />
      </td>
</form></table></table>
</td><table width="808" style="border-collapse: collapse" height="102">
  <form name="form2" id="form2" method="post" action="KQLR.asp" target="_self">

  <tr bgcolor="#009933">
<td width="20" bgcolor="#B1DB99" align="center" height="40" style="border: 1px solid #000000" rowspan="2">
ID</td>
<td width="110" bgcolor="#B1DB99" align="center" height="40" style="border: 1px solid #000000" rowspan="2">
班级</td>
<td width="102" bgcolor="#B1DB99" align="center" height="40" style="border: 1px solid #000000" rowspan="2">
学号</td>
<td width="49" bgcolor="#B1DB99" align="center" height="40" style="border: 1px solid #000000" rowspan="2">
姓名</td>
<td width="19" align="center" height="40" bgcolor="#B1DB99" style="border: 1px solid #000000" rowspan="2">
学期</td>
<td width="105" align="center" height="40" bgcolor="#B1DB99" style="border: 1px solid #000000" rowspan="2">
科目</td>
<td width="30" align="center" height="40" bgcolor="#B1DB99" style="border: 1px solid #000000" rowspan="2">
面授次数</td>
<td width="28" align="center" height="40" bgcolor="#B1DB99" style="border: 1px solid #000000" rowspan="2">
20%</td>
<td width="33" align="center" height="40" bgcolor="#B1DB99" style="border: 1px solid #000000" rowspan="2">
作业成绩</td>
<td width="31" align="center" height="40" bgcolor="#B1DB99" style="border: 1px solid #000000" rowspan="2">
10%</td>
<td width="30" align="center" height="40" bgcolor="#B1DB99" style="border: 1px solid #000000" rowspan="2">
考试成绩</td>
<td width="33" align="center" height="40" bgcolor="#B1DB99" style="border: 1px solid #000000" rowspan="2">
70%</td>
<td width="42" align="center" height="40" bgcolor="#B1DB99" style="border: 1px solid #000000" rowspan="2">
总评分</td>
<td width="138" align="center" height="20" bgcolor="#B1DB99" style="border: 1px solid #000000" colspan="3">
补  考</td>
  </tr>
  <tr>
<td width="42" align="center" height="21" bgcolor="#B1DB99" style="border: 1px solid #000000">
第一次</td>
<td width="44" align="center" height="21" bgcolor="#B1DB99" style="border: 1px solid #000000">
第二次</td>
<td width="38" align="center" height="21" bgcolor="#B1DB99" style="border: 1px solid #000000">
第三次</td>
  </tr>
  <% For i = 1 to LoopNum %>
  <tr bgcolor="#FFFFFF" onMouseOver="this.style.backgroundColor='#FFFFCC'" onMouseOut="this.style.backgroundColor='#FFFFFF'">
<td align="center" height="25" bgcolor="#EBEBEB" style="border: 1px solid #000000" width="20">
                  <input type="checkbox" name="checkbox" value="<%=rs("id")%>" checked></td>
<td align="center" height="25" bgcolor="#EBEBEB" style="border: 1px solid #000000" width="110">
　<%=rs("class")%></td>
<td align="center" height="25" bgcolor="#EBEBEB" style="border: 1px solid #000000" width="102">
<%=rs("sno")%></td>
<td align="center" height="25" bgcolor="#EBEBEB" style="border: 1px solid #000000" width="49">
<a href="DetailStudent_cj.asp?sno=<%=rs("sno")%>"><%=rs("name")%></a></td>
<td align="center" height="25" bgcolor="#EBEBEB" style="border: 1px solid #000000"><%=rs("xueqi")%></td>

<td align="center" height="25" bgcolor="#EBEBEB" style="border: 1px solid #000000">
<%=rs("kemu")%></td>
<td align="center" height="25" bgcolor="#EBEBEB" style="border: 1px solid #000000"><%=rs("chuqincishu")%></td>
<td align="center" height="25" bgcolor="#EBEBEB" style="border: 1px solid #000000">
<%=rs("chuqindefen")%></td>
<td align="center" height="25" bgcolor="#EBEBEB" style="border: 1px solid #000000"><%=rs("zuoyefenshu")%></td>
<td align="center" height="25" bgcolor="#EBEBEB" style="border: 1px solid #000000" width="31"><%=rs("zuoyedefen")%></td>
<td align="center" height="25" bgcolor="#EBEBEB" style="border: 1px solid #000000" width="30">
<%=rs("kaoshifenshu")%></td>
<td align="center" height="25" bgcolor="#EBEBEB" style="border: 1px solid #000000" width="33">
<%=rs("kaoshidefen")%></td>
<td align="center" height="25" bgcolor="#EBEBEB" style="border: 1px solid #000000" width="42">
<%if rs("zongpingfen") < 60 then %><font color=#FF0000> <%=rs("zongpingfen")%> </font><%else%><font color="#000080"> <%=rs("zongpingfen")%> </font> <%end if%></td>
</td>
<td align="center" height="25" bgcolor="#EBEBEB" style="border: 1px solid #000000" width="42">
<%if rs("bukao1") < 60 then %><font color=#FF0000> <%=rs("bukao1")%> </font><%else%><font color="#000080"> <%=rs("bukao1")%> </font> <%end if%></td>
<td align="center" height="25" bgcolor="#EBEBEB" style="border: 1px solid #000000" width="44">
<%if rs("bukao2") < 60 then %><font color=#FF0000> <%=rs("bukao2")%> </font><%else%><font color="#000080"> <%=rs("bukao2")%> </font> <%end if%></td>
<td align="center" height="25" bgcolor="#EBEBEB" style="border: 1px solid #000000" width="44">
<%if rs("bukao3") < 60 then %><font color=#FF0000> <%=rs("bukao3")%> </font><%else%><font color="#000080"> <%=rs("bukao3")%> </font> <%end if%></td>
  </tr>
  <% rs.movenext
   Next %>
  <tr>

<td colspan="16" bgcolor="#B3CBFF" width="0" height="23"><div align="center">
      总共找到<%=Num%>条记录 <a href="index_student_kq.asp?page=1"><font color="#0000FF">首页</font></a><font color="#0000FF"> </font><a href="index_student_kq.asp?page=<%=page-1%>"><font color="#0000FF">上一页</font></a><font color="#0000FF"> </font><a href="index_student_kq.asp?page=<%=page+1%>&xueqi=<%=strxq%>&kemu=<%=strkc%>"><font color="#0000FF">下一页</font></a><font color="#0000FF"> </font><a href="index_student_kq.asp?page=<%=pageNum%>"><font color="#0000FF">尾页</font></a> 页次:<%=page%>/<%=pagenum%> 共<%=pageNum%>页</div></td>
  </tr>
<tr>
<td colspan="16" bgcolor="#C2A6FF" width="0" height="20">
<p align="center">
            <input type="submit" name="Submit" value="  进入添加所选中学生的考勤次数  " style="border: 1pt solid #EEEEEE">     
            <input type="reset" name="Submit2" value="  重新选择  " style="border: 1pt solid #EEEEEE"></td>
  </tr>
</table>
<%
Else
%>
<table width="808" style="border-collapse: collapse">

  <tr>
<td bgcolor="#EBEBEB" height="32" style="border: 1px solid #000000">
<p align="center">没有相关记录！</td>
  </tr>
  <tr>
<td></td>
  </tr>
</table>
<%
End If
%>

收藏0

使用道具举报

返回列表

		自动登录	找回密码
密码			注册