<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<!--#include file="../inc/setup.asp"-->
<!--#include file="../inc/sql.asp"-->
<%end if%>
<HTML>
<HEAD>
<TITLE><%=homename%>-个人会员</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2800.1492" name=GENERATOR>
<script language="javascript">
function openScript(url, width, height){
	var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=yes,menubar=no,status=yes' );
}
</script>
<LINK href="../company/images/css.css" type=text/css rel=stylesheet>
</HEAD>
<BODY>
<TABLE width=768 border=0 align="center" cellPadding=10 cellSpacing=0 borderColor=#111111 style="BORDER-COLLAPSE: collapse">
  <TBODY>
    <TR>
      <TD width="96%" valign="top">
		<TABLE width=95% border=0 align="center" cellPadding=0 cellSpacing=1 bgColor=0EBDF6>
          <TBODY>
            <TR>
              <TD bgColor=#ffffff>
			  <br>
			  <table width="95%" height="27"  border="0" align="center" cellpadding="0" cellspacing="0">
                <TR>
                  <TD width=125 background="images/bt_left_bj.gif" height=27>&nbsp;&nbsp;<IMG src="images/dot1.gif" align=absMiddle>&nbsp; <STRONG class=bt_white><font color="#FFFFFF">在线支付记录</font></STRONG></TD>
                  <TD width=80 background="images/bt_mid_bj.gif"><IMG src="images/bt_mid.gif" ></TD>
                  <TD width=416 background="images/bt_mid_bj.gif">&nbsp;</TD>
                  <TD align=right width=53><IMG height=27 src="images/bt_more.gif" width=53 border=0></TD>
                </TR>
              </table>
                <BR>
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td align="center">
					<table width="95%"  border="0" align="center" cellpadding="0" cellspacing="2" style="border:1 solid #cccccc;">
                        <tr bgcolor="#FFF2D0">
                          <td width="133" align="center" bgcolor="#EBF6FC"><span class="style8">定单号</span></td>
                          <td align="center" bgcolor="#EBF6FC"><span class="style8">支付金额</span></td>
                          <td width="98" align="center" bgcolor="#EBF6FC"><span class="style8">支付网关</span></td>
                          <td width="95" align="center" bgcolor="#EBF6FC">充值卡信息</td>
                          <td width="69" align="center" bgcolor="#EBF6FC">购买数量</td>
                          <td width="114" align="center" bgcolor="#EBF6FC">支付时间</td>
                          <td width="74" align="center" bgcolor="#EBF6FC">操作</td>
                        </tr>
<%
	admin_person_name=Request.Cookies("admin_person_name")
	dim i,intPage,page,pre,last,filepath'定义变量
	set rs_user = server.CreateObject("adodb.recordset")'创建对象
	sql="select pay_list.*,Wishcn_UserCard.ValidUnit,Wishcn_UserCard.ValidNum from [pay_list],Wishcn_UserCard where pay_list.sname='"&admin_person_name&"' and pay_list.stype=1 and Wishcn_UserCard.id=pay_list.card_id and pay_list.zhuangtai=1 order by pay_list.pay_ok asc,pay_list.stime desc"'定义SQL语句
	rs_user.PageSize = 10 '这里设定每页显示的记录数
	rs_user.CursorLocation = 3
	rs_user.Open sql,conn,0,2,1 '这里执行你查询SQL并获得结果记录集
	if rs_user.eof and rs_user.bof then
%>
		<tr style="cursor:hand" backgroundColor='FFFFFF'>
        <td height="30" colspan="7" align="center"><font color="#990000">暂 未 有 您 的 成 功 购 买 的 记 录 </font></td>
        </tr>
<%
	else
	pre = true
	last = true
	page = trim(Request.QueryString("page"))'变量是跳转页面时的值

	if len(page) = 0 then
		intpage = 1
		pre = false
	else
		if cint(page) =< 1 then
			intpage = 1
			pre = false
		else
			if cint(page) >= rs_user.PageCount then
				intpage = rs_user.PageCount
				last = false
			else
				intpage = cint(page)
			end if
		end if
	end if
	if not rs_user.eof then
		rs_user.AbsolutePage = intpage
	end if
	for i=1 to rs_user.PageSize
	if rs_user.EOF or rs_user.BOF then exit for
	BankName=rs_user("bankname")
	if BankName="account" then
		Bank_Name="账户余额"
	elseif BankName="chinabank" then
		Bank_Name="网银在线"
	elseif BankName="alipay" then
		Bank_Name="支付宝"
	elseif BankName="tenpay" then
		Bank_Name="财付通"
	end if
