wm.finance_pay.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="WM.Sys_Cook.asp"-->
<%
If CheckAdminFlag("FinanceSee") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
Call WM_Content
Sub WM_Content()
    Dim ID,i
    Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
    Content = Content & "<form name=form1 method=post action=WM.Finance_Pay.asp><tr class=td2><td colspan=2>&nbsp;<a href=WM.Finance_Pay.asp>管理首页</a> | <a href=?SqlKey=1>支付成功</a> | <a href=?SqlKey=2>支付失败</a>"
    Content = Content & "　　<input name='Word' type='text' style='width:150' maxlength='50' value='" & WRMPS.CheckStr(Request("Word"), 0) & "'> "
    Content = Content & "<select name=Table align=absmiddle>"
    Content = Content & "<option value=WM_PayNum " & WRMPS.GetCheckVer("WM_PayNum", WRMPS.CheckStr(Request("Table"), 0), 0) & ">支付号</option>"
    Content = Content & "<option value=WM_OrderNum " & WRMPS.GetCheckVer("WM_OrderNum", WRMPS.CheckStr(Request("Table"), 0), 0) & ">订单号</option>"
    Content = Content & "<option value=WM_User " & WRMPS.GetCheckVer("WM_User", WRMPS.CheckStr(Request("Table"), 0), 0) & ">用户名</option>"
    Content = Content & "</select> <input type=submit name='Submit' value=' 查询 ' >"
    Content = Content & "</td></tr></form></Table>" & vbCrLf

    Dim PageContent, Y_Money, N_Money, Money, Y_Money_P, N_Money_P, Money_P, SqlKey
    Page = WRMPS.CheckStr(Request("Page"), 1)
    SqlKey = WRMPS.CheckStr(Request("SqlKey"), 1)
    If SqlKey = "" Then SqlKey = 9
    ID = WRMPS.CheckStr(Request("ID"), 0)
    
	Call DBConnBegin()
    Set Rs = Server.CreateObject("ADODB.RecordSet")
	
	Select Case WRMPS.CheckStr(Request("Action"), 0)      
      Case "Del"
        Conn.Execute ("delete From WM_OnlinePay where WM_Outcome =0 and WM_ID=" & ID & "")
        Response.Redirect "?Page=" & Page & "&SqlKey=" & SqlKey & "&Word=" & WRMPS.CheckStr(Request("Word"), 0) & "&Table=" & WRMPS.CheckStr(Request("Table"), 0)

      Case "SaveAll"
         If ID <> "" Then
           ID = Replace(ID, "&nbsp;", "")
           ID = Split(ID, ",")
           For i = 0 To UBound(ID)
            If WRMPS.CheckStr(Request("SaveType"), 0) = "删除" Then
              Conn.Execute ("Delete From WM_OnlinePay where WM_Outcome =0 and WM_ID=" & ID(i) & "")
            End If
           Next
         End If
        Response.Redirect "?Page=" & Page & "&SqlKey=" & SqlKey & "&Word=" & WRMPS.CheckStr(Request("Word"), 0) & "&Table=" & WRMPS.CheckStr(Request("Table"), 0)
      
      Case Else
         Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
         Content = Content & "<tr class=td4><td Colspan=9><strong>在线支付明细</strong></td></tr>" & vbCrLf
         Content = Content & "<form name='addform' method='post' Action='?Action=SaveAll&SqlKey=" & SqlKey & "&Word=" & WRMPS.CheckStr(Request("Word"), 0) & "&Table=" & WRMPS.CheckStr(Request("Table"), 0) & "'>" & vbCrLf
         Content = Content & "<tr Class=td3 align=center>" & vbCrLf
         Content = Content & "<td width='3%'></td>" & vbCrLf
         Content = Content & "<td width='17%'>支付号/订单号</td>" & vbCrLf
         Content = Content & "<td width='7%'>汇款金额</td>" & vbCrLf
         Content = Content & "<td width='7%'>实转金额</td>" & vbCrLf
         Content = Content & "<td width='14%'>汇款时间</td>" & vbCrLf
         Content = Content & "<td width='6%'>结果</td>" & vbCrLf
         Content = Content & "<td width='10%'>支付用户</td>" & vbCrLf
         Content = Content & "<td width='*'>备注</td>" & vbCrLf
         Content = Content & "<td width='5%'>操作</td>" & vbCrLf
         Content = Content & "</tr>" & vbCrLf
         Y_Money = 0
         N_Money = 0
         Money = 0
         Y_Money_P = 0
         N_Money_P = 0
         Money_P = 0
         Select Case SqlKey
           Case 1
             SQL = " and WM_Outcome=1"
           Case 2
             SQL = " and WM_Outcome=0"
           Case 9
             SQL = ""
         End Select
         If WRMPS.CheckStr(Request("Word"), 0) <> "" Then
           SQL = SQL & " and " & WRMPS.CheckStr(Request("Table"), 0) & "='" & WRMPS.CheckStr(Request("Word"), 0) & "'"
         End If
         Rs.Open "Select WM_PayNum,WM_OrderNum,WM_Price,WM_PayPrice,WM_Time,WM_Outcome,WM_Remark,WM_User,WM_ID From WM_OnlinePay Where WM_ID Is Not Null" & SQL & " Order By WM_ID Desc", Conn, 1, 1
         If Rs.EOF Then
           Content = Content & "<tr Class=td3 align=center><td align=center colspan=9>没有内容</td></tr>" & vbCrLf
         Else
          ListNum = 10
          Rs.PageSize = ListNum
          If Page = "" Or Page < 1 Then Page = 1
          Rs.AbsolutePage = Page
          i = 0
          Do While Not Rs.EOF And i < ListNum
           Content = Content & "<tr Class=td2 align=center>" & vbCrLf
           Content = Content & "<td><input type='checkbox' name='ID' value=" & Rs(8) & " style='border:0'></td>" & vbCrLf
           Content = Content & "<td>" & Rs(0) & "<br><font color=Font2>" & Rs(1) & "</font></td>" & vbCrLf
           Content = Content & "<td align=right>" & WRMPS.GetFormatNumber(Rs(2), 2) & "</td>" & vbCrLf
           Content = Content & "<td align=right>" & WRMPS.GetFormatNumber(Rs(3), 2) & "</td>" & vbCrLf
           Content = Content & "<td>" & Rs(4) & "</td>" & vbCrLf
           Content = Content & "<td>" & Replace(Replace(Rs(5), 0, "失败"), 1, "<font color=Font2>成功</font>") & "</td>" & vbCrLf
           Content = Content & "<td>" & Rs(7) & "</td>" & vbCrLf
           Content = Content & "<td align=left>" & Rs(6) & "</td>" & vbCrLf
           Content = Content & "<td>"
           Content = Content & "<a href=?Action=Del&SqlKey=" & SqlKey & "&ID=" & Rs(8) & "&Page=" & Page & "&Word=" & WRMPS.CheckStr(Request("Word"), 0) & "&Table=" & WRMPS.CheckStr(Request("Table"), 0) & " onclick=""return confirm('确定删除？');"">删除</a></td>" & vbCrLf
           Content = Content & "</tr>" & vbCrLf
           If Rs(5) = 0 Then
             N_Money = N_Money + Rs(2)
             N_Money_P = N_Money_P + Rs(3)
           ElseIf Rs(5) = 1 Then
             Y_Money = Y_Money + Rs(2)
             Y_Money_P = Y_Money_P + Rs(3)
           End If
           Money = Money + Rs(2)
           Money_P = Money_P + Rs(3)
         Rs.MoveNext
         i = i + 1
         Loop
         Content = Content & "<tr Class=td2><td colspan=9 align=Right class=Font2>本页支付成功合计：汇款￥" & WRMPS.GetFormatNumber(Y_Money, 2) & "　实转￥" & WRMPS.GetFormatNumber(Y_Money_P, 2) & "</td></tr>" & vbCrLf
         Content = Content & "<tr Class=td2><td colspan=9 align=Right>本页支付失败合计：汇款￥" & WRMPS.GetFormatNumber(N_Money, 2) & "　实转￥" & WRMPS.GetFormatNumber(N_Money_P, 2) & "</td></tr>" & vbCrLf
         Content = Content & "<tr Class=td2><td colspan=9 align=Right>本页支付总计：汇款￥" & WRMPS.GetFormatNumber(Money, 2) & "　实转￥" & WRMPS.GetFormatNumber(Money_P, 2) & "</td></tr>" & vbCrLf
         URLParameter = "Key=" & WRMPS.CheckStr(Request("Key"), 1)
         Content = Content & "<tr Class=td3><td colspan=5>&nbsp;" & GetAdminPageList(URLParameter, ListNum, Rs.RecordCount, Page) & "</td><td align=right colspan=4><input name='chkall' type='checkbox' id='chkall' value='select' onclick=""CheckAll(this.form)"" style='border:0'>全选　<input name='Page' type='hidden' value='" & Page & "'><select name='SaveType'><option value='删除'>删除</option></select>　<input type=submit name='submit' value='批量操作'>&nbsp;</td></tr>" & vbCrLf
         End If
         Rs.Close
         Content = Content & "<tr><td colspan=9 class=td2> <b>注意事项：</b><br>" & vbCrLf
         Content = Content & "① 支付成功的记录将不能删除，以便日后查正。</td></tr>" & vbCrLf
         Content = Content & "</form></table>" & vbCrLf
      
    End Select
	
  Set Rs = Nothing
  Call DBConnEnd()
  Call ClassEnd()
  Response.write Content
  Call GetBottom()
End Sub

%>