|
<%
if BigClassName="" then
response.write "所有产品"
else
if BigClassName<>"" then
response.write "" & BigClassName & ""
end if
end if
%>
|
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
if BigClassName<>"" then
sql="select * from Product where BigClassName='"&BigClassName&"' and Passed=True order by ID desc"
rs.Open sql,conn,1,1
elseif BigClassName="" then
sql="select * from Product where Passed=true order by Id desc"
rs.Open sql,conn,1,1
end if
if rs.eof and rs.bof then
response.Write("暂时没有记录")
else
%>
<%
rs.PageSize=12
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for i=1 to rs.PageSize
%>
<%
rs.movenext
if rs.eof then exit for
next
%>
|
<%if Page<2 then
response.write "首页 上一页 "
else
response.write "首页 "
response.write "上一页 "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write ""
response.write "下一页 尾页"
end if
response.write " 页次："&Page&"/"&rs.pagecount&"页 "
response.write " 共"&rs.recordcount&"条记录 "&rs.pagesize&"条记录/页"
%>
|
<%
end if
rs.close
set rs=nothing
%>
|
|