<% set rs=server.createobject("adodb.recordset") conn="DBQ="+server.mappath("check.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};pwd=yaday" sql="select * from news order by id desc" rs.open sql,conn,1,1 %>
<% dim page page=Clng(request("page")) rs.pagesize=6 if page<1 then page=1 if page>rs.pagecount then page=rs.pagecount rs.Absolutepage=page %> <% for i=1 to rs.pagesize %> <a href=shownews.asp?id=<% = rs("id") %> target="_blank"><% = rs("bt")%></a><br><br> <% rs.movenext if rs.eof then exit for next %> <% if page<>1 then response.write "<a href=index.asp?page=1>首页</a> " response.write "<a href=index.asp?page="&(page-1)&">上一页</a> " end if if page<>rs.pagecount then response.write "<a href=yaday.asp?page="&(page+1)&">下一页</a> " response.write "<a href=yaday.asp?page="&rs.pagecount&">尾页</a> " end if %> 第<%=page%>页/共有<%=rs.pagecount%>页 <form name="form1" method="get" action="index.asp"> <input name="page" size="2" value="<%=page%>"> <input type="submit" method="submit" value="GO"> </form>
|