Question

asp 多表查询 分页

查询的是："select * where cclass.c_name like '%"& kw &"%' and aclass.a_id=bclass.b_aclass and bclass.b_id=cclass.c_bclass"

要显示的结果是aclass.a_name,bclass.b_name,cclass.c_name

如何将结果分页显示？
查询的是
<%
on error resume next
kw=request.Form("keyword")
set rs1=server.CreateObject("ADODB.recordset")
sql1="select * from aclass,bclass,cclass where cclass.c_name like '%"& kw &"%' and aclass.a_id=bclass.b_aclass and bclass.b_id=cclass.c_bclass"
rs1.open sql1,conn,1,1
%>
<% if rs1.eof then response.Redirect"error.asp"%>
显示的是

<td height="37" align="center" bgcolor="#FFCC00"><%=rs1("a_name")%></td>
<td align="center" bgcolor="#FFCC00"><%=rs1("b_name")%></td>
<td align="center" bgcolor="#FFCC00"><a href=viewmb.asp?action=view&sender=<%=rs1("c_id")%>><%=rs1("c_name")%></a></td>

Answer 1

<%kw=request("kw")
page=request("page")
sql="select * where cclass.c_name like '%"& kw &"%' and aclass.a_id=bclass.b_aclass and bclass.b_id=cclass.c_bclass"
set rs=server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
on error resume next
rs.PageSize = 10
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
i=page+(page-1)*(rs.PageSize-1)
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
Response.Write(rs("aclass.a_name"))
rs.movenext
if rs.eof then exit for
next%>
<table width="100%">
<tr>
<form ACTION="<%=Myself%>?kw=<%=kw%>%>" METHOD="GET">
<td><p ALIGN="right">
<%If Page <> 1 Then ' 如果不是位于第一页%>
<a href="<%=Myself%>?Page=1&kw=<%=kw%>"> 第一页</a> <a HREF="<%=Myself%>?Page=<%=(Page-1)%>&kw=<%=kw%>"> 上一页</a>
<%
End If
If Page <> rs.PageCount Then ' 如果不是位于最后一页
%>
<a HREF="<%=Myself%>?Page=<%=(Page+1)%>&kw=<%=kw%>"> 下一页</a> <a HREF="<%=Myself%>?Page=<%=rs.PageCount%>&kw=<%=kw%>"> 最后一页</a>
<% End If %>
<font SIZE="2">输入页次:</font>
<input NAME="Page" SIZE="3" CLASS="s01">
<font SIZE="2">页:</font></p></td>
</form>
</tr>
</table>