<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from pclass order by time desc",conn,1,1
if rs.eof then
response.write "还没有添加产品!</td></tr>"
else
dim i,j,x
i=1
response.write("<table>")
response.write("<tr>")
if request("page")="" then
curpage=1
else
curpage=request("page")
end if
if not IsNumeric(curpage) then
response.Write("参数不对!")
response.end
end if
rs.pagesize=2
dim totalput
totalPut=rs.recordcount '******************设置每页显示图片数目***********************
if curpage<1 then
curpage=1
end if
if (curpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
curpage= totalPut \ MaxPerPage
else
curpage= totalPut \ MaxPerPage + 1
end if
end if
rs.absolutepage=curpage
for j = 0 to rs.pagesize %>
<td><table width="120" height="90" border="0" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#FFFFFF"><img border='0' width='180' height='160' src="<%=rs("linkimg1")%>"></td>
</tr>
<tr>
<td height="20" align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("type")%></td>
</tr>
</table></td>
<%
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>
<%
response.Write j '这是我测试看下得的到J这个数
if j = 2 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
%>
为什么 我判断不了 程序也不显示错误在哪? 我测试了下 可以得到 j 的数
但是我 加 if j=2 then 显示分页代码 end if 为什么显示不出来
參考答案:<%
dim totalput,i,j,x
set rs=server.createobject("adodb.recordset")
rs.open "select * from pclass order by time desc",conn,1,1
if rs.eof then
response.write "还没有添加产品!</td></tr>"
response.end
End If
i=1
curpage=request("page")
if Not IsNumeric(curpage) then
curpage=1
else
curpage=CInt(curpage)
end if
rs.pagesize=6 '每页显示6条
totalPut=rs.recordcount '******************设置每页显示图片数目***********************
pgcount=rs.pagecount '共有多少页
If curpage>pgcount Then curpage=pgcount
if curpage<1 then curpage=1
'if (curpage-1)*MaxPerPage>totalput then
' if (totalPut mod MaxPerPage)=0 then
' curpage= totalPut \ MaxPerPage
' else
' curpage= totalPut \ MaxPerPage + 1
' end if
'end if
rs.absolutepage=curpage
response.write "<table><tr>"
for j = 0 to rs.pagesize
%>
<td>
<table width="120" height="90" border="0" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#FFFFFF"><img border='0' width='180' height='160' src="<%=rs("linkimg1")%>"></td>
</tr>
<tr>
<td height="20" align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("type")%></td>
</tr>
</table>
</td>
<%
if j mod 3=0 then
response.Write"</tr><tr>"
end if
rs.movenext
j = j + 1
if rs.eof then exit for
next
response.write("<tr><td>")
if curpage = 2 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
%>
</td></tr></table>
