📄 pay.asp
字号:
<!--#include file="check.asp"-->
<%
dim action
action=request.QueryString("action")
upline=request.QueryString("upline")
Nowpage=cint(request.QueryString("page"))
call ConnectionDatabase
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>站长支付</title>
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style4 {font-weight: bold}
-->
</style>
</head>
<body>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="tablegg">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#F1F1F1">
<tr bgcolor="#E3E2C3">
<td height="23" bgcolor="#E3E2C3"><div align="center" class="style4"><strong> 站长支付管理 </strong></div></td>
</tr>
<tr>
<td valign="top">
<%
select case action
case "pay"
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#EDEDE1">
<td height="26" colspan="6"><span class="forumRow"> <strong> : : 站长列表 : :</strong></span></td>
</tr>
<tr align="center" bgcolor="#E3E2C3">
<td width="16%" height="30">站长</td>
<td width="13%" height="30">结算总金额</td>
<td width="15%">已经支付金额</td>
<td width="17%">应支付金额</td>
<td width="14%"><font color=red><b>支付</b></font></td>
<td width="25%">操作</td>
</tr>
<%
if not upline="" then
set Rs=GrateRs("select * from member where username='"&upline&"' and state=1 order by moneyTotal-removeMoney desc,moneyTotal desc",1)
else
set Rs=GrateRs("select * from member where state=1 order by moneyTotal-removeMoney desc,moneyTotal desc",1)
end if
Rs.PageSize=15
if not Rs.eof then
If Nowpage=0 then Nowpage=1
Rs.AbsolutePage=Nowpage
i=1
do while not Rs.eof and i<=Rs.pagesize
%>
<form action="pay.asp?action=update&upline=<%=upline%>" method="post">
<tr align="center" bgcolor="#F1F1F1">
<td width="16%" height="26"><%=Rs("username")%></td>
<td width="13%" height="26"><%=Rs("moneyTotal")%></td>
<td width="15%" height="26"><%=Rs("removeMoney")%></td>
<td width="17%" height="26"><%=Rs("moneyTotal")-Rs("removeMoney")%></td>
<td width="14%" height="26"><input name="pay_<%=Rs("id")%>" type="text" class="inputbox" id="pay_<%=Rs("id")%>" size="10"></td>
<td width="25%" height="26"><a href="siter.asp?action=show&id=<%=Rs("id")%>">站长资料</a> / <a href="ship.asp?action=show&upline=<%=Rs("username")%>">结算详单</a> / <a href="meber.asp?upline=<%=Rs("username")%>">查看手机会员</a></td>
</tr>
<%
i=i+1
Rs.movenext
loop
else
%>
<tr align="center" bgcolor="#F1F1F1">
<td height="26" colspan="6">对不起，站长应支付金额为零，不能支付！</td>
</tr>
<%
end if
%>
<tr align="center" bgcolor="#F1F1F1">
<td height="26" colspan="6"><input name="Submit" type="submit" class="inputbutton" value=" 立即支付 "></td>
</tr>
</form>
<tr bgcolor="#E3E2C3">
<td height="26" colspan="6"> <strong>翻页: :</strong>
<%
myurl="pay.asp?action=pay&upline="&upline&"&"
response.write("共："&Rs.recordcount&"条记录，共:"&Rs.PageCount&"页,"&Rs.PageSize&"条/页,第"&NowPage&"页 ")
response.write("<a href='"&myurl&"page=1'>"&"第一页</a> ")
if NowPage>1 then response.write("<a href='"&myurl&"page="&Nowpage-1&"'>前一页</a> ")
if NowPage<Rs.PageCount then response.write("<a href='"&myurl&"page="&Nowpage+1&"'>后一页</a> ")
response.write("<a href='"&myurl&"page="&Rs.PageCount&"'>最后页</a> ")
%> </td>
</tr>
</table>
<%
case "update"
if not upline="" then
set Rs=GrateRs("select * from member where username='"&upline&"' and state=1 and moneyTotal>removeMoney",3)
else
set Rs=GrateRs("select * from member where state=1 and moneyTotal>removeMoney",3)
end if
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#EDEDE1">
<td width="22%" height="26"> 站长ID</td>
<td width="78%" height="26"> 本次支付金额</td>
</tr>
<%
do while not Rs.eof
if Isnumeric(request.form("pay_"&Rs("id"))) then
%>
<tr bgcolor="#F1F1F1">
<td height="26"> <%=Rs("username")%></td>
<td height="26"> <%=request.form("pay_"&Rs("id"))%></td>
</tr>
<%
Rs("removeMoney")=Rs("removeMoney")+request.form("pay_"&Rs("id"))
Rs.update
end if
Rs.movenext
loop
%>
</table>
<table width="100%" height="26" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><input name="Submit" type="submit" class="inputbutton" value=" 继续结算 " onclick="window.location='<%=Request.ServerVariables("HTTP_REFERER")%>';"></td>
</tr>
</table>
<%
end select
%>
</td>
</tr>
<tr align="center" bgcolor="#EDEDE1">
<td height="35" align="right"> <span class="style1">Copyright 2003 - 2005 IFBEST Inc. AllRights Reserved Design By <a href="http://www.258sp.com" target="_blank">258sp商务平台</a></span> </td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
call DBConnEnd
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -