Products |
<%
bclassid=trim(request.QueryString("bclassid"))
sclassid=trim(request.QueryString("sclassid"))
set rs=server.CreateObject("adodb.recordset")
if bclassid <> "" then
rs.open"select * from web_products where bclassid="&bclassid&" order by adddate desc",conn,1,1
elseif sclassid <> "" then
rs.open"select * from web_products where sclassid="&sclassid&" order by adddate desc",conn,1,1
else
rs.open"select * from web_products order by adddate desc",conn,1,1
end if
rs.pagesize=5
dim page
page=1
if request("page") <>"" then
page=cint(request("page"))
end if
if not rs.eof and not rs.bof then
rs.absolutepage=page
end if
count=rs.pagesize
if rs.eof and rs.bof then%>
½¨ÉèÖÐ...
|
<%end if%>
<%do while not rs.eof and count>0%>
|
|
<%count=count - 1
rs.movenext
loop
%>
| |
¡¡ Products list |
| |