UC知道求助ASP，信息栏目怎么能加上翻页？和每页显示几条？
来源：百度知道 编辑：UC知道 时间：2024/05/29 12:35:17
<%
Dim Db,StrSQL,Rs
Set Db=Server.CreateObject("ADODB.Connection")
Db.Open "Dbq="&Server.Mappath("data.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
Dim action,ID
ID=trim(request.QueryString ("ID"))
action=trim(request.QueryString ("action"))
IF action="del" then
StrSQL="delete from Upfile_Table where ID=" & ID
Db.execute(StrSQL)
End IF
StrSQL="Select * From Upfile_Table order by ID desc"
Set Rs=Db.execute(StrSQL)
Response.Write"<table width='100%' border='0' align='center' cellpadding='0' cellspacing='2'>"
Response.Write "<td><font color=red>ID</font></td>"
Response.Write "<td><font color=red>主题</font></td>"
Response.Write "<td><font color=red>文件名称</font></td>
Dim Db,StrSQL,Rs
Set Db=Server.CreateObject("ADODB.Connection")
Db.Open "Dbq="&Server.Mappath("data.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
Dim action,ID
ID=trim(request.QueryString ("ID"))
action=trim(request.QueryString ("action"))
IF action="del" then
StrSQL="delete from Upfile_Table where ID=" & ID
Db.execute(StrSQL)
End IF
StrSQL="Select * From Upfile_Table order by ID desc"
Set Rs=Db.execute(StrSQL)
Response.Write"<table width='100%' border='0' align='center' cellpadding='0' cellspacing='2'>"
Response.Write "<td><font color=red>ID</font></td>"
Response.Write "<td><font color=red>主题</font></td>"
Response.Write "<td><font color=red>文件名称</font></td>
二楼的方法也太狠了吧，理论上还是可以的，不过……呵呵
我这里有一个自己写的分也代码供你参考，有注解的自己看吧
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from news",connnews,1,1
rs.pagesize=25 '每页记录条数
if request("page")="" then 如果返回参数为空则设page为1
page=1
else
page=Request("page") '将URL参数page传给page变量
end if
rs.absolutepage=page '将本页设为page设置的页数
for i= 1 to rs.pagesize
if rs.eof then '如果没有数据集以及到结束则跳出循环
exit for
end if
response.Write(rs("newstitle")) '显示新闻标题
rs.movenext
next
%>
</div>
<!--翻页-->
<div style="font-size:12px;">
当前第<%=page%>页，共有<%=rs.pagecount%>页，共有：<%=rs.recordcount%>条记录<br />
<%if page=1 then%>
首页
<%else%>
<a href="showmore.asp?page=<%=1%>&quo