<% 'on error resume next 'RecordNumberPerPage==>每页显示的记录数 'Rownum==>一行几个 RecordNumberPerPage = 9 Rownum=3 if request("PageNumber")<>"" then PageNumber = cint(request("PageNumber")) else PageNumber = 1 end if 'newslong==>产品名称前台限制的长度 'newssign==>产品名称的省略标示 'classid==>类别id newslong=12 newssign="..." if request("keys")<>"" then keys=request("keys") else keys="" end if if request.Form("classid")<>"" then classid=request.Form("classid") else if request.QueryString("classid")<>"" then classid=request.QueryString("classid") else classid="" end if %> <% if classid<>"" then set rs=server.CreateObject("adodb.recordset") sql="select * from product_sign where id="&classid rs.open sql,conn,1,1 if not rs.eof and not rs.bof then %> <%=rs("lxname")%>-- <% end if rs.close set rs=nothing end if end if %> 产品展示-----山东博风风机有限公司 <% '分页过程*********************** SUB SubPages() 'AllRecordCount==>总记录数 'PagesCount==>总共的页数 AllRecordCount=rs.RecordCount if AllRecordCOunt mod RecordNumberPerPage=0 then PagesCount=AllRecordCOunt\RecordNumberPerPage else PagesCount=(AllRecordCOunt\RecordNumberPerPage)+1 end if %>
首页 上一页 下一页 末页 共<%= rs.recordCount %>条 <%= RecordNumberPerPage %>条/页 <%= PageNumber %>/<%= PagesCount %>页
<% END SUB %>

公司主要生产经营金属矿山用主、辅扇风机,金属矿山用局部通风机,煤矿防爆主扇风机,煤矿用局部通风机,瓦斯抽排风机煤气加压风机,锅炉通引风机等系列风机。

您的位置:首页 // 产品展示 // <% if classid<>"" then set rs=server.CreateObject("adodb.recordset") sql="select * from product_sign where id="&classid rs.open sql,conn,1,1 if not rs.eof and not rs.bof then %> "><%=rs("lxname")%> <% end if rs.close set rs=nothing end if %>  
<% set rs=server.CreateObject("adodb.recordset") if classid<>"" then condition1=" and signid in("&classid&")" else condition1="" end if if keys<>"" then condition1=condition1&" and productnm like '%"&keys&"%'" else condition1=condition1&"" end if if session("user")="" then condition1=condition1&"" end if rssql="select * from product where id is not null"&condition1&" order by ordernum desc" 'response.Write(rssql) 'response.End() rs.open rssql,conn,1,1 if not rs.bof and not rs.eof then rs.absoluteposition=((abs(PageNumber)-1)*RecordNumberPerPage)+1 pdrownum=0 %> <% for i=1 to RecordNumberPerPage pdrownum=pdrownum+1 %> <%if cint(pdrownum)=1 then%> <%end if%> <%if cint(pdrownum)=cint(Rownum) then pdrownum=0 %> <%end if%> <% rs.movenext if rs.eof then exit for end if next end if %>
<% call SubPages()%>