<%Set Rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from news order by news_adddate desc" ' 从数据库里取数据
Rs.Open sql, Conn, 1, 1
if Rs.bof and Rs.eof then '判断是否为空
Response.Write "
当前还没有新闻！
"
else
Rs.movefirst
articleperpage=10
Rs.pagesize=articleperpage
If trim(request("page"))<>"" Then
currentpage=clng(request("page"))
If currentpage>Rs.pagecount Then
currentpage=Rs.pagecount
End If
Else
currentpage=1
End If
totalart=Rs.recordcount
If currentpage<>1 Then
If (currentpage-1)*articleperpage
您现在的位置：成都联碳-->新闻中心
