asp连接数据库代码实例(3)

asp 连接数据库代码实例

page=clng(n)

end if

if rs.eof then

response.write\"<font color=#FF0000>暂没有信息！</font>\"

\'response.end

else

rs.absolutepage=page

end if

i=0

do while not rs.eof and i<rs.pagesize

\'do while not rs.eof

%>

--------如果是每行显示n个纪录开始----------------------------

<%

do while not rs.eof and i<rs.pagesize

\'do while not rs.eof

if i mod 5=0 then \'--------设置每行显示的个数

response.write \"<tr>\"

end if

%>

--------如果是每行显示n个纪录结束-----------------------------

<%=rs(\"id\")%>

<% rs.movenext

i=i+1

loop

%>

<%

response.write(\"共\"&rs.recordcount&\"条信息&nbsp;&nbsp;&nbsp;\") if page<>1 then

response.write(\"<a href=?page=1 title=\'首页\'>首页</a>&nbsp;\")

else

response.write(\"首页&nbsp;\")

end if

if page>1 then

response.write(\"<a href=?page=\"&page-1&\" title=\'上一页\'>上一页</a>&nbsp;\")

else

response.write(\"上一页&nbsp;\")

end if

if page<n then