admin_bankroll.asp

个人网站比较简短

        Response.Write "          <td width='15%' class='tdbg5' align='right'>客户名称：</td>"
        Response.Write "          <td>"
        Set crs = Conn.Execute("select ClientName from PE_Client where ClientID=" & PE_Clng(rs("ClientID")) & "")
        If Not (crs.BOF And crs.EOF) Then
            Response.Write "<a href='Admin_Client.asp?Action=Show&ClientID=" & rs("ClientID") & "'>" & crs("ClientName") & "</a>"
        End If
        crs.Close
        Set crs = Nothing
        Response.Write "          </td>"
        Response.Write "        </tr>"
        Response.Write "        <tr class='tdbg' valign='top'>"
        Response.Write "          <td width='15%' class='tdbg5' align='right'>交易方式：</td>"
        Response.Write "    <td width='60' align='center'>"
        Select Case rs("MoneyType")
        Case 1
            Response.Write "现金"
        Case 2
            Response.Write "银行汇款"
        Case 3
            Response.Write "在线支付"
        Case 4
            Response.Write "虚拟货币"
        End Select
        Response.Write "</td>"
        Response.Write "        </tr>"
        Response.Write "        <tr class='tdbg'>"
        Response.Write "          <td width='15%' class='tdbg5' align='right'>币种：</td>"
        Response.Write "    <td width='50' align='center'>"
        Select Case rs("CurrencyType")
        Case 1
            Response.Write "人民币"
        Case 2
            Response.Write "美元"
        Case 3
            Response.Write "其他"
        End Select
        Response.Write "</td>"
        Response.Write "        </tr>"
        Response.Write "        <tr class='tdbg'>"
        Response.Write "          <td width='15%' class='tdbg5' align='right'>金额：</td>"
        Response.Write "          <td>" & FormatNumber(rs("Money"), 2, vbTrue, vbFalse, vbTrue) & "</td>"
        Response.Write "        </tr>"
        Response.Write "        <tr class='tdbg'>"
        Response.Write "          <td width='15%' class='tdbg5' align='right'>银行名称：</td>"
        Response.Write "          <td>"
        If rs("MoneyType") = 3 Then
            Response.Write GetPayOnlineProviderName(rs("eBankID"))
        Else
            Response.Write rs("Bank")
        End If
        Response.Write "</td>"
        Response.Write "        </tr>"
        Response.Write "        <tr class='tdbg'>"
        Response.Write "          <td width='15%' class='tdbg5' align='right'>关联订单：</td>"
        Response.Write "          <td>"
        Set crs = Conn.Execute("select OrderFormNum from PE_OrderForm where OrderFormID=" & rs("OrderFormID") & "")
        If Not (crs.BOF And crs.EOF) Then
            Response.Write "<a href='Admin_Order.asp?Action=ShowOrder&OrderFormID=" & rs("OrderFormID") & "'>" & crs("OrderFormNum") & "</a>"
        End If
        crs.Close
        Set crs = Nothing
        Response.Write "</td>"
        Response.Write "        </tr>"
        Response.Write "        <tr class='tdbg'>"
        Response.Write "          <td width='15%' class='tdbg5' align='right'>备注/说明：</td>"
        Response.Write "          <td colspan='3'>" & (rs("Remark")) & "</td>"
        Response.Write "        </tr>"
        Response.Write "        <tr class='tdbg'>"
        Response.Write "          <td width='15%' class='tdbg5' align='right'>录入者：</td>"
        Response.Write "          <td>" & rs("Inputer") & "</td>"
        Response.Write "        </tr>"
        Response.Write "        <tr class='tdbg'>"
        Response.Write "          <td width='15%' class='tdbg5' align='right'>IP:</td>"
        Response.Write "          <td>" & rs("IP") & "</td>"
        Response.Write "        </tr>"
        Response.Write "    </table>"
    End If
    Response.Write "<br><div align='center'><input type='button' name='button' value=' 返 回 ' onclick='javascript:history.go(-1)'></div>"
End Sub

