asp分页代码

<styletype="text/css">
<style type="text/css">

</style>
<body>
<table width="969" border="0" align="center" cellspacing="0" cellpadding="0">
<tr>
<td></td>
</tr>
<tr>
<%
set rs = server.createobject("adodb.recordset")
sql="select * from pp where severid ="&request.QueryString("severid")
rs.open sql,conn,1,1
%>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="225" height="50"align="left" valign="middle" class="STYLE3"><img src="<%=trim(rs("diff1"))%>" /></td>
<td width="18" rowspan="2" valign="bottom"><img src="images/L.jpg" width="14" height="400" /></td>
<td> </td>
</tr>
<tr>
<td align="left" valign="top">
<%
for i=1 to rs.recordcount
response.write "<img src="&trim(rs("simages"))&">"
if rs.eof then exit for
rs.movenext
k = i mod 3
if k = 0 then
response.write "<br> "
end if
next
%>
</td>
<td ><img src="<%=trim(rs("bimages"))%>" /></td>
</tr>
</table></td>
</tr>
<tr>
<td></td>
</tr>
</table>
</body>

我想在“ <%
for i=1 to rs.recordcount
response.write "<img src="&trim(rs("simages"))&">"
if rs.eof then exit for
rs.movenext
k = i mod 3
if k = 0 then
response.write "<br> "
end if
next
%>”这后面加分页，应该如何？代码需要怎么弄吖？展开

 我来答

3个回答

#热议# 为什么说不要把裤子提到肚脐眼？

动如雷震
2011-06-07 · TA获得超过259个赞

知道小有建树答主

回答量：195

采纳率：0%

帮助的人：143万

我也去答题访问个人页

关注

展开全部

<%
'如果页数大于1，则分页显示
self="visit_apply_list.asp"
if page_tot > 1 then
if currentpage > 1 then
response.write"<a href='"&self&"?search=enter&keyselect="&request("keyselect")&"&keyword="&request("keyword")&"&page=1'>首页</a>-"
response.write"<a href='"&self&"?search=enter&keyselect="&request("keyselect")&"&keyword="&request("keyword")&"&page="¤tpage-1&"'>前页</a>"
else
response.write"首页-</a>"
response.write"前页</a>"
end if

if currentpage < page_tot then
response.write"-<a href='"&self&"?search=enter&keyselect="&request("keyselect")&"&keyword="&request("keyword")&"&page="& currentpage + 1&"'>后页</a>"
response.write"-<a href='"&self&"?search=enter&keyselect="&request("keyselect")&"&keyword="&request("keyword")&"page="& page_tot&"'>尾页</a>"
else
response.write"-后页</a>"
response.write"-尾页</a>"
end if

response.write" 页次:"& currentpage &"/"& page_tot &" 20个记录/页共"& r_t &"个记录"
response.write" 转到 <input name='page' type='text' size='2' value='"¤tpage&"'>"
response.write" <input type='submit' name='search' value='GO'>"
end if
%>

已赞过 已踩过<

评论收起

thodylkbc814
2011-06-07 · TA获得超过1013个赞

知道小有建树答主

回答量：943

采纳率：37%

帮助的人：328万

我也去答题访问个人页

关注

展开全部

<%
page=cint(request("page")):
i=0;
rs.pagesize=30
if page>rs.pagecount then
page=rs.pagecount
end if
if page<1 then
page=1
end if
rs.absolutepage=page
do while i<30 and not rs.eof
i=i+1
response.write "<img src="&trim(rs("simages"))&">"
if i mod 3=0 then
response.write "<br> "
end if
rs.movenext
loop

%>

记录数：<%=rs.recordcount%>当前页/总页数：<%=page%>/<%=rs.pagecount%>
<a href="?page=1">首页</a><a href="?page=<%=(page-1)%>">上页</a>
<a href="?page=<%=(page+1)%>">下页</a><a href="?page=<%=rs.pagecount%>">尾页</a>
<form action="#" method="post"><input name="page" type="text" value="<%=page%>" /><input type="submit" value="跳转到" />

