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

<% dim db,trs Set db=new Connections set trs=server.CreateObject("ADODB.recordset") set trs_member=server.CreateObject("ADODB.recordset") strsql="select * from Abstract where Table_Type='PosterAbstracts' order by Date desc" set trs=db.Query (strsql,1) if not trs.eof then page_size=15 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%> align="center"><%=trs("Authors")%> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center"><%=trs("Email")%> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center"><%=trs("Country")%> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center"><%=trs("Title")%> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center"><%=trs("Date")%> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center"> ">查看 <% showpage totalrecord,totalpage,nowpage,"poster_list.asp" Set db=nothing %>  全部选中