searchonlinepay.asp
来自「国内第一数字点卡销售程序。功能强大。 完整无错！数据文件经MD5加密！经严格测」· ASP 代码 · 共 127 行
ASP
127 行
<!--#include file="conn.asp"-->
<%
if session("admin_rank")<>1 and session("admin_rank")<>2 then
response.write("<script>alert('您无权查看本页，SORRY！');window.location=('login.asp')</script>")
response.end
end if
%>
<%
set rs=server.createobject("adodb.recordset")
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body style="background-color: #F0FBF1">
<%
if request("action")="ok" then
sql="select * from onlinepay where sub_payok=false and pay_id="&int(request("pay_id"))
rs.open sql,conn,3,3
if rs.eof then
response.write("<script>alert('没有此的订单或此订单已充款了请核实！');window.location=('onlinepayok.asp')</script>")
response.end
end if
rs("sub_payok")=true
conn.execute("update [user] set user_money=user_money+"&csng(rs("sub_totalcash"))&" where user_name='"&rs("sub_username")&"'")
rs.update
rs.close
response.write "<script language=javascript>alert('确认汇款成功！');</script>"
end if
%>
<%
if request("action")="del" then
sql="select * from onlinepay where pay_id="&int(request("pay_id"))
rs.open sql,conn,3,3
rs.delete
rs.update
rs.close
response.write "<script language=javascript>alert('删除成功！');</script>"
end if
%>
<%
keywords=trim(request("keywords"))
soutype=int(trim(request("soutype")))
select case soutype
case 0
sql="select * from onlinepay order by pay_id DESC"
set rsq=conn.execute("select sum(sub_totalcash) from onlinepay ")
case 1
sql="select * from onlinepay where sub_username like '%"&keywords&"%' order by pay_id DESC"
set rsq=conn.execute("select sum(sub_totalcash) from onlinepay where sub_username like '%"&keywords&"%'")
case 2
sql="select * from onlinepay where sub_getbank like '%"&keywords&"%' order by pay_id DESC"
set rsq=conn.execute("select sum(sub_totalcash) from onlinepay where sub_getbank like '%"&keywords&"%'")
end select
rs.open sql,conn,3,3
tomoney=rsq(0)
if tomoney&"1"="1" then tomoney=0
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="778" cellspacing="0" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" height="128" cellpadding="0">
<tr>
<td width="76" style="padding: 5px" height="37" align="center">用户名</td>
<td width="84" style="padding: 5px" height="37" align="center">姓名</td>
<td width="116" style="padding: 5px" height="37" align="center">E-mail</td>
<td width="68" style="padding: 5px" height="37" align="center">收款银行</td>
<td width="52" style="padding: 5px" height="37" align="center">支付金额</td>
<td width="84" style="padding: 5px" height="37" align="center">支付状态</td>
<td width="111" style="padding: 5px" height="37" align="center">日期</td>
<td width="96" style="padding: 5px" height="37" align="center">处理</td>
</tr>
<%
for i=1 to rs.pagesize
%>
<tr>
<td width="76" style="padding: 5px" height="40" align="center"><a href="searchonlinepay.asp?keywords=<%=rs("sub_username")%>&soutype=1"><%=rs("sub_username")%></a> </td>
<td width="84" style="padding: 5px" height="40" align="center"><font color="#FF0000"><%=rs("sub_usernamec")%> </font></td>
<td width="116" style="padding: 5px" height="40" align="center"><font color="#FF0000"><%=rs("sub_usermail")%> </font></td>
<td width="68" style="padding: 5px" height="40" align="center"><%=rs("sub_getbank")%> </td>
<td width="52" style="padding: 5px" height="40" align="center"><%=rs("sub_totalcash")%> </td>
<td width="84" style="padding: 5px" height="40" align="center"><%if rs("sub_payok") then %><b><font color="#FF6600">已确认<%else%>未成功</font></b><%end if%>
</td>
<td width="111" style="padding: 5px" height="40" align="center"><font color="#FF0000"><%=rs("sub_date")%> </font></td>
<td width="96" style="padding: 5px" height="40" align="center"><a href="onlinepayok.asp?pay_id=<%=rs("pay_id")%>&action=del" onClick="return confirm('您确定要删除此汇款吗')">删除此汇款</a></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
<tr>
<td width="100%" colspan="8" style="padding: 5px" height="49" align="center">
<p align="center">共有记录<%=rs.recordcount%>条
<%=page%>/<%=rs.pagecount%> <A href="<%request.servervariables("document_name")%>?page=<%=page-1%>&soutype=<%=soutype%>&keywords=<%=keywords%>">上一页</A> <A href="<%request.servervariables("document_name")%>?page=<%=page+1%>&soutype=<%=soutype%>&keywords=<%=keywords%>">下一页</A> 转到第 <SELECT onchange="window.location='?soutype=<%=soutype%>&keywords=<%=keywords%>&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"><font color="#FF6600"><b>总计汇款：<%=formatcurrency(tomoney)%></font></b></p>
<p align="left"><font color="#FF0000"><b>注：</b></font>确认此汇款，说明此汇款可能由于银行漏单或网络原因没有顺利加到客户帐上，点“确认此汇款”可以将此笔汇款金额加到该用户帐上。同时将此订单状态置为已支付成功。</p>
<%
set rs=nothing
conn.close
set conn=nothing%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?