<% bid=request("bid") if bid="" then bid=2 end if %> <% set rs13=server.createobject("adodb.recordset") if bid<>"" then sql13="select * from x_bclass1 where id="&bid else sql13="select top 1 * from x_bclass1 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_article1 where x_bid="&bid&" order by x_order asc,x_addtime desc" else sql5="select * from x_article1 order by x_order asc,id asc" end if rs5.open sql5,conn,1,1 if not rs5.eof then %> <% 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 %> 转到： 页