<!--#include file="conn.asp"-->
<%
if request.querystring("num")<>"" then
num=request.querystring("num")
else
num=1
end if
rs.open "select * from 表名",conn,1,1
rs.pagesize=2 '每页显示数据的记录数
rs.AbsolutePage=num '自动分页的第几页
count=rs.pagecount '总页数
for i=1 to rs.pagesize
response.write rs("bzmc")&"<br>"
rs.movenext
'判断如果到了最后一条记录则退出循环。
if rs.eof then
exit for
end if
next
rs.close
set rs=nothing
set conn=nothing
for j=1 to count
response.write "<a href=b.asp?num="&j&">"&j&"</a> "
next
%>
CONN.ASP的代码。
<%
connstr="provider=SQLOLEDB;Data Source = lqflsh;"&"database=ybbzhs;user id=sa; password=bdyh"
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open connstr
%>