<%
if i mod 3=0 then
response.Write"</tr><tr>"
end if
rs.movenext
i=i+1
if rs.eof then
j = j + 1
exit for
end if
next
response.Write"</tr></table>"
end if%>
</tr>
<tr>
<td>
<%
if j=6 then
response.write "<div align=center>"
response.write "第<font color=red>" + cstr(curpage) + "</font>页/总<font color=red>" + cstr(rs.pagecount) + "</font>页 "
response.write "本页<font color=red>" + cstr(i-1) + "</font>条/总<font color=red>" + cstr(rs.recordcount) + "</font>条 "
if curpage = 1 then
response.write "首页 前页 "
else
response.write "<a href='produ.asp?id=" & cstr(request("id")) & "&page=1'>首页</a> <a href='produ.asp?id=" & cstr(request("id")) & "&page=" & cstr(curpage-1) & "'>前页</a> "
end if
if int(curpage) = int(rs.pagecount) then
response.write "后页 末页"
else
response.write "<a href='produ.asp?typeid=" & cstr(request("typeid")) & "&page=" & cstr(curpage+1) & "'>后页</a> <a href='produ.asp?id=" & cstr(request("id")) & "&page=" & cstr(rs.pagecount) & "'>末页</a>"
end if
end if
%>
我想 一个东西 显示出了6个 就显示出下一个分页 语句
我知道可以用 if 来判断但是
我前面写了 if rs.eof then
j = j + 1
我后面就得不到 j 的数
參考答案:<%
Set rs=server.CreateObject("adodb.recordset")
rs.open strsql,conn,1,1 '注意这里
curpage=request("curpage")
If Not IsNumeric(curpage) Then
curpage=1
Else
curpage=CInt(curpage)
End if
If Not rs.eof Then
rs.pagesize=6
pgcount=rs.pagecount
If curpage>pgcount Then curpage=pgcount
If curpage<0 Then curpage=1
rs.absolutepage=curpage
Do While Not rs.eof
if i mod 3=0 then
response.Write"</tr><tr>"
end if
i=i+1
If i>rs.pagesize Then Exit do
rs.movenext
Loop
response.Write"</tr></table>"
end If
%>
</tr>
<tr>
<td>
<%
if curpage>1 then
response.write "<div align=center>"
response.write "第<font color=red>" + cstr(curpage) + "</font>页/总<font color=red>" + cstr(rs.pagecount) + "</font>页 "
response.write "本页<font color=red>" + cstr(i-1) + "</font>条/总<font color=red>" + cstr(rs.recordcount) + "</font>条 "
if curpage = 1 then
response.write "首页 前页 "
else
response.write "<a href='produ.asp?id=" & cstr(request("id")) & "&page=1'>首页</a> <a href='produ.asp?id=" & cstr(request("id")) & "&page=" & cstr(curpage-1) & "'>前页</a> "
end if
if int(curpage) = int(rs.pagecount) then
response.write "后页 末页"
else
response.write "<a href='produ.asp?typeid=" & cstr(request("typeid")) & "&page=" & cstr(curpage+1) & "'>后页</a> <a href='produ.asp?id=" & cstr(request("id")) & "&page=" & cstr(rs.pagecount) & "'>末页</a>"
end if
end if
%>
