<% set rs_big=server.createobject("Adodb.RecordSet") rs_big.open "select * from zp_bigclass order by sx asc",conn,1,1 if rs_big.recordcount=0 then else rs_big.PageSize=10 if absolutePage=0 then absolutePage=1 end if rs_big.AbsolutePage=absolutePage for i=0 to rs_big.pagesize if rs_big.eof then exit for end if%> <% id2=int(rs_big("id")) bfl=int(request("bfl")) if bfl=id2 then asa="" else asa="DISPLAY: " end if %>

"> +  <%=rs_big("bigclassname")%>

<%rs_big.movenext next end if%>

<%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 "


没有发现产品，请管理员到后台添加!" else rs.movefirst if not isempty(request("page")) then pagecount=cint(request("page")) else pagecount=1 end if rs.pagesize=8 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>8 then exit do loop %>

" border="0" onMouseOver="this.style.filter='alpha(opacity=100)';high(this)" onmouseout=low(this) style="border:1px solid #000000; margin:2px; CURSOR: hand"> <%=left(rs("title"),10)%>

<%end if%>