📄 admin_bankrollitem.asp
字号:
<!--#include file="Inc/Const.asp"-->
<%
if Not Cl.TrueChannelPurview(1,ChannelID) then Cl.ShowErr("<li>您无此操作权限！</li>")
const PageSize=20
dim Action,SearchType,Field,Keyword
Action = Trim(request("Action"))
CurrentPage = Cl.GetClng(request("page"))
SearchType = Cl.GetClng(request("SearchType"))
Field = Trim(request("Field"))
Keyword = Trim(request("Keyword"))
FileName = "Admin_BankrollItem.asp?SearchType="&SearchType&"&Field="&Field&"&Keyword="&Keyword&""
Header
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr class="title">
<td height="22" colspan="2" align="center"><b>资 金 明 细 查 询</b></td>
</tr>
<tr class="tdbg" height="30">
<form name="form1" action="Admin_BankrollItem.asp" method="get">
<td>快速查找：
<select name="SearchType" onChange="javascript:submit()">
<option value="0" selected>所有资金明细记录</option>
<option value="1">今 天 的 资金 明细记录</option>
<option value="2">本 周 的 资金 明细记录</option>
<option value="3">本 月 的 资金 明细记录</option>
<option value="4">三个月内的资金明细记录</option>
<option value="5">所有收入 资金 明细记录</option>
<option value="6">所有支出 资金 明细记录</option>
<option value="7">用户<%=Cl.Web_Setting(26)%> 资金 明细记录</option>
<option value="8">现金交易 资金 明细记录</option>
<option value="9">银行汇款 资金 明细记录</option>
<option value="10">在线支付 资金 明细记录</option>
</select> <a href="Admin_BankrollItem.asp">资金明细首页</a></td>
</form>
<form name="form2" method="post" action="Admin_BankrollItem.asp">
<td>高级查询：
<select name="Field" id="Field">
<option value="OrderID" selected>订单ID</option>
<option value="UserID">用户ID</option>
<option value="UserName">用户名</option>
</select>
<input name="Keyword" type="text" id="Keyword" size="20" maxlength="30">
<input type="submit" name="Submit2" value=" 查 询 ">
<input name="SearchType" type="hidden" id="SearchType" value="11">
</td>
</form>
</table>
<br />
<script language="JavaScript" type="text/javascript">
CheckSel('SearchType','<%=SearchType%>');
CheckSel('Field','<%=Field%>');
</script>
<%
Select Case Action
Case "Del"
Call DelBankrollItem()
Case else
Call ItemMain()
End Select
Footer
Sub ItemMain()
SQL = "Select ItemID,UserID,UserName,PayMoney,TrueMoney,PayType,CurrencyType,BankName,ItemType,OrderID,PaymentID,Remark,AddTime From Cl_BankrollItem "
Select Case SearchType
Case 0
SQL=SQL & " Order by ItemID Desc"
Case 1
If IsSqlDataBase=1 Then
SQL=SQL & " where datediff(d,AddTime," & SqlNowString & ")<1 Order by ItemID Desc"
else
SQL=SQL & " where datediff('d',AddTime," & SqlNowString & ")<1 Order by ItemID Desc"
end if
Case 2
If IsSqlDataBase=1 Then
SQL=SQL & " where datediff(week,AddTime," & SqlNowString & ")<10 Order by ItemID Desc"
else
SQL=SQL & " where datediff('w',AddTime," & SqlNowString & ")<10 Order by ItemID Desc"
end if
Case 3
If IsSqlDataBase=1 Then
SQL=SQL & " where datediff(month,AddTime," & SqlNowString & ")<1 Order by ItemID Desc"
else
SQL=SQL & " where datediff('m',AddTime," & SqlNowString & ")<1 Order by ItemID Desc"
end if
Case 4
If IsSqlDataBase=1 Then
SQL=SQL & " where datediff(month,AddTime," & SqlNowString & ")<3 Order by ItemID Desc"
else
SQL=SQL & " where datediff('m',AddTime," & SqlNowString & ")<3 Order by ItemID Desc"
end if
Case 5
SQL=SQL & " where ItemType=1 Order by ItemID Desc"
Case 6
SQL=SQL & " where ItemType=2 Order by ItemID Desc"
Case 7
SQL=SQL & " where PayType=0 Order by ItemID Desc"
Case 8
SQL=SQL & " where PayType=1 Order by ItemID Desc"
Case 9
SQL=SQL & " where PayType=2 Order by ItemID Desc"
Case 10
SQL=SQL & " where PayType=3 Order by ItemID Desc"
Case 11
SQL=SQL & " where "
Select Case Field
Case "OrderID"
SQL=SQL & "OrderID="&Cl.GetClng(Keyword)&" "
Case "UserID"
SQL=SQL & "UserID="&Cl.GetClng(Keyword)&" "
Case "UserName"
SQL=SQL & "UserName Like '%"&Keyword&"%' "
Case Else
SQL=SQL & "OrderID="&Cl.GetClng(Keyword)&" "
End Select
SQL=SQL & " Order by ItemID Desc"
Case Else
SQL=SQL & " Order by ItemID Desc"
End Select
Set rs= Server.CreateObject("ADODB.Recordset")
OpenConn : rs.open SQL,Conn,1,1
if rs.eof and rs.bof then
TotalPut=0
response.write "<p>没有任何符合条件的资金记录！</p>"
rs.close:set rs=Nothing : Exit Sub
end if
TotalPut=rs.recordcount
if (TotalPut mod PageSize)=0 then
TotalPages = TotalPut \ PageSize
else
TotalPages = TotalPut \ PageSize + 1
end if
if CurrentPage > TotalPages then CurrentPage=TotalPages
if CurrentPage < 1 then CurrentPage=1
rs.move (CurrentPage-1)*PageSize
SQL=rs.GetRows(PageSize)
rs.close:set rs=Nothing
Dim PayMoneyP,PayMoneyA,TrueMoneyP,TrueMoneyA
PayMoneyA = Cl.Execute("Select Sum(PayMoney) From Cl_BankrollItem")(0)
TrueMoneyA = Cl.Execute("Select Sum(TrueMoney) From Cl_BankrollItem")(0)
PayMoneyP=0 : TrueMoneyP=0
%>
<table width="100%" border="0" cellpadding="2" cellspacing="1" class="border" align="center">
<tr align="center" class="title">
<td width="30">选择</td>
<td width="100">用户名</td>
<td width="100">交易时间</td>
<td width="40">方式</td>
<td width="80">产生金额</td>
<td width="80">实际金额</td>
<td width="50">币种</td>
<td width="60">银行名称</td>
<td>备注/说明</td>
<td width="100">操作</td>
</tr>
<%For i=0 To Ubound(SQL,2)
PayMoneyP = PayMoneyP+SQL(3,i)
TrueMoneyP = TrueMoneyP+SQL(4,i)
%>
<tr align="center" class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td><input name="ItemID" type="checkbox" onclick="unselectall()" id="ItemID" value="<%=SQL(0,i)%>"></td>
<td><a href="Admin_User.asp?Action=Modify&UserID=<%=SQL(1,i)%>"><%=SQL(2,i)%></a></td>
<td><%=SQL(12,i)%></td>
<td><%
if SQL(8,i)=0 then
Response.write "<font color=blue>收入</font>"
else
Response.write "<font color=red>支出</font>"
end if
%></td>
<td align="right"><%=Cl.FormatNum(SQL(3,i),2)%></td>
<td align="right"><font color="blue"><%=Cl.FormatNum(SQL(4,i),2)%></font></td>
<td><%
if SQL(6,i)=0 then
Response.write "<font color=blue>人民币</font>"
else
Response.write "<font color=red>其 它</font>"
end if
%></td>
<td><%=SQL(7,i)%></td>
<td><span title="<%=SQL(11,i)%>"><%=Cl.GotTopic(SQL(11,i),10)%></span></td>
<td align="center">
<%if SQL(9,i)>0 then%>
<a href="Admin_Order.asp?Action=ShowOrder&OrderID=<%=SQL(9,i)%>">查看订单</a>
<%elseif SQL(10,i)>0 then%>
<a href="Admin_Payment.asp?SearchType=8&Field=PaymentID&Keyword=<%=SQL(10,i)%>">支付记录</a>
<%end if%>
<a href="Admin_BankrollItem.asp?Action=Del&ItemID=<%=SQL(0,i)%>">删除</a>
</td>
</tr>
<%Next%>
<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td colspan="4" align="right">本页合计：</td>
<td align="right">￥<%=PayMoneyP%></td>
<td align="right">￥<%=TrueMoneyP%></td>
<td colspan="4"> </td>
</tr>
<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td colspan="4" align="right" style="height: 23px">总计金额：</td>
<td align="right" style="height: 23px">￥<%=PayMoneyA%></td>
<td align="right" style="height: 23px">￥<%=TrueMoneyA%></td>
<td colspan="4" style="height: 23px"> </td>
</tr>
<%
Response.write Cl.ShowPage(FileName,TotalPut,PageSize,"条","记录")
%>
</table>
<%
SQL=Empty
End Sub
Sub DelBankrollItem()
Dim ItemID
ItemID=Cl.GetClng(Request("ItemID"))
if ItemID=0 then
Cl.ShowErr("<br /><li>请先选择要删除的订单ID！</li>")
end if
Cl.Execute("delete from Cl_BankrollItem where ItemID = " & ItemID & " ")
Cl.SaveAdminLog
Call Cl.OutMsg(0,"操作成功，所选订单已被删除！",ComeUrl)
End Sub
%>
<!--
'┌───────────────────────────────────────────────────────┐
'│ │
'│ CreateLive CMS Version 4.0 │
'│ Powered by Aspoo.CN │
'│ │
'│ 邮箱: support@aspoo.cn Info@aspoo.cn │
'│ ＱＱ: 3315263 596197794 │
'│ 网站: www.aspoo.cn www.aspoo.com │
'│ 论坛: bbs.aspoo.cn bbs.aspoo.com │
'│ │
'│ Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved. │
'└───────────────────────────────────────────────────────┘
'-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -