|
|
|
|
|
|
|
|
|
|
|
|
|
<%'----------------------------------------------------------------------------------------------------------------------
set rzsl = server.createobject("adodb.recordset")
rzsl.open "select ID,Product_Id,Title,DefaultPicUrl from Product where SmallClassName='"& sname &"' order by UpdateTime desc",conn,1,1
if not rzsl.eof then
rzsl.pagesize=9
'if Request("Page")="" then
' Page=1
'else
' Page =cint(Request("Page"))
'end if
'分页显示
If not Page >1 Then Page = 1
If Page > rzsl.PageCount Then Page = rzsl.PageCount
rzsl.absolutepage=page
dim countrs
countrs=1
do while countrs<=rzsl.pagesize and not rzsl.eof
if rzsl.eof then exit do%>
<%for i=1 to 3
if rzsl.eof then exit do%>
|
<%rzsl.movenext
countrs=countrs+1
next%>
<%loop%>
<%else
Response.write(" 对不起,暂无任何产品信息... | ")
end if
'-----------------------------------------------------------------------------------------------------------------------
%>
<%%> |
|
|
|
|
|
|
|
|
|
|
|
|
|