<% 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 order by REG_TIME 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_firstNAME")%> <%=trs("M_middleNAME")%> <%=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("M_SESSION")%> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center"><% if trs("tour_price")<>0 and trs("tour_price")<>"" then response.Write "是" else response.Write("否") end if %> 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_list.asp" Set db=nothing %>  全部选中    none<%end if%>" name='delbtn' value='删除' type='button' onClick="cdel()">