📄 admin_bankroll.asp

📁 个人网站比较简短
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!--#include file="Admin_Common.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************

Const NeedCheckComeUrl = True   '是否需要检查外部访问

Const PurviewLevel = 2      '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0   '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "Bankroll"   '其他权限

Private sqlBankroll, Querysql, strResultTips

strFileName = "Admin_Bankroll.asp?SearchType=" & SearchType & "&Field=" & strField & "&Keyword=" & Keyword
If Action = "outExcel" Then
    Call GetSqlStr
    Call outHead2
    Call outExcel
ElseIf Action = "ShowSearchForm" Then
    Call outhead
    Call ShowSearchForm
ElseIf Action = "ShowDetail" Then
    Call outhead
    Call ShowDetail
Else
    Call GetSqlStr
    Call outhead
    Call main
    If FoundErr = True Then
        Call WriteErrMsg(ErrMsg, ComeUrl)
    End If
End If
Response.Write "</body></html>"
Call CloseConn

Sub outhead()
    Response.Write "<html><head><title>资金明细查询</title>"
    Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
    Response.Write "<link rel='stylesheet' href='Admin_Style.css' type='text/css'>"
    Response.Write "</head>"
    Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>"
    Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' Class='border'>"
    Call ShowPageTitle("资 金 明 细 查 询", 10205)
    Response.Write "    <tr class='tdbg' height='30'> "
    Response.Write "  <form name='form1' action='Admin_Bankroll.asp' method='get'>"
    Response.Write "      <td>快速查找："
    Response.Write "      <select size=1 name='SearchType' onChange='javascript:submit()'>"
    Response.Write "          <option value='0'"
    If SearchType = 0 Then Response.Write " selected"
    Response.Write ">所有资金明细记录</option>"
    Response.Write "          <option value='1'"
    If SearchType = 1 Then Response.Write " selected"
    Response.Write ">最近10天内的新资金明细记录</option>"
    Response.Write "          <option value='2'"
    If SearchType = 2 Then Response.Write " selected"
    Response.Write ">最近一月内的新资金明细记录</option>"
    Response.Write "          <option value='3'"
    If SearchType = 3 Then Response.Write " selected"
    Response.Write ">所有收入记录</option>"
    Response.Write "          <option value='4'"
    If SearchType = 4 Then Response.Write " selected"
    Response.Write ">所有支出记录</option>"
    Response.Write "        </select>&nbsp;&nbsp;&nbsp;&nbsp;<a href='Admin_Bankroll.asp'>资金明细首页</a></td>"
    Response.Write "  </form>"
    Response.Write "<form name='form2' method='post' action='Admin_Bankroll.asp'>"
    Response.Write "    <td>高级查询："
    Response.Write "      <select name='Field' id='Field'>"
    Response.Write "      <option value='ClientName' selected>客户姓名</option>"
    Response.Write "      <option value='UserName'>用户名</option>"
    Response.Write "      <option value='DateAndTime'>交易时间</option>"
    Response.Write "      <option value='BankName'>银行名称</option>"
    Response.Write "      </select>"
    Response.Write "      <input name='Keyword' type='text' id='Keyword' size='20' maxlength='30'>"
    Response.Write "      <input type='submit' name='Submit2' value=' 查 询 '>"
    Response.Write "      <input name='SearchType' type='hidden' id='SearchType' value='10'>"
    Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;<a href='Admin_Bankroll.asp?Action=ShowSearchForm'><b>复杂查询</b></a>"
    Response.Write " </td>"
    Response.Write "</form>"
    Response.Write "</table>"
    Response.Write "<br>"
End Sub

Sub outHead2()
    Response.Write "<html><head>" & vbCrLf
    Response.ContentType = "application/vnd.ms-excel" & vbCrLf
    Response.AddHeader "Content-Disposition", "attachment"
    Response.Write "<meta http-equiv=""Content-Language"" content=""zh-cn"">" & vbCrLf
    Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
    Response.Write "<title>资金明细表</title>" & vbCrLf
    Response.Write "<body>" & vbCrLf
End Sub

