<% if session("S_login")="" then Response.Redirect "default.asp" end if if session("U_Type")<>"finance" and session("USER_NAME")<>"meixiaoli" then response.Write "" response.end end if %>

<% dim db,trs Set db=new Connections set trs=server.CreateObject("ADODB.recordset") set trs_book=server.CreateObject("ADODB.recordset") strsql="select MEMBER_ID,M_SEX,M_COUNTRY,M_NAME,CARD_TYPE,MEET_ITEM,CARD_HOLDER,CARD_NUMBER,EXPRI_DATE,TOTAL_PAY,PAY_ALL 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"><%=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("CARD_TYPE")%> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center"><%=trs("MEET_ITEM")%> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center"><%=book_info%> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center"> <% response.Write trs("TOTAL_PAY") & "+" & book_price & "=" & trs("TOTAL_PAY")+book_price %> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center"><%=trs("CARD_HOLDER")%> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center"><%=trs("CARD_NUMBER")%> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center"><%=trs("EXPRI_DATE")%> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center"> <% if trs("PAY_ALL")=0 then response.Write "未付清" else response.Write "已付清" end if %> bgcolor="#CCDEFF"<%else%> bgcolor="#9FC0FD"<%end if%> align="center"> ">修改 <% showpage totalrecord,totalpage,nowpage,"payment_list.asp" Set db=nothing %>