<% set rs=server.CreateObject("adodb.recordset") ids="" call lids(keys) ids=keys&ids sql="select id,title,pic_xiao,content from "&tables&" where lid in("&ids&") " if request("keys_title")<>"" then sql=sql&" and title like '%"&request("keys_title")&"%' " end if sql=sql&" order by shijian desc" rs.open sql,conn,1,1 if rs.recordcount=0 then Response.Write "产品整理中..." else rs.pagesize=12 page=clng(request.QueryString("page")) if page<1 then page=1 if page>rs.pagecount then page=rs.pagecount rs.absolutepage=page j=0 for i = 1 to rs.pagesize %> <% if page=1 then response.Write("首页") else response.Write("<a href="?page=1&keys=" mce_href="?page=1&keys=""&keys&"&keys_title="&request("keys_title")&">首页</a>") end if if page=1 then response.Write(" 上一页") else response.Write(" <a href="?page=" mce_href="?page="" & page-1 & "&keys="&keys&"&keys_title="&request("keys_title")&">上一页</a>") end if if page=rs.pagecount then response.Write(" 下一页") else response.Write(" <a href="?page=" mce_href="?page="" & page+1 & "&keys="&keys&"&keys_title="&request("keys_title")&">下一页</a>") end if if page=rs.pagecount then response.Write(" 末页") else response.Write(" <a href="?page=" mce_href="?page="" & rs.pagecount & "&keys="&keys&"&keys_title="&request("keys_title")&">末页</a>") end if %> <%=page%>/<%=rs.pagecount%>页 共<%=rs.recordcount%>条记录! 第 <select name="menu1" onChange="MM_jumpMenu('parent',value,0)"> <% for i = 1 to rs.pagecount %> <option value="?page=<%=i%>&keys=<%=keys%>&keys_title=<%=request("keys_title")%>" <%if page=i then%> selected<%end if%>><%=i%></option> <% next%> </select> 页<%if n=1 then%><INPUT type=hidden name=slt><%end if%><%end if%>