% const MaxPerPage=18 dim totalPut dim CurrentPage dim TotalPages dim i,j dim sql dim rs dim classid dim typeid classid=request("Classid") 'classid=63 sql="select * from Xb_article where Bigclassid="&classid&" or classid="&classid&" order by id desc" if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 sql="select * from Xb_class where id="&classid Set rs1= Server.CreateObject("ADODB.Recordset") rs1.open sql,conn,1,1 dim classname classname=rs1("Classname") %>