asp网页中如何添加上一页下一页代码,ASP页面中没有上一页和下一页代码,有没有方法可以添加进去?望告知.谢谢.... asp网页中如何添加上一页下一页代码,
ASP页面中没有上一页和下一页代码,有没有方法可以添加进去?
望告知.谢谢. 展开

 我来答

7个回答

#热议# 什么是淋病？哪些行为会感染淋病？

du瓶邪
2015-08-08 · TA获得超过2.4万个赞

知道大有可为答主

回答量：1.7万

采纳率：100%

帮助的人：2926万

我也去答题访问个人页

关注

展开全部

代码如下：
<%
function thenext
newrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from articles where id>"&a1&" order by id"
set newrs=conn.execute(sql)
if newrs.eof then
response.Write("没有了")
else
a2=newrs("id")
response.Write("<a href='view.asp?id="&a2&"'>下一篇</a>")
end if
end function
%>
'定义一个thehead函数来找出下一篇的ID，如果当前记录已经是最前面的一条记录，则输出文字“没有了”
<%
function thehead
headrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from articles where id<"&a1&" order by id desc"
set headrs=conn.execute(sql)
if headrs.eof then
response.Write("没有了")
else
a0=headrs("id")
response.Write("<a href='view.asp?id="&a0&"'>上一篇</a>")
end if
end function
%>
'数据库连接文件

'取得传递过来的ID，显示文章标题作者和内容
<%
id=request("id")
sql="select * from articles where id="&id
set rs=conn.execute(sql)
%>
<%
boardid=rs("boardid")
%>
<title>文章系统-<% =rs("title") %></title>
<body leftmargin="0" topmargin="0">

<%Do While Not rs.EOF%>
<table width="773" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td width="576" align="left"><table width="557" border="0" cellspacing="5" cellpadding="4" align="left"> <tr> <td colspan="2" align="center">
<span style="font-size:9pt color:#efefef"><%= rs("title") %><br> <div align="right">
<span style="font-size:9pt color:#efefef">作者：<%= rs("author") %></span></div> </span></td></tr><tr><td colspan="2" >
<span style="font-size:9pt color:#efefef">

<%= replace(server.HTMLEncode(rs("content")),chr(13),"<br>") %></span></td></tr><% a1=rs("id") %><tr><td width="269" align="right">

<% thehead %>
</td>
<td width="257" align="right">

<% thenext %></td></tr>
<% rs.MoveNext
Loop
%></table></td><td width="217" valign="top" align="left">相关文章：
'根据当前文章的栏目号，找出同一栏目的文章
<%sql="select * from articles where boardid="&boardid&""
set rs=conn.execute(sql)%>
<%Do While Not rs.EOF %>
<table width="207" border="0" cellspacing="2" cellpadding="2">
<tr>
<td height="20">
<a href="view.asp?id=<%=rs("id")%>">
<%= rs("title") %>
</a></td></tr></table>
<% rs.MoveNext%><%Loop%></td>
</tr>
</table>

</body>

已赞过 已踩过<

评论收起

北京勤哲软件技术

广告2024-12-18

勤哲Excel服务器软件2024，用Excel自动生成基于web，移动APP和PC的仓库管理系统sql版。软博会金奖产品，适合于各行各业的管理人员使用。

www.qinzhe.com

army_rose
2009-11-01 · TA获得超过436个赞

知道小有建树答主

回答量：541

采纳率：100%

帮助的人：217万

我也去答题访问个人页

关注

展开全部

showpage.asp页面内容
--------------------------------------------------------------------------------------------------------
<%
'***********************************************
'函数名：PasteURL
'作用：向地址中加入 ? 或 &
'参数：strUrl ----网址
'返回值：加了 ? 或 & 的网址
'***********************************************
function PasteURL(strUrl)
if strUrl="" then
PasteURL=""
exit function
end if
'如果传入的URL末尾不是"?"，有两种情况：
'1.无“？”，此时需加入一个“？”
'2. 有“？”再判断有无“&”
if InStr(strUrl,"?")<len(strUrl) then
if InStr(strUrl,"?")>1 then
if InStr(strUrl,"&")<len(strUrl) then
PasteURL=strUrl & "&"
else
PasteURL=strUrl
end if
else
PasteURL=strUrl & "?"
end if
else
PasteURL=strUrl
end if
end function

'***********************************************
'过程名：ShowPage
'作用：显示“上一页下一页”等信息
'参数：sDesURL ----链接地址，可以是一个文件名，也可以是一个有一些参数所URL
' nTotalNumber ----总数量
' nMaxPerPage ----每页数量
' nCurrentPage ----当前页
' bShowTotal ----是否显示总数量
' bShowCombo ---是否用下拉列表显示所有页面以供跳转。有某些页面不能使用，否则会出现JS错误。
' sUnit ----计数刻度（如每页数条或每页多少个）
'***********************************************
sub ShowPage(sDesURL, nTotalNumber, nMaxPerPage, nCurrentPage, bShowTotal, bShowCombo, sUnit)
dim n, i,strTemp,strUrl
'计算页数
if nTotalNumber mod nMaxPerPage=0 then
n= nTotalNumber \ nMaxPerPage
else
n= nTotalNumber \ nMaxPerPage+1
end if
'判断nCurrentPage
if nCurrentPage < 1 then
nCurrentPage = 1
elseif nCurrentPage > n then
nCurrentPage = n
end if