Sub outExcel()
    Dim BeginDate, EndDate, BeginID, EndID, SelectType
    Dim Sqlout, Rsout

    If SearchType <> 99 Then
        SelectType = Trim(Request("SelectType"))
        BeginDate = Trim(Request("BeginDate"))
        If BeginDate = "" Then
            BeginDate = "1900-1-1"
        Else
            BeginDate = ReplaceBadChar(BeginDate)
        End If
        EndDate = Trim(Request("EndDate"))
        If EndDate = "" Then
            EndDate = FormatDateTime(Date, 2)
        Else
            EndDate = ReplaceBadChar(EndDate)
        End If
        BeginID = PE_CLng(Trim(Request("BeginID")))
        EndID = PE_CLng(Trim(Request("EndID")))
        If IsDate(BeginDate) = False Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>请输入正确的起始日期！</li>"
        End If
        If IsDate(EndDate) = False Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>请输入正确的结束日期！</li>"
        End If
        If FoundErr = True Then
            Exit Sub
        End If
        
        Sqlout = "select B.*,C.ShortedForm as ClientName from PE_BankrollItem B left join PE_Client C on B.ClientID=C.ClientID"
        Select Case SelectType
        Case "Date"
            If SystemDatabaseType = "SQL" Then
                Sqlout = Sqlout & " where B.DateAndTime Between '" & BeginDate & "' and '" & EndDate & "'"
            Else
                Sqlout = Sqlout & " where B.DateAndTime Between #" & BeginDate & "# and #" & EndDate & "#"
            End If
        Case "ID"
            If BeginID <> 0 And EndID <> 0 Then
                Sqlout = Sqlout & " where B.ItemID Between " & BeginID & " and " & EndID
            End If
        End Select
        Sqlout = Sqlout & " order by B.ItemID"
    Else
        Sqlout = sqlBankroll & Querysql & " order by B.ItemID desc"
    End If

    Set Rsout = Conn.Execute(Sqlout)
    If Rsout.BOF And Rsout.EOF Then
        Response.Write "无指定的明细单！"
    Else
        Response.Write "<table border=""0"" cellspacing=""1"" style=""border-collapse: collapse;table-layout:fixed"" id=""AutoNumber1"" height=""32"">" & vbCrLf
        Response.Write "<tr>" & vbCrLf
        Response.Write "<td align=""center""><span lang=""zh-cn""><b>客户姓名</b></span></td>" & vbCrLf
        Response.Write "<td align=""center""><span lang=""zh-cn""><b>交易时间</b></span></td>" & vbCrLf
        Response.Write "<td align=""center""><span lang=""zh-cn""><b>交易方式</b></span></td>" & vbCrLf
        Response.Write "<td align=""center""><span lang=""zh-cn""><b>币种</b></span></td>" & vbCrLf
        Response.Write "<td align=""center""><span lang=""zh-cn""><b>收入金额</b></span></td>" & vbCrLf
        Response.Write "<td align=""center""><span lang=""zh-cn""><b>支出金额</b></span></td>" & vbCrLf
        Response.Write "<td align=""center""><span lang=""zh-cn""><b>银行名称</b></span></td>" & vbCrLf
        Response.Write "<td align=""center""><span lang=""zh-cn""><b>备注/说明</b></span></td>" & vbCrLf
        Response.Write "</tr>" & vbCrLf
        Do While Not Rsout.EOF
            Response.Write "<tr>" & vbCrLf
            Response.Write "<td align=""center""><span lang=""zh-cn"">" & Rsout("ClientName") & "</span></td>" & vbCrLf
            Response.Write "<td align=""center""><span lang=""zh-cn"">" & FormatDateTime(Rsout("DateAndTime"), 2) & "</span></td>" & vbCrLf
            Response.Write "<td align=""center""><span lang=""zh-cn"">"
            Select Case Rsout("MoneyType")
            Case 1
                Response.Write "现金"
            Case 2
                Response.Write "银行汇款"
            Case 3
                Response.Write "资金明细"
            Case 4
                Response.Write "虚拟货币"
            End Select
            Response.Write "</span></td>" & vbCrLf
            Response.Write "<td align=""center""><span lang=""zh-cn"">"
            Select Case Rsout("CurrencyType")
            Case 1
                Response.Write "人民币"
            Case 2
                Response.Write "美元"
            Case 3
                Response.Write "其他"
            End Select
            Response.Write "</span></td>" & vbCrLf
            Response.Write "<td align=""center""><span lang=""zh-cn"">"
            If Rsout("Money") > 0 Then Response.Write FormatNumber(Rsout("Money"), 2, vbTrue, vbFalse, vbTrue)
            Response.Write "</span></td>" & vbCrLf
            Response.Write "<td align=""center""><span lang=""zh-cn"">"
            If Rsout("Money") < 0 Then Response.Write FormatNumber(Abs(Rsout("Money")), 2, vbTrue, vbFalse, vbTrue)
            Response.Write "</span></td>" & vbCrLf
            Response.Write "<td align=""center""><span lang=""zh-cn"">"
            If Rsout("MoneyType") = 3 Then
                Select Case Rsout("eBankID")
                Case 1
                    Response.Write "网银在线"
                Case 2
                    Response.Write "中国在线支付网"
                Case 3
                    Response.Write "上海环迅"
                End Select
            Else
                Response.Write Rsout("Bank")
            End If
            Response.Write "</span></td>" & vbCrLf
            Response.Write "<td align=""center""><span lang=""zh-cn"">" & Rsout("Remark") & "</span></td>" & vbCrLf
            Response.Write "</tr>" & vbCrLf
            Rsout.MoveNext
        Loop
    End If
    Rsout.Close
    Set Rsout = Nothing
End Sub
%>