<%@language=VBScript%> <%path=request.servervariables("path_info") proclass=replace(request("proclass"),"'","''") keyword=replace(request("keyword"),"'","''") %> <%'根据不同的条件获取查询条件。。。。。。。。。。。。。。。%> <%path=request.servervariables("path_info") proclass=request("proclass") keyword=request("proclass") sql2="select * from pro where proclass='其它产品' order by proid DESC" %> <%'根据不同的条件获取不同的记录以及记录的分页显示。。。。。。。。%> <%set rs3=server.CreateObject("adodb.recordset") rs3.open sql2,conn,1,1 if not rs3.eof then page=request("page") mypagesize=4 total=rs3.recordcount IF Request("page")="" Then page=1 Else page=Int(Abs(Request("page"))) End if if (total mod mypagesize)=0 then pagecounts=int(total/mypagesize) else pagecounts=int(total/mypagesize)+1 end if flag=int(abs((page-1)*mypagesize)) if not rs3.eof then rs3.move flag end if if page=pagecounts and (total mod mypagesize)<>0 then m=int(total mod mypagesize) else m=mypagesize end if end if %> [石狮市赛克信运动用品有限公司]