项目实战新闻动态发布管理系统.pptVIP

新闻管理Manage.ASP const MaxPerPage=5 分页，每页5条 dim totalPut 新闻总数 dim CurrentPage 当前页码 dim TotalPages 总页数 dim i,j if not isempty(request(page)) then 取分页数 currentPage=cint(request(page)) else currentPage=1 end if % 新闻管理Manage.ASP body bgcolor=#FFFFFF table width=90% border=1 align=center tr bgcolor=#99CCFF td height=10 bgcolor=#CBD6FEdiv align=centerb管 理 界 面/b/div/td /tr tr td height=49 %dim sql, rs sql=select * from News order by articleid desc Set rs= Server.CreateObject(ADODB.Recordset) rs.open sql,conn,1,1 if rs.eof