大家帮我吧，这是我的最高分了!!!

ilwdx 2001-07-22 10:48:07

关于一个分页程序:
我想把这个表格每页显示20个(包含了20条记录)，并显示多页连接，我也看了很多关于分页的作法，都好复杂，有没有简单一点的？请写详细一点:

<table width="70%" border="0" cellpadding="2" cellspacing="1">
<tr bgcolor="#F7F7F7">
<td width="8%" align="left" valign="top" height="14">
<table width="55" border="0" cellpadding="0" cellspacing="0" height="16">
<tr>
<td width="17" height="19" align="right" valign="top">
<%
if objrs("retell")>10 then
response.write"<img src='pic/xs.gif'>"
else
response.write"<img src='pic/rs.gif'>"
end if
%>
<div align="center"></div>
</td>
<td width="50%" align="left" valign="top" height="19">
<%
select case objrs("ttype")
case 1
B="pic/s3.gif"
case 3
B="pic/s5.gif"
case 2
B="pic/s4.gif"
case 4
B="pic/s6.gif"
end select
response.write"<img src="&B&">"
%>
<div align="center"></div>
</td>
</tr>
</table>
</td>
<td width="55%" height="14" align="left" valign="top" bgcolor="#F7F7F7"><a href=dispins.asp?id=<%=objrs("id")%>><%=objrs("zx")%></a></td>
<td width="4%" height="14" align="left" valign="top"><%=objrs("retell")%></td>
<td width="11%" height="14" align="left" valign="top"><a href=inf.asp?name=<%=objrs("maker")%>><%=objrs("maker")%></a></td>
<td width="22%" height="14" align="left" valign="top" bgcolor="#F7F7F7"><%=objrs("ddate")%></td>
</tr>
</table>

...全文

35 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

liugys 2001-07-22

打赏
举报

下面的已经很模块化了，我加了点注释，改改就能用了

<html>
<head>
<title>搜索结果</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">

</style>
</head>
<%
conn1="Provider=Microsoft.Jet.OLEDB.4.0;data source=" & server.mappath("文科基地数据.mdb")
conn2="Provider=Microsoft.Jet.OLEDB.4.0;data source=" & server.mappath("期刊目录.mdb")
'生成SQL查询语句
function makesql(sqltemp)
for each form in request.form
forminfo=Request.Form(form)
If forminfo<>"" then
If Right(form,2)="_s" then
sqltemp=sqltemp & " " & left(form,len(form)-2) & " like '%" & forminfo & "%' and "
end if
end if
next
sql=left(sqltemp,len(sqltemp)-5)
end function