Response.Write "<table style='border-top:1px solid #e5e3e6;width:100%;font-size:12px;height:14px;background:none;' align='center' ID='Table1'><form name='ShowPages' method='Post' action='" & sDesURL & "' ID='Form1'><tr><td><font size='-1' >"
if bShowTotal=true then
Response.Write "共 <b>" & nTotalNumber & "</b> " & sUnit & " "
end if
'根据输入的sDesURL向它加入?或&
strUrl=PasteURL(sDesURL)
if nCurrentPage<2 then
Response.Write "首页上一页 "
else
Response.Write "<a href='" & strUrl & "page=1'>首页</a> "
Response.Write "<a href='" & strUrl & "page=" & (nCurrentPage-1) & "'>上一页</a> "
end if

if n-nCurrentPage<1 then
Response.Write "下一页尾页"
else
Response.Write "<a href='" & strUrl & "page=" & (nCurrentPage+1) & "'>下一页</a> "
Response.Write "<a href='" & strUrl & "page=" & n & "'>尾页</a>"
end if
Response.Write " 页次：<strong><font color=red>" & nCurrentPage & "</font>/" & n & "</strong>页 "
Response.Write " <b>" & nMaxPerPage & "</b>" & sUnit & "/页"
if bShowCombo=True then
Response.Write " 跳转至：<SELECT name='page' size='1' onchange='javascript:submit()' ID='Select1'>"
for i = 1 to n
Response.Write "<option value='" & i & "'"
if cint(nCurrentPage)=cint(i) then Response.Write " selected "
Response.Write ">第" & i & "页</option>"
next
Response.Write "</SELECT>"
end if
Response.Write "</font></td></tr></form></table>"
end sub
%>

实例引用页面内容
--------------------------------------------------------------------------------------------------------



<%
'显示相关列表
sql2="select * from IM_P_Blog order by hits desc"
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3,2

'分页部分
CurrentPage = Request("page")
if Not IsNumeric(CurrentPage) Then
CurrentPage = "1"
end if
if rs2.EOF Then
response.write("暂无相关讨论主题...<br/>")
Response.End
end if
CurrentPage=Cint(CurrentPage)
'自定义每页显示信息数
rs2.PageSize =30

'默认信息 conMaxPerPage_Default
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > rs2.PageCount Then
CurrentPage = rs2.PageCount
end if
rs2.AbsolutePage = CurrentPage
if not rs2.eof then
i=1
do while not rs2.eof
'这里显示分面列表中的内容
'自己发挥
'/********************************************/

i=i+1
if i>rs2.PageSize then exit do
rs2.movenext
loop

end if
'调用页面函数
call showpage("bloglist.asp", rs2.RecordCount, rs2.PageSize, CurrentPage, true, true, "项")
%>

注释：以上直接套用就可以了。其中以下
'这里显示分面列表中的内容
'自己发挥
'/********************************************/
为你自己分页页面内容显示。如不懂，可以Qme334194041

已赞过 已踩过<

评论收起

码不亭蹄
2021-02-19 · TA获得超过934个赞

知道小有建树答主

回答量：1251

采纳率：100%

帮助的人：246万

我也去答题访问个人页

关注

展开全部

WP开发21：wordpress网站文章页模板，如何调用文章的标题、内容、标签等信息？

已赞过 已踩过<

评论收起

重典技术闲话
2009-11-01 · TA获得超过2173个赞

知道大有可为答主

回答量：2593

采纳率：0%

帮助的人：1154万

我也去答题访问个人页

关注

展开全部

自己写
关键字： ASP中SQL分页

已赞过 已踩过<

评论收起

x091020
2009-11-10

知道答主

回答量：3

采纳率：0%

帮助的人：0

我也去答题访问个人页

关注

展开全部

发给你了.你查收一下

本回答被提问者采纳

已赞过已踩过<

你对这个回答的评价是？
评论收起

3条折叠回答

更多回答（5）

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

您可能关注的内容

用Excel自动生成sql数据库导出excel

www.qinzhe.com

用excel做仓库管理系统sql版!!

勤哲Excel服务器软件2024，用Excel自动生成基于web，移动APP和PC的仓库管理系统sql版。适合于各行各业的管理人员使用。

www.qinzhe.com广告

Excel表格做sql 库存管理系统

勤哲Excel服务器软件2024，用Excel自动生成基于web，移动APP和PC的sql 库存管理系统。软博会金奖产品，适合于各行各业的管理人员使用。

www.qinzhe.com广告

asp网页页面中如何添加上一页下一页代码

asp网页页面中如何添加上一页下一页代码

您可能关注的内容

为你推荐：

asp网页页面中如何添加上一页 下一页代码

您可能关注的内容

其他类似问题

为你推荐：

asp网页页面中如何添加上一页下一页代码