<% 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 Member_Info where UPD_DATE is not null order by UPD_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("M_SEX")%> <%=trs("M_NAME")%> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center"><%=trs("M_COUNTRY")%> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center"><%=trs("M_TITLE")%> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center"><%=trs("M_AGENCIES")%> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center"><%=trs("REG_TIME")%> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center"> none<%end if%>" href="Member_Modify.asp?ID=<%=trs("MEMBER_ID")%>">修改 <% showpage totalrecord,totalpage,nowpage,"member_updlist.asp" Set db=nothing %> <%if session("U_Type")="all" then%>  全部选中    none<%end if%>" name='delbtn' value='删除' type='button' onClick="cdel()">         <%end if%>