Sub ShowSearchForm()
    Call PopCalendarInit
    Response.Write "<form method='Get' name='formSearch' action='Admin_Bankroll.asp'>"
    Response.Write "<table width='100%' border='0' cellpadding='2' cellspacing='1' class='border'>"
    Response.Write "<tr class='title' align='center'><td colspan='6'>资 金 明 细 复 杂 查 询</td></tr>"
    Response.Write "<tr class='tdbg'><td width='120' class='tdbg5' align='right'>ＩＤ范围：</td><td>起始ＩＤ<input type='text' name='BeginID'  size='10' value=''>&nbsp;终止ＩＤ<input type='text' name='EndID'  size='10' value=''></td></tr>"
    Response.Write "<tr class='tdbg'><td width='120' class='tdbg5' align='right'>日期范围：</td><td>起始日期<input type='text' name='BeginDate' id='BeginDate' size='10' maxlength='10'><a style='cursor:hand;' onClick='PopCalendar.show(document.formSearch.BeginDate, ""yyyy-mm-dd"", null, null, null, ""11"");'><img src='Images/Calendar.gif' border='0' Style='Padding-Top:10px' align='absmiddle'></a>&nbsp;结束日期<input type='text' name='EndDate' id='EndDate' size='10' maxlength='10'><a style='cursor:hand;' onClick='PopCalendar.show(document.formSearch.EndDate, ""yyyy-mm-dd"", null, null, null, ""11"");'><img src='Images/Calendar.gif' border='0' Style='Padding-Top:10px' align='absmiddle'></a></td></tr>"
    Response.Write "<tr class='tdbg'><td width='120' class='tdbg5' align='right'>金额范围：</td><td><input type='text' name='MinMoney'  size='10' value=''> 至 <input type='text' name='MaxMoney'  size='10' value=''></td></tr>"
    Response.Write "<tr class='tdbg'><td width='120' class='tdbg5' align='right'>客户名称：</td><td><input type='text' name='ClientName'  size='30' value=''></td></tr>"
    Response.Write "<tr class='tdbg'><td width='120' class='tdbg5' align='right'>用户名：</td><td><input type='text' name='UserName'  size='30' value=''></td></tr>"
    Response.Write "<tr class='tdbg'><td width='120' class='tdbg5' align='right'>交易方式：</td><td>"
    Response.Write "<input type='radio' name='MoneyType' value='1'>现金<input type='radio' name='MoneyType' value='2'>银行汇款<input type='radio' name='MoneyType' value='3'>在线支付<input type='radio' name='MoneyType' value='4'>虚拟货币<input type='radio' name='MoneyType' checked value='0'>所有方式"
    Response.Write "</td></tr>"
    Response.Write "<tr class='tdbg'><td width='120' class='tdbg5' align='right'>资金收支方式：</td><td>"
    Response.Write "<input type='radio' name='Income_Payout' value='1'>收入<input type='radio' name='Income_Payout' value='2'>支出<input type='radio' name='Income_Payout' checked value='0'>所有方式"
    Response.Write "</td></tr>"
    Response.Write "<tr class='tdbg'><td width='120' class='tdbg5' align='right'>备注/说明：</td><td><input type='text' name='Remark'  size='30' value=''></td></tr>"
    Response.Write "<tr class='tdbg' height='40' align='center'><td colspan='6'><input name='SearchType' type='hidden' id='SearchType' value='99'><input name='Action' type='hidden' value='Manage'><input type='submit' name='Submit'  value=' 查 询 '> "
    Response.Write "<input type='submit' name='Submit2'  value='导出到EXCEL' onclick=""document.formSearch.Action.value='outExcel';"">"
    Response.Write "</td></tr></table></form>"

End Sub

