|
|
|
|
2008基层团青工作快报 |
| |
|
沟通信息
增强交流 共同推进团青工作开展 |
|
|
<%
dim sql
sql = "select * from news where class1= '"& trim(class1) & "' order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open SQL,conn,1,1
rs.MoveFirst
rs.pagesize=MaxPerPage
howmanyfields=rs.Fields.Count-1
const MaxPerPage=10 '每页数
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
If trim(Request("Page"))<>"" then
CurrentPage= CLng(request("Page"))
If CurrentPage> rs.PageCount then
CurrentPage = rs.PageCount
End If
Else
CurrentPage= 1
End If
if rs.eof then
response.write " 暂时没有相关新闻！ "
else
totalPut=rs.recordcount
if CurrentPage<>1 then
if (currentPage-1)*MaxPerPage
|
|
中国
北京市宣武区槐柏树街2号
邮编：100053