onlinepaylist.asp

国内第一数字点卡销售程序。功能强大。 完整无错！数据文件经MD5加密！经严格测试

<!--#include file="top.asp"-->
<% if session("user_name")="" then
   response.write "<script language=javascript>alert('请先登陆后操作，谢谢合作！');history.go(-1);</script>"
   response.End
end if%>
<td width="15" height="3">&nbsp;</td>
<!--#include file="leftuser.asp"--></td>
<td width="15" height="30">&nbsp;</td>
			<td width="600" valign="top">
            <table border="0" width="600" cellspacing="0" cellpadding="0" height="379">
				<tr>
					<td height="100%" width="613" valign="top">
					
<%
set rsq=conn.execute("select sum(sub_totalcash) from onlinepay where sub_username='"&session("user_name")&"' and sub_payok=false")
set rst=conn.execute("select sum(sub_totalcash) from onlinepay where sub_username='"&session("user_name")&"' and sub_payok=true")

b1=rsq(0)
if b1&"1"="1" then b1=0

b2=rst(0)
if b2&"1"="1" then b2=0

sql="select * from onlinepay where sub_username='"&session("user_name")&"' order by pay_id DESC"
rs.open sql,conn,3,3
if rs.eof then
    response.write "暂且没有汇款单"
    response.end
end if
      rs.pagesize=15
      page = cint(request("page"))
      if page = "" then page = 1
      if not(isnumeric(page)) then page=1
      if page<1 then page=1
      if page >= rs.pagecount then page = rs.pagecount
      rs.absolutepage = page
  %>
    <div align="center">
    　<table border="1" width="95%" cellspacing="0" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" height="128" cellpadding="0">

      <tr>
        <td width="76" style="padding: 5px" height="37" align="center" bgcolor="#339933">
		<font color="#FFFFFF">用户名</font></td>
        <td width="104" style="padding: 5px" height="37" align="center" bgcolor="#339933">
		<font color="#FFFFFF">订单号</font></td>
        <td width="93" style="padding: 5px" height="37" align="center" bgcolor="#339933">
		<font color="#FFFFFF">支付金额</font></td>
        <td width="148" style="padding: 5px" height="37" align="center" bgcolor="#339933">
		<font color="#FFFFFF">支付状态</font></td>
        <td width="116" style="padding: 5px" height="37" align="center" bgcolor="#339933">
		<font color="#FFFFFF">日期</font></td>
      </tr>
<%
for i=1 to rs.pagesize
%>
      <tr>
        <td width="76" style="padding: 5px" height="40" align="center"><%=rs("sub_username")%>&nbsp;</td>
        <td width="104" style="padding: 5px" height="40" align="center"><font color="#FF0000"><%=rs("sub_getbank")%>&nbsp;</font></td>
        <td width="93" style="padding: 5px" height="40" align="center"><%=rs("sub_totalcash")%>&nbsp;</td>
        <td width="148" style="padding: 5px" height="40" align="center"><%if rs("sub_payok") then %><b><font color="#FF6600">已支付<%else%>未成功</font></b><%end if%>
       </td>
        <td width="116" style="padding: 5px" height="40" align="center"><font color="#FF0000"><%=rs("sub_date")%>&nbsp;</font></td>
      </tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
      <tr>
        <td width="100%" colspan="5" style="padding: 5px" height="49" align="center">
                    <p align="center">共有记录<%=rs.recordcount%>条&nbsp;                   
                    <%=page%>/<%=rs.pagecount%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <A href="<%request.servervariables("document_name")%>?page=<%=page-1%>">上一页</A> <A href="<%request.servervariables("document_name")%>?page=<%=page+1%>">下一页</A>&nbsp;&nbsp;&nbsp; 转到第 <SELECT onchange="window.location='?page='+this.value" name=gopage>              
                    <%for x=1 to rs.pagecount%>
                    <OPTION <%if x=page then%>selected<%end if%> value=<%=x%>><%=x%></OPTION>
                    <%next%>      
                    </SELECT> 页        
                    </div>
                    <%rs.close%>  
        </td>
      </tr>
    </table>
</div>
<p align="left">&nbsp;&nbsp; 未成功金额：<%=b1%></p>
<p align="left">&nbsp;&nbsp; 已成功金额：<%=b2%></p>
					
	
					</td>
				</tr>
			</table>
			</td>
<td width="1" background="images/line.jpg"></td>
		</tr>
		</table>
<!--#include file="copy.asp"-->