UC知道ASP循环问题
来源：百度知道 编辑：UC知道 时间：2024/05/13 05:44:39
下面这段代码可以循环显示，但是每页显示6行，每一行只能显示一幅图，如果我要每行显3幅图，每页显示3行，并且每页没有重复的记录，请教方家如何修改<% img src="<%=rs("img")%>这段代码
<%
………………………………
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.eof then
rs.pagesize=6
if ipage<1 then ipage=1
if ipage>rs.pagecount then
ipage=rs.pagecount
end if
rs.absolutepage=ipage
for i=1 to rs.pagesize
%>
<% img src="<%=rs("img")%>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
<%
………………………………
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.eof then
rs.pagesize=6
if ipage<1 then ipage=1
if ipage>rs.pagecount then
ipage=rs.pagecount
end if
rs.absolutepage=ipage
for i=1 to rs.pagesize
%>
<% img src="<%=rs("img")%>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
<%
………………………………
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.eof then
rs.pagesize=3
if ipage<3 then ipage=3
if ipage>rs.pagecount then
ipage=rs.pagecount
end if
rs.absolutepage=ipage
for i=1 to rs.pagesize
%>
<table width="550" border="0" cellspacing="0" cellpadding="0">
<%
'常量 PageSize 为分页大小
'常量 PageName 为网页名字
'定义变量 Page 为传递的页值，PageNum 为总共的页数量，RecordNum 为总的记录数量
CONST PageSize = 6
Dim PageName
Dim Rs,SqlSelect
Dim Id,SImgPath
Dim Page,PageNum,RecordNum
%>
<%
Sub ShowPage()
Dim i,j,n
i = 0
Const m = 2 '此常量为每行显示图片数
Rs.AbsolutePosition = (Page - 1) * PageSize + 1 '设置整页的游标
For i = 1 To PageSize \ m '每页行数
j = 0
%>