<!--#include file="conn.asp"-->
<%

dim objrs ,sql
sql="select proname, data,person,tel from tbbuy"
set objrs =server.createobject("adodb.recordset")

objrs.open sql ,cnn ,1,1

%>
<table width="748" border="0" align="center">
<tr bgcolor="#CCCCCC">
<td>标题</td>
<td>有效日期</td>
<td>联系人</td>
<td>联系方式</td>
</tr>
<tr>
<%

sub showpage(objrs,pageno)
objrs.absolutepage=pageno
for i=1 to i<=3
response.write "<td>"&objrs("proname")&"</td>"
next
%>
</tr>
<tr>
<td>
<%
objrs.pagesize=3
for i=1 to objrs.pagecount
response.write"<A HREF='paging.asp?page="&i&"'>"&"第"&i&"页"&"&nbsp;"
next
pageno=request("page")
if pageno<>""then
showpage objrs.pageno
end if
objrs.close
set objrs=nothing
cnn.close
set cnn=nothing 错误，不知道为什么 那为大哥帮忙看看啊
%></td></tr>
</table>

<!--#include file="conn.asp"-->
<%

dim objrs ,sql
sql="select proname, data,person,tel from tbbuy"
set objrs =server.createobject("adodb.recordset")

objrs.open sql ,cnn ,1,1

%>
<table width="748" border="0" align="center">
<tr bgcolor="#CCCCCC">
<td>标题</td>
<td>有效日期</td>
<td>联系人</td>
<td>联系方式</td>
</tr>

<%

sub showpage(objrs,pageno)
objrs.absolutepage=pageno
for i=1 to objrs.pagesize
response.write "<TR><td>"&objrs("proname")&"</td>"
response.write "<td>"&objrs("data")&"</td>"
response.write"<td>"&objrs("person")&"</td>"
response.write"<td>"&objrs("tel")&"</td></tr>"

objrs.movenext
if objrs.eof then exit for
next
%>


<%
objrs.pagesize=3
for i=1 to objrs.pagecount
response.write"<tr><td>"&"<A HREF='paging.asp?page="&i&"'>"&"第"&i&"页"&"&nbsp;"&"</td></tr>"
next
pageno=request("page")
if pageno<>""then
showpage objrs.pageno
end if
objrs.close
set objrs=nothing
cnn.close
set cnn=nothing错误这里
%>
</table>