|
|
怀俄明大学与我院签署合作协议
|
中法交流 |
国际会议
|
|
怀俄明大学代表团访问我校 |
<%
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
%>
|