'--------------
'显示前后页连接
sub DisplayNav(rs,intpagenum)
filepath=request.ServerVariables("path_info")
if intpagenum>1 then
Response.Write "<a href=""" & filepath & "?PageNo=1" & """>" & "第一条</a>   "
Response.write "<a href=""" & filepath & "?PageNo=" & intpagenum-1 & """>" & "前一条</a>   "
else
Response.Write "第一条   " & "前一条   "
end if
if intpagenum<rs.pagecount then
Response.Write "<a href='" & filepath & "?PageNo=" & intpagenum+1 & "'>" & "下一条" & "</a>   "
Response.Write "<a href='" & filepath & "?PageNo=" & rs.pagecount & "'>" & "最后一条" & "</a>"
else
Response.Write "下一条   " & "最后一条"
end if
end sub

set rs=server.createobject("ADODB.Recordset")
sql="select * from 期刊文献数据 where"
makesql(sql)
'Response.Write sql
'Response.end
rs.Open sql,conn2,1,3
if rs.EOF then
Response.Write "对不起，没有您所查询的数据，<a href='search.htm'><font color=red>点击这里返回</font></a>"
Response.End
Response.Clear
end if
rs.PageSize=15 '每页显示记录数
PageSize=rs.PageSize
PageNo=Cint(Request("PageNo"))
If PageNo < 1 or PageNo = "" Then
PageNo = 1
Else
If PageNo > rs.PageCount then
PageNo=rs.PageCount
end if
End If
rs.AbsolutePage = PageNo '开始页
%>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
<p class=3dfont>期刊目录数据搜索结果</p>
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr class="table_title">
<td>
<table width="100%" border="0" class="table_end">
<tr>
<td width="50%"><a href="search.htm"><<返回</a></td>
<td align="right" width="50%">
<%displaynav rs,PageNo%>
</td>
</tr>
</table>
</td>
</tr>
<tr class="table_title">
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="2" height="100%">
<tr>
<td height="14" width="15%" class="tdleft">CN：</td>
<td class="tdright" width="85%"><%=rs("CN")%></td>
</tr>
<tr>
<td width="15%" class="tdleft">题名：</td>
<td width="85%" class="tdright"><%=rs("题名")%></td>
</tr>
<tr>
<td width="15%" class="tdleft">著者1：</td>
<td width="85%" class="tdright"><%=rs("著者1")%></td>
</tr>
<tr>
<td width="15%" class="tdleft">著者2：</td>
<td width="85%" class="tdright"><%=rs("著者2")%></td>
</tr>
<tr>
<td width="15%" class="tdleft">刊名：</td>
<td width="85%" class="tdright"><%=rs("刊名")%></td>
</tr>
<tr>
<td width="15%" class="tdleft">出版年月：</td>
<td width="85%" class="tdright"><%=rs("出版年月")%></td>
</tr>
<tr>
<td width="15%" class="tdleft">页码：</td>
<td width="85%" class="tdright"><%=rs("页码")%></td>
</tr>
<tr>
<td width="15%" class="tdleft">主题词1：</td>
<td width="85%" class="tdright"><%=rs("主题词1")%></td>
</tr>
<tr>
<td width="15%" class="tdleft">主题词2：</td>
<td width="85%" class="tdright"><%=rs("主题词2")%></td>
</tr>
<tr>
<td width="15%" class="tdleft">主题词3：</td>
<td width="85%" class="tdright"><%=rs("主题词3")%></td>
</tr>
<tr>
<td width="15%" class="tdleft">分类名：</td>
<td width="85%" class="tdright"><%=rs("分类名")%></td>
</tr>
</table>
</td>
</tr>
<%for i=0 to PageSize%>
<%rs.MoveNext
if rs.EOF then exit for
next%>
<tr>
<td class="table_title">
<table width="100%" border="0" class="table_end">
<tr>
<td width="50%"><a href="search.htm"><<返回</a>　你查询的记录共有<font color="#FF0000">
<b><%=rs.recordcount%> </b></font>条</td>
<td align="right" width="50%">
<%displaynav rs,PageNo%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<%
rs.Close
set rs=nothing
%>
</body>
</html>

首先给大家看一张图，在无插移动硬盘的情况下，小资源的电脑 W 盘达到了 16.5T 的空间其实这是小资源就是借助了今天要分享的神器来实现的，让你的磁盘也可以轻松 10T 以上话不多说，今日分享：阿里/天翼/和...

（2）使用foreach语句求最高分并输出对应的姓名 2.来吧，展示： using System; using System.Windows.Forms; namespace Hightest_score { public partial class Form1 : Form { public Form1() {

这不他来了，一份详细的JVM面试真题给大家整理在下方了! 一、什么情况下会发生栈内存溢出？ 1、栈是线程私有的，栈的生命周期和线程一样，每个方法在执行的时候就会创建一个栈帧，它包含局部变量表、操作数栈、动态...

一、Linux的简介 1.Linux抽象解释肯定有人和我一样，很早就听说过Linux的这个词，但是又没接触过。然后随手百度一下看着满满的命令惊呆了，不知道从哪里开始学习。...我相信大家肯定都用过的Windo...

网上发现一个讲Python做柱状图和折线图的小视频，我觉得讲的超基础，很适合小白，特来分享给大家~ 如果你也想学习数据分析，跟我一起看看下方视频，听知名技术专家李刚老师对Python可视化模块详细...