UC知道怎么分页每页10个
来源：百度知道 编辑：UC知道 时间：2024/05/27 17:35:46
<html >
<head>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
%>
<%
exec="select * from example3 order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<link href="../css/siae.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="550" height="800" align="center">
<tr valign="top">
<td><table width="542" border="0" >
<tr>
<td colspan="6" bgcolor="fae4ff"><img src="../img/2_10.gif" width="553" height="29" /></td>
</tr>
<%do while not r
<head>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
%>
<%
exec="select * from example3 order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<link href="../css/siae.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="550" height="800" align="center">
<tr valign="top">
<td><table width="542" border="0" >
<tr>
<td colspan="6" bgcolor="fae4ff"><img src="../img/2_10.gif" width="553" height="29" /></td>
</tr>
<%do while not r
你这是什么东东？
<%
database = "news.mdb"
strconn = "driver={microsoft access Driver (*.mdb)};dbq="& server.MapPath(database)
set conn = server.CreateObject("ADODB.connection")
conn.open strconn
set rs = server.CreateObject("ADODB.recordset")
rs.open "select * from user order by id desc",conn,1,3
if rs.eof or rs.bof then
response.Write"数据库中没有记录"
else
counts= 5
rs.pagesize = counts
allpages = rs.pagecount
page = request("page")
if not isnumeric(page) then page = 1
if isempty(page) or cint(page)<1 then
page = 1
elseif cint(page) >= allpages then
page = allpages
end if
rs.absolutepage = page
%>