|
|
| |
|
| | | |
| | |
<%
'部门信息列表
liststr="select * from news where is_sub=true order by sub_date desc"
set myrs=server.createobject("adodb.recordset")
myrs.open liststr,myconn,1,1
if not myrs.eof then
myrs.movefirst
myrs.pagesize=20
totalPut=myrs.recordcount '记录总数
totalPage=myrs.pagecount
MaxPerPage=myrs.pagesize
'currentpage=request("currentpage")
dim curid
'if not isempty(currentpage) then
'
'end if
if currentpage<1 or isempty(currentpage) then
currentpage=1
end if
if currentpage>totalPage then
currentpage=totalPage
end if
currd=(currentPage-1)*MaxPerPage
myrs.move currd
i=1
do while (not myrs.eof) and i<=MaxPerPage
curid=myrs("id")
title=myrs("title")
sub_date=myrs("sub_date")
'response.write "aaaid="&myrs("id")
%> | | <%=title%>
(<%=sub_date%>) | <%
i=i+1
myrs.movenext
loop
myrs.close
set myrs=nothing
%> | |
| 上一页
第<%=currentpage&"/"&totalPage%>页 下一页 |
<%
else
response.write " |
暂时还没有新信息！！
"
end if
myconn.close
set myconn=nothing
%> | |
| |  | | |