<!--#include file="../include/buyok_shop_30_conn.asp"-->
<!--#include file="../chopchar.asp"-->
<!--#include file="checkadmin.asp"-->
<script language=javascript src=../include/mouse_on_title.js></script>
<%
call checkmanage("01")
%>
<html >
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>CCA On-line Meeting Appointment System</title>
<link href="../css.css" rel="stylesheet" type="text/css">
</head>
<body>
<div id="toolTipLayer" style="position:absolute; visibility: hidden"></div>
<script>initToolTips()</script>
<table width="1004" border="0" align="center" cellpadding="0" cellspacing="7">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="textw">
pages=4
set rs=server.CreateObject("adodb.recordset")
sql = "select * from news
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<tr ><td height=30 align=center class=text colspan=2>No...</td></tr>"
else
rs.pageSize = pages '每页记录数
allPages = rs.pageCount
page = Request("page")
'if是基本的出错处理
If not isNumeric(page) then page=1
if isEmpty(page) or clng(page) < 1 then
page = 1
elseif clng(page) >= allPages then
page = allPages
end if
rs.AbsolutePage = page
if Trim(Request("i"))="" then
i=1
else
i=Trim(Request("i"))
end if
if page>1 then i=((page-1)*pages)+i
do while not rs.eof and pages>0
If (i mod 2)=0
bgcolor="#F7F7F7"
else
bgcolor="#ffffff"
end if
pages = pages - 1
rs.movenext
if rs.eof then exit do
loop
response.write "<br>Total "&RS.RecordCount&" Notice(s)
if page = 1 then
response.write "<font color=darkgray>First
else
response.write "<a href=index_user.asp?SmallClassID=10&at="&at&"&page=1>First</a>
end if
if page = allpages then
response.write "<font color=darkgray> /
else
response.write " <a href=index_user.asp?SmallClassID=10&at="&at&"&page="&page+1&">Next</a>
end if
response.write " Page "&page&" of
end if
rs.close
set rs=nothing
</table>
</table></td>
</table>
</body>
</html>