追问

错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/new/cat/Ch/fp.asp, line 28, column 3
i=0;
--^

追答

把i=0;
分号删了

已赞过 已踩过<

评论收起

xdownx
推荐于2016-03-08 · TA获得超过2052个赞

知道小有建树答主

回答量：1135

采纳率：0%

帮助的人：1201万

我也去答题访问个人页

关注

展开全部

<!--#include file="conn.asp" -->
<style type="text/css">
<!--
.STYLE3 {font-family: "黑体"; color: #999999; font-size: 30px;}
-->
</style>
<body>
<table width="969" border="0" align="center" cellspacing="0" cellpadding="0">
  <tr>
    <td><!--#include file="top.asp" --></td>
  </tr>
  <tr>
<!---*********************88----->
    <td>
  <%
  '这里提醒你一个问题，本来开始里这段代码是写在上面我打**号的地方，记住了如果当记录不存在的时候，你的页面就会变形，严格的根据框架来哦
  severid=request.QueryString("severid")
  pageid=request("s_id")'取得当前是第几页
if (Cint(pageid)<=1) then'对其对行判断
pageid=1
end if 
    set rs = server.createobject("adodb.recordset")
sql="select * from pp where severid ="&request.QueryString("severid")
rs.open sql,conn,1,1
if not rs.eof then '这里要记录集的判断
   %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
    <td width="225" height="50"align="left" valign="middle" class="STYLE3"><img src="<%=trim(rs("diff1"))%>" /></td>
    <td width="18" rowspan="2" valign="bottom"><img src="images/L.jpg" width="14" height="400" /></td>
<td> </td>
  </tr>
  <tr>
    <td align="left" valign="top">
 <%
       ' for i=1 to rs.recordcount
    'response.write "<img src="&trim(rs("simages"))&">"
       ' if rs.eof then exit for
'rs.movenext
' k = i mod 3
'if k = 0 then 
'response.write "<br> "
'end if
'next

'以上为你写的代码，书写有很多地方不正确的，你看下我以下的代码
%> 
<!--------------------> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>
<%
rs.pagesize=9'每页显示9条
if Cint(pageid)>rs.pagecount then
pageid=rs.pagecount
end if
rs.absolutepage=pageid
k=0
        for i=1 to rs.pagesize
k=k+1
    response.write "<img src="&trim(rs("simages"))&">"

if k mod 3 = 0  and k <>rs.pagesize then 
response.write "<br> "
end if
        if rs.eof then exit for
rs.movenext
next
%>
</td>
  </tr>
  <tr>
    <td align="center">共<strong><%=rs.recordcount%></strong>条信息 每页显示<strong><%=rs.pagesize%></strong>条  共<strong><%=rs.pagecount%></strong>页  
<% if pageid=1 then %>
    <%else%>
      <a href="?s_id=1&severid=<%=severid%>" >|<<</a>
      <a href="?s_id=<%=pageid-1%>&severid=<%=severid%>" ><<</a>
     <a href="?s_id=<%=pageid-1%>&severid=<%=severid%>" > [<%=pageid-1%>]</a>
<%end if%><% if rs.pagecount=1 then %>
<%else%>[<%=pageid%>]
<%end if%>
 <% if rs.pagecount-pageid <> 0 then %>
      <a href="?s_id=<%=pageid+1%>&severid=<%=severid%>" >[<%=pageid+1%>]</a>
      <a href="?s_id=<%=pageid+1%>&severid=<%=severid%>" >>></a>
      <a href="?s_id=<%=rs.pagecount%>&severid=<%=severid%>" >>>|</a>
 <%end if%></td>
  </tr>
</table>

<!-----------------------------> 
  </td>
    <td ><img src="<%=trim(rs("bimages"))%>" /></td>
  </tr>
    </table>
<%end if%>
</td>
  </tr>
  <tr>
    <td><!--#include file="foot.asp" --></td>
  </tr>
</table>
</body>


本回答被提问者采纳






已赞过已踩过<

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

更多回答（1）

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

asp分页代码

其他类似问题

为你推荐：