<!--#Include file="conn.asp"-->
<!--#Include file="分页函数.inc"-->
<%
set adoPageRs=CreateObject("adodb.RecordSet")
adoPageRs.open "SELECT * FROM news ORDER BY addtime DESC", conn, 1, 1
if err.number> 0 then
response.write "数据库操作失败:"&err.description
else
if adoPageRs.eof and adoPageRs.bof then
response.write "没有记录"
else
%>
<div align="center">
<center>
<table width="100％" border="0" cellspacing="1" cellpadding="2">
<tr class="big">
<td width="60％">;新 闻 标 题</td>
<td width="25％" align="center">日期</td>
<td width="15％" align="center">操　　作</td>
</tr>
<%
adoPageRs.pagesize = 5'设置一个页面显示的记录数
curpage=adoPageRs.absolutepage
for i = 0 to 9
%>
<tr>
<td><%=adoPageRs("title")%></td>
<td align="center"><%=adoPageRs("addtime")%></td>
<td align="center">
<a href='newsman.asp?action=edit&id=<%=adoPageRs("id")%>'>编辑</a>
<a href='javascript:confirmDel(<%=adoPageRs("id")%>)'>删除</a>
</td>
</tr>
<%
adopageRs.movenext
if adoPageRs.eof then
i=i+1
exit for
end if
next
%>
<tr>
<td><%=ExportPageInfo(adoPageRs,curpage,i,"newsman.asp?")%></td>
<td></td>
</tr>
</table>
</center>
</div>
<%
end if
end if
%>

<!--#Include file="分页函数.inc"-->
分页函数
<!--函数开始-->
<!--函数参数
********************
ByRef
rs
curpage
i
Linkfile 要显示的文件路径或文件名
********************
-->
Function ExportPageInfo(ByRef rs,curpage,i,LinkFile)
Dim retval, j, pageNumber, BasePage
retval = "第" & curpage & "页/总" & rs.pagecount & "页 "
retval = retval & "本页" & i & "条/总" & rs.recordcount & "条 "

If curpage = 1 Then
retval = retval & "首页 前页 "
Else
retval = retval & "<a href='" & LinkFile & "page=1'>首页</a> <a href='" & LinkFile & "page=" & cstr(curpage - 1) & "'>前页</a> "
End If

If curpage = rs.pagecount Then <!--'记录的个数-->
retval = retval & "后页 末页"
Else
retval = retval & "<a href='" & LinkFile & "page=" & cstr(curpage + 1) & "'>后页</a> <a href='" & LinkFile & "page=" & cstr(rs.pagecount) & "'>末页</a>"
End if

retval = retval & "<br>"
BasePage = (curpage \ 10) * 10

If BasePage > 0 Then
retval = retval & " <a href='" & LinkFile & "page=" & (BasePage - 9) & "'>&lt;&lt;</a>"
For j = 1 to 10
pageNumber = BasePage + j
If PageNumber > rs.pagecount Then
Exit For
end if
If pageNumber = Cint(curpage) Then
retval = retval & " <font color='#FF0000'>" & pageNumber & "</font>"
Else
retval = retval & " <a href='" & LinkFile & "page=" & pageNumber & "'>" & pageNumber & "</a>"
End If
Next
If rs.pagecount > BasePage Then
retval = retval & " <a href='" & LinkFile & " page=" & (BasePage + 11) & "'>&gt;&gt;</a>"
ExportPageInfo = retval
End Function
<!--函数结束-->

数据库连接
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("news.mdb")
%>

数据库名和表名相同news.mdb/news
数据库字段
id title addtime

错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'ExportPageInfo'