%>
                        <tr style="cursor:hand" onMouseOver="this.style.backgroundColor='F0F0F0'" onMouseOut ="this.style.backgroundColor='FFFFFF'">
                          <td height="30" align="center"><% If rs_user("pay_ok")=1 Then Response.Write("<font color=red>") %><%= rs_user("dingdan_num") %><% If rs_user("pay_ok")=1 Then Response.Write("</font>") %></td>
                          <td width="73" align="center"><% If rs_user("pay_ok")=1 Then Response.Write("<font color=red>") %><%=rs_user("mmoney")%><% If rs_user("pay_ok")=1 Then Response.Write("</font>") %></td>
                  <td align="center"><% If rs_user("pay_ok")=1 Then Response.Write("<font color=red>") %><%= Bank_Name %><% If rs_user("pay_ok")=1 Then Response.Write("</font>") %></td>
                  <td align="center"><% If rs_user("pay_ok")=1 and rs_user("pay_type")=0 Then Response.Write("<font color=red>") %><% if rs_user("pay_type")=0 and rs_user("ValidUnit")=1 then Response.Write(""&rs_user("ValidNum")&"点的点卡") %><%if rs_user("pay_type")=0 and rs_user("ValidUnit")=2 then Response.Write(""&rs_user("ValidNum")&"天的时间卡") end if%><% If rs_user("pay_ok")=1 and rs_user("pay_type")=0 Then Response.Write("</font>") %><% If rs_user("pay_type")=1 Then Response.Write("在线充值")%></td>
                  <td align="center"><% If rs_user("pay_ok")=1 Then Response.Write("<font color=red>") %><%=rs_user("buynumber")%><% If rs_user("pay_ok")=1 Then Response.Write("</font>") %></td>
                  <td align="center"><% If rs_user("pay_ok")=1 Then Response.Write("<font color=red>") %><%=rs_user("stime")%><% If rs_user("pay_ok")=1 Then Response.Write("</font>") %></td>
                  <td align="center"><% If rs_user("pay_ok")=0 and rs_user("pay_type")=0 Then %><a href="JavaScript:openScript('Card_num.asp?dingdan_num=<%= rs_user("dingdan_num") %>',350,185)"><img src="../shop/images/icon_tqkm.gif" border="0"></a><% Else %>&nbsp;<% End If %></td>
                  </tr>
<%
	rs_user.movenext
	next
	end if
%>
                        <tr>
                          <td height="30" colspan="7" align="right" bgcolor="#EBF6FC">&nbsp;</td>
                        </tr>
                      </table>
<table width="95%" border="0" align="center" cellpadding="2" cellspacing="2" borderColorLight=#808080 borderColorDark=#ffffff>
<tr>
<%if rs_user.pagecount > 0 then%>
<td width="13%" align="left">当前页<%=intpage%>/<%=rs_user.PageCount%></td>
<%else%>
<td width="35%" align="left">当前页0/0</td>
<%end if%>
<td width="52%" align="right"> <a href="?page=1">首页</a>|
<%if pre then%>
<a href="?page=<%=intpage -1%>">上页</a>| <%end if%>
<%if last then%>
<a href="?page=<%=intpage +1%>">下页</a> |<%end if%>
<a href="?page=<%=rs_user.PageCount%>">尾页</a>|转到第
<select name="sel_page" onchange=javascript:location.href=this.options[this.selectedIndex].value>
<%
	for i = 1 to rs_user.PageCount
	if i = intpage then
%>
<option value="?page=<%=i%>" selected><%=i%></option>
<%else%> 
<option value="?page=<%=i%>"><%=i%></option>
<%
	end if
	next
%>
</select>页</font>
</td>
</tr>
</table>
					  <br>
					  <table width="100%" border="0" align="center" cellpadding="5" cellspacing="0">
          <tr>
            <td align="center">注意</td>
            <td align="left">系统仅显示已经支付成功的定单记录，所有支付信息仅能提取一次，提取完成后，可在购卡记录处查询充值卡的信息</td>
          </tr>
        </table></td>
                    </tr>
                </table>
              </TD></TR>
          </TBODY>
        </TABLE>
        <br>
      </TD>
    </TR>
  </TBODY>
</TABLE>
<%
	rs.close
	set rs=nothing
%>
</BODY>
</html>