<% id=request("id") bid=request("bid") search=request("search") key=request("key") %> <% set rs13=server.createobject("adodb.recordset") if bid<>"" then sql13="select * from x_probclass where id="&bid else sql13="select top 1 * from x_probclass order by x_order asc,id asc" end if rs13.open sql13,conn,1,1 if not rs13.eof then x_bclass=rs13("x_bclass") bid=rs13("id") else x_bclass="精品工程" end if rs13.close set rs13=nothing %>
<%=x_bclass%>
<% set rs5=server.createobject("adodb.recordset") if bid<>"" then sql5="select * from x_prosclass where x_bid="&bid&" order by x_order asc,id asc" else sql5="select * from x_prosclass order by x_order asc,id asc" end if rs5.open sql5,conn,1,1 if not rs5.eof then %>
    <% dim ThisPage,Pagesize,Allrecord,Allpage,k,j k=1 if request("page")="" then ThisPage=1 else ThisPage=request("page") end if rs5.Pagesize=9 Pagesize=rs5.Pagesize Allrecord=rs5.Recordcount Allpage=rs5.Pagecount if ThisPage<1 then ThisPage=1 end if On Error Resume Next rs5.move (ThisPage-1)*Pagesize while not rs5.eof and k<=Pagesize set rs51=server.createobject("adodb.recordset") sql51="select top 1 * from x_products where x_bid="&bid&" and x_sid="&rs5("id")&" order by x_order asc,x_addtime desc" rs51.open sql51,conn,1,1 if not rs51.eof then %>
  • ">" width="160" height="160" border="0" />
    "><%=rs5("x_sclass")%>
    • <% end if rs51.close set rs51=nothing k=k+1 rs5.movenext wend%>
<% else response.write "暂无信息" end if rs5.close set rs5=nothing %>
当前页<%=ThisPage%>/<%=Allpage%>  共有 <%=Allrecord%> 条记录  每页<%=pagesize%>条   <% dim myurl,pageposition myurl=Request.ServerVariables("QUERY_STRING") if myurl<>"" then pageposition=instr(myurl,"page") if pageposition>0 then myurl=left(myurl,pageposition-1) else myurl=myurl+"&" end if end if if ThisPage<2 then response.write "首页 " response.write "上一页 " else response.write "首页 " response.write "上一页 " end if if Allpage-ThisPage<1 then response.write "下一页 " response.write "尾页 " else response.write "下一页 " response.write "尾页 " end if %> 转到： 页