<%Set rs=Server.CreateObject("ADODB.RecordSet")
bfl=request("bfl")
sfl=request("sfl")
if sfl="" then
if bfl="" then
strsql="select * from zp where shenhe=1 order by id desc"
else
strsql="select * from zp where shenhe=1 and bigclassid="& bfl &" order by id desc"
end if
else
strsql="select * from zp where shenhe=1 and bigclassid="& bfl &" and smallclassid="& sfl &" order by id desc"
end if
rs.Open strsql,conn,1,1
if rs.eof then
response.write "
沒有發(fā)現(xiàn)產(chǎn)品，請管理員到后臺添加!"
else
rs.movefirst
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.pagesize=36
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
rs.AbsolutePage=pagecount
%>
<%j=1
do while not (rs.eof or err)
if (j mod 4)=1 then
response.write ""
end if%>
<%if (j mod 4)=0 then
response.write ""
end if
j=j+1
rs.moveNext
if j>36 then exit do
loop
%>
 " border="0" onMouseOver="this.style.filter='alpha(opacity=100)';high(this)" onmouseout=low(this) style="border:1px solid #000000; margin:4px; CURSOR: hand; ">
|
[<%=left(rs("title"),32)%>] |
|
|
<%end if%> |