Sub GetSqlStr()
    sqlBankroll = "select B.*,C.ShortedForm as ClientName from PE_BankrollItem B left join PE_Client C on B.ClientID=C.ClientID "

    Querysql = " where 1=1"
    Select Case SearchType
        Case 0
            strResultTips = "所有资金明细记录"
        Case 1
            Querysql = Querysql & " And datediff(" & PE_DatePart_D & ",B.DateAndTime," & PE_Now & ")<10 "
            strResultTips = "最近10天内的新资金明细记录"
        Case 2
            Querysql = Querysql & " And datediff(" & PE_DatePart_M & ",B.DateAndTime," & PE_Now & ")<1 "
            strResultTips = "最近一月内的新资金明细记录"
        Case 3
            Querysql = Querysql & " And B.Money>0 "
            strResultTips = "所有收入记录"
        Case 4
            Querysql = Querysql & " And B.Money<0 "
            strResultTips = "所有支出记录"
        Case 10
            If Keyword = "" Then
                Querysql = Querysql & ""
                strResultTips = "所有资金明细记录"
            Else
                Select Case strField
                Case "ClientName"
                    Querysql = Querysql & " And C.ClientName like '%" & Keyword & "%' "
                    strResultTips = "客户姓名中含有“ <font color=red>" & Keyword & "</font> ”的资金明细记录"
                Case "UserName"
                    Querysql = Querysql & " And B.UserName like '%" & Keyword & "%' "
                    strResultTips = "用户名中含有“ <font color=red>" & Keyword & "</font> ”的资金明细记录"
                Case "BankName"
                    Querysql = Querysql & " And B.Bank='" & Keyword & "' "
                    strResultTips = "<font color=red>" & Keyword & "</font> 的资金明细记录"
                Case "DateAndTime"
                    If IsDate(Keyword) = True Then
                        Querysql = Querysql & " And DateDiff(" & PE_DatePart_D & ",B.DateAndTime,'" & Keyword & "')=0 "
                        strResultTips = "交易时间为 <font color=red>" & Keyword & "</font> 的资金明细记录"
                    Else
                        FoundErr = True
                        ErrMsg = ErrMsg & "<li>查询的交易时间格式不正确！</li>"
                    End If
                End Select
            End If
    Case 99
        strResultTips = "销售明细复杂查询结果"
        Dim BeginID, EndID, BeginDate, EndDate, MinMoney, MaxMoney, ClientName, UserName, MoneyType, Income_Payout, Remark
        BeginID = PE_CLng(Trim(Request("BeginID")))
        EndID = PE_CLng(Trim(Request("EndID")))
        BeginDate = Trim(Request("BeginDate"))
        EndDate = Trim(Request("EndDate"))
        MinMoney = PE_CDbl(Trim(Request("MinMoney")))
        MaxMoney = PE_CDbl(Trim(Request("MaxMoney")))
        ClientName = ReplaceBadChar(Trim(Request("ClientName")))
        UserName = ReplaceBadChar(Trim(Request("UserName")))
        MoneyType = PE_CLng(Trim(Request("MoneyType")))
        Income_Payout = PE_CLng(Trim(Request("Income_Payout")))
        Remark = ReplaceBadChar(Trim(Request("Remark")))

        strFileName = "Admin_Bankroll.asp?SearchType=99&BeginID=" & BeginID & "&EndID=" & EndID & "&BeginDate=" & BeginDate & "&EndDate=" & EndDate & "&MinMoney=" & MinMoney & "&MaxMoney=" & MaxMoney
        strFileName = strFileName & "&ClientName=" & ClientName
        strFileName = strFileName & "&UserName=" & UserName & "&MoneyType=" & MoneyType
        strFileName = strFileName & "&Income_Payout=" & Income_Payout & "&Remark=" & Remark

        If BeginID > 0 Then
            Querysql = Querysql & " And B.ItemID>=" & BeginID
        End If
        If EndID > 0 Then
            Querysql = Querysql & " And B.ItemID<=" & EndID
        End If

        If BeginDate <> "" Then
            BeginDate = PE_CDate(BeginDate)
            If SystemDatabaseType = "SQL" Then
                Querysql = Querysql & " And B.DateAndTime>='" & BeginDate & "'"
            Else
                Querysql = Querysql & " And B.DateAndTime>=#" & BeginDate & "#"
            End If
        End If
        If EndDate <> "" Then
            EndDate = PE_CDate(EndDate)
            If SystemDatabaseType = "SQL" Then
                Querysql = Querysql & " And B.DateAndTime<='" & EndDate & "'"
            Else
12 3 下一页
💿 文件大小 7095 K
👤 上传用户 foreverlovely
📂 所属分类家庭/个人应用
🏷️ 相关标签

#网站 #比较
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -