求段ASP分页代码

Question

做图片用的,一行4个,分三行,代码怎么写~要有分页!

Answer 1

哈哈，这么高的分，我给你谢谢！但你没提供具体的数据。那我就把某些字段按你的意思写吧！首先你要求1行4个，分3行，那证明是有12个数据。其实有多少数据无所谓，最主要还是希望图片能1行4个的一直显示下去吧？那么代码！
<%
set rs=server.Createobject("adodb.recordset")
sql=select * from 表名 where 你想满足的条件
rs.open sql,数据库的变量,1,1
if rs.bof and rs.eof then
response.write "没有图片"
else
rs.PageSize=3
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
i=1
do while not rs.eof
if (i mod 4)=0 then
response.write "<br>"
end if
response.write "<img src=你的图片地址>"
rs.movenext
i=i+1
loop
%>

开始分页
<%if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href=index.asp?page=1>首页</a> "
response.write "<a href=index.asp?page=" & Page-1 & ">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=index.asp?page=" & (page+1) & ">"
response.write "下一页</a> <a href=daybook.asp?page="&rs.pagecount&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write " 共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
%>

具体的你自己再调试调试，主要还要求有分页，在显示上可能不是很准确！

Answer 2

下面这段是基本的分页代码：＜% sql = "select……………………省略了sql语句
Set rs=Server.Createobject("ADODB.RECORDSET")
rs.Open sql, conn, 1, 1
if not rs.eof then
pages = 30 ’定义每页显示的记录数
rs.pageSize = pages ’定义每页显示的记录数
allPages = rs.pageCount’计算一共能分多少页
page = Request.QueryString("page")’通过浏览器传递的页数
’if语句属于基本的排错处理
if isEmpty(page) or Cint(page) ＜ 1 then
page = 1
elseif Cint(page) ＞ allPages then
page = allPages
end if
rs.AbsolutePage = page
Do while not rs.eof and pages ＞ 0 %＞
这里输出你要的内容………………
＜% pages = pages - 1
rs.MoveNext
Loop
else
Response.Write("数据库暂无内容！")
End if
rs.Close
Set rs = Nothing %＞
系统已经为数据分页了，下面就看看这次探讨的关键问题分页函数的定义＜% SUB pageUrl(pUrl)
Dim eUrl
txts = Request.ServerVariables("URL")
txts = left(txts,instrrev(txts,"/",len(txts))-1)
eUrl = "http://"; & Request.ServerVariables("server_name") & txts
For i =1 to allpages
txt = ""
txt = "＜strong＞"
txt = txt & "＜a href=" & eUrl & pUrl & "page="&i & "＞"
if i = Cint(Page) then txt = txt & "＜font color=’bb0000’＞"
txt = txt & (i)
if i = Cint(Page) then txt = txt & "＜/font＞"
txt = txt & "＜/a＞ ‖ ＜/strong＞"
Response.Write(txt)
Next
END sub %＞