</head>
<!--#include file="conna.asp"-->
<!-- #include file="top.htm" -->
<CENTER>
<%
set rs=server.createobject("adodb.recordset")
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
sql="select * from pub order by id desc"
rs.open sql,conn,1,1
rs.PageSize=16
if rs.eof and rs.bof then
response.write " <FONT COLOR='#000066'>对不起,没有符合要求的记录!</FONT>"
response.write " <P><CENTER><A HREF='javascript:history.go(-1)'>点此返回</CENTER></A>"
response.end
end if
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
rs.AbsolutePage=pagecount
dim i
i=0 %>
<% response.write"<form method=Post action='bus.asp?key="+key+"'>"
response.write "<font color='#000064'>◆ </font>"
if PageCount=1 then
response.write "<font color='#000064'>首页 上一页</font> "
else
response.write "<a href=bus.asp?page=1&key="+key+"><font color='0000BE'>首页</font></a> "
response.write "<a href=bus.asp?page="+cstr(pagecount-1)+"&key="+key+"><font color='0000BE'>上一页</font></a> "
end if
if rs.PageCount-pagecount<1 then
response.write "<font color='#000064'>下一页 尾页</font>"
else
response.write "<a href=bus.asp?page="+cstr(pagecount+1)+"&key="+key+"><font color='0000BE'>下一页</font></a> "
response.write "<a href=bus.asp?page="+cstr(rs.PageCount)+"&key="+key+"><font color='0000BE'>尾页</font></a>"
end if
response.write "<font color='000064'> 共"&rs.recordcount&"条记录 "&rs.PageSize&"条记录/页</font>"
response.write "<font color='000064'> 页码:<font color=blue>"&PageCount&"</font>/"&rs.PageCount&"页</font>"
response.write "<font color='000064'> 转到第<input type='text' name='page' size=2 class=smallInput style='font-size: 9pt; color: rgb(0,0,255)' value="&PageCount&">页</font> "
response.write "<input class=buttonface type='submit' value='确 定' name='cndok' style='font-family: 宋体; font-size: 9pt; color: #000073'>" %></CENTER>
<br>
<div align="center">
<center>
<table border="1" cellpadding="0" width="732" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#DBDBDB" cellspacing="0" height="28">
<% do while not rs.eof %>
<tr>
<% for i = 1 to 4 %>
<td width="25%" align="center" height="25"> <A HREF="javascript:openwin('view_opp.asp?id=<%=rs("id")%> ')"><%=rs("p_id") %></A></td>
<%
rs.movenext
if rs.eof then
exit for
end if
next%>
</tr>
<% i=i+1
if i>=rs.PageSize then exit do
loop
rs.close
set rs=nothing
conn.close
set conn=nothing %>
</table>
</div>
</form>
<!-- #include file="bottom.htm" -->