<% if session("S_login")="" then Response.Redirect "../default.asp" end if %>

<% dim db,trs Set db=new Connections set trs=server.CreateObject("ADODB.recordset") strsql="select * from news order by id desc" set trs=db.Query (strsql,1) if not trs.eof then page_size=20 totalrecord=db.GetRecordcount(trs) totalpage=db.GetPagecount(totalrecord,page_size) nowpage=Request("page") if nowpage="" or cint(nowpage)<1 then nowpage=1 else nowpage=cint(nowpage) end if trs.movefirst trs.move (nowpage-1)*page_size end If while not trs.eof And i <% i=i+1 trs.movenext Wend %> 选择 进展内容 发布时间 操作 bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center" style="cursor:hand"> "> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%>>  <%=trs("NEWS")%> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center"><%=trs("UP_DATE")%> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center">">修改 <% showpage totalrecord,totalpage,nowpage,"member_list_cn.asp" Set db=nothing %> <%if session("U_Type")="finance" or session("U_Type")="manager" then%>  全部选中             <%end if%>