|
文章目录
1、高校学生管理的新模式——上海大学实行学生社区管理的理论与实践
苏丽杰 2006-12-11
|
<%
dim mPage,mPages,lines '定义当前页、总页数、每页行数
dim mPrevious,mNext,mFirst,mLast '定义前翻、后翻、首页和末页的变量
if IsEmpty(request("vPage")) then
mPage=1
else
mPage=cint(request("vPage"))
end if
lines=10
set rs=server.createObject("adodb.recordset")
rs.open "select id,title,NewsDate,readCount from news order by NewsDate desc",conn,1,1
if not rs.eof then
rs.pageSize=lines '每页行数
rs.absolutepage=mPage '当前页
end if
i=0
do while not rs.eof and i
<%
rs.moveNext
i=i+1
loop
%>
|
