 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
程序实现功能：两个数据表的数据分页显示 最近我碰到一个比较少见的需求,不知大家是否也有碰到过,说出来与大家分享. 客户需求:两部分数据,分别来自不同位置的两个数据库中的两个表,定义为数据库DB1和DB2,表Table1和Tabel2,要将这两个表数据分别在页面的上半部分和下半部分显示,并且用同一个分页码,如第一部分数据不够,将用第二部分数据填补 <% Set objConn1=Server.CreateObject("ADODB.Recordset") Set objConn2=Server.CreateObject("ADODB.Recordset") objConn1.Open "PROVIDER=SQLOLEDB;DATA SOURCE=localhost;UID=sa;PWD=123;DATABASE=DB1" objConn2.Open "PROVIDER=SQLOLEDB;DATA SOURCE=localhost;UID=sa;PWD=123;DATABASE=DB2" Page=CLng(Request.QueryString("Page")) if page="" then page=1 end if StrSQL1="select * from Table1 order by ID desc" StrSQL2="select * from Table2 order by ID desc" record_count1=Clng(objConn1.execute(StrSQL1)(0)) \\\'得到第一个表的记录数 record_count2=Clng(objConn2.execute(StrSQL2)(0))\\\'得到第二个表的记录数 record_count=record_count1+record_count2 \\\'得到两个表的记录数和 If record_count>0 Then page_size1=5 \\\'默认第一个表部分数据的每页显示数 page_size2=5 \\\'默认第二个表部分数据的每页显示数 page_count1=CInt(record_count1/page_size1) If (record_count1 Mod page_size1)<(page_size1/2) Then page_count1=page_count1+1 \\\'得到第一部分数据的页数 page_count2=CInt(record_count2/page_size2) If (record_count2 Mod page_size2)<(page_size2/2) Then page_count2=page_count2+1\\\'得到第二部分数据的页数 if Cint(page_count2)=cint(page) then \\\'假设第二部分数据一定少,这里断定是否当前页是少的那分数据的最后一页 thepageRecordcount=record_count2-(page-1)*5 \\\'第二部分数据的最后一页的数据显示条数 page_size1=10-cint(thepageRecordcount) \\\'第一部分数据在第二部分最后页的显示条数 \\\' page_size1=cint(thepageRecordcount) \\\'得到第一部分在本页的显示条数 elseif cint(page)>cint(page_count2) then \\\'这之后将全是第一部分数据 page_size1=10 page_size2=0 end if page_count=CInt(record_count/(page_size1+page_size2) \\\'全部两类一起的分页数 If (record_count Mod (page_size1+page_size2))<((page_size1+page_size2)/2) Then page_count=page_count+1 If Page < 1 Then Page = 1 End If If Page > page_count Then Page = page_count End If Dim Pagefrom,Pageto Pagefrom=page-10 Pageto=page+10 if Pagefrom<1 then Pagefrom=1 end if if Pageto>record_count then Pageto=page_count end if End If If Page<=1 Then \\\'第一页显示查询 StrSQL1="Select Top "&page_size1&" * From Table1 " StrSQL1=StrSQL1&" Order By ID desc" StrSQl2="Select Top "&page_size1&" * From Table2 " StrSQL2=StrSQL2&" order by id desc" Else \\\'第N页显示查询 StrSQL1="Select Top "&(Page-1)*page_size1&" ID From Table1 " StrSQL1=StrSQL1&" Order By id Desc" StrSQL1="SELECT Top 1 ID From ("&StrSQL1&") DERIVEDTBL Order By id " \\\'Response.Write(SQL) id =Trim(objConn1.execute(StrSQL1)(0)) StrSQL1="Select Top "&page_size1&" * From Table1" StrSQL1=StrSQL1&" where id<\\\'"&id&"\\\'" StrSQL1=StrSQL1&" Order By id Desc" StrSQL2="Select Top "&(Page-1)*page_size2&" id From Table2 " StrSQL2=StrSQL2&" Order By id Desc" StrSQL2="SELECT Top 1 id From ("&StrSQL2&") DERIVEDTBL Order By id " id =Trim(objconn2.execute(StrSQL2)(0)) StrSQL2="Select Top "&page_size2&" * From Table2 " StrSQL2=StrSQL2&" where id<\\\'"&id &"\\\'" StrSQL2=StrSQL2&" Order By id Desc" End If %> <% If record_count>0 Then %> <% Set Rs1=Server.CreateObject("Adodb.Recordset") rs1.open StrSQL1,objconn1 For n = 1 To page_size1 If rs1.Eof Then Exit For %> <!--显示的第一部分内容循环--> <% rs1.MoveNext If rs1.EOF Then Exit For Next rs1.close set rs1=nothing %> <% Set Rs2=Server.CreateObject("Adodb.Recordset") rs2.open StrSQL2,objconn2 For n = 1 To page_size2 If rs2.Eof Then Exit For %> <!--显示的第二部分内容循环--> <% rs2.MoveNext If rs2.EOF Then Exit For Next rs2.close set rs2=nothing %> <!--结果页码--> <%if page<>"1" then%><a href=?page=<%=Cint(page-1)%>>上一页</a> <%end if%> <% \\\'用for循环来写出页数连接 For i=Pagefrom to Pageto if i=0 then i=1 end if if i<>Cint(page) then strurl="<a href=?page="&i&"><font color=#000000>"&i&"</font></a>" else strurl="<b><font color=#ce0031>"&i&"</font></b>" end if response.write strurl response.write " " next %> <%if page_count =1 or (page_count-Cint(page))=0 then response.Write("") else response.Write "<a href=?page="&Cint(page+1)&">下一页</a>" end if %> <!--结果页码--> 本人水平有限,程序粗糙,可能有不足之处~望批评指正~ 返回类别: 教程 上一教程: 提高数据显示效率-缓存探幽 下一教程: CONNECTION 对象 您可以阅读与"两个不同数据库表的分页显示解决方案"相关的教程: · 无组件上传文字与图片至数据库之GZTIGER解决方案 · 个人主页的数据库解决方案ASP · ADO 存取数据库时如何分页显示 · 无组件上传图片到数据库中，最完整解决方案 · ADO存取数据时如何实现留言记录的分页显示 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
