<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Article where classid=26 order by adddate desc",conn,1,1
if err.number<>0 then
response.write "
數據庫中暫時無數據
"
end if
if rs.eof And rs.bof then
Response.Write "
對不起，目前還沒有信息！
"
end if%> <%
rs.pagesize = 9
if request("page")="" or isempty(request("page")) then
page = 1
else
page=int(request("page"))
end if
if page>rs.pagecount then
page=rs.pagecount
end if
if not rs.BOF then
Rs.Move Rs.PageSize*(page-1)
end if%>
