UC知道ASP多表查询显示分页问题,急!急!急!
来源：百度知道 编辑：UC知道 时间：2024/05/22 16:27:53
后台管理两个文件Hrhy_l2class.asp和Hrhy_l2info.asp,表文件hrhy_l2class和hrhy_l2info是一对多关系.
通过Hrhy_l2class.asp中下拉表单查询两表,Hrhy_l2info.asp显示查询结果.
相关程序代码如下:
Hrhy_l2class.asp:
...
<form method="POST" action="Hrhy_l2info.asp">
<p>
<select name="ncate">
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "select * from hrhy_l2class"
Set rs = conn.Execute(sql)
do while Not rs.EOF
%>
<option value="<%=rs("ncid")%>"><%=rs("name")%></option>
<%
rs.movenext
LOOP
%>
</select>
<input type="submit" value="提交" name="B1" class="button"></p>
</form>
...
Hrhy_l2info.asp显示:
...
<%
dim ncid
if session("ID")<>Request.form("ncat
通过Hrhy_l2class.asp中下拉表单查询两表,Hrhy_l2info.asp显示查询结果.
相关程序代码如下:
Hrhy_l2class.asp:
...
<form method="POST" action="Hrhy_l2info.asp">
<p>
<select name="ncate">
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "select * from hrhy_l2class"
Set rs = conn.Execute(sql)
do while Not rs.EOF
%>
<option value="<%=rs("ncid")%>"><%=rs("name")%></option>
<%
rs.movenext
LOOP
%>
</select>
<input type="submit" value="提交" name="B1" class="button"></p>
</form>
...
Hrhy_l2info.asp显示:
...
<%
dim ncid
if session("ID")<>Request.form("ncat
set rs=Server.Createobject("ADODB.Recordset")
sql="select A.*,B.* from hrhy_l2class A,hrhy_l2info B where A.ncid=B.ncid AND A.ncid="&ncid&""
rs.open sql,conn,1,1
if not rs.eof then
rs.PageSize =3'设置一页显示几条
Page = CLng(Request("Page"))
'reveal for page
If not Page >1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
rs.AbsolutePage = Page
For i=1 To rs.PageSize
if rs.eof then exit for
.....'你要显示内容
rs.movenext
next '循环结束
'分页
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" align="center" bgcolor="#E1F4E1">共 <span class="org1"><%=rs.RecordCount%></span>
条记录，<span class="org1"><%=rs.PageCount%></