user_payonline.asp

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

<!--#include file="Cook.asp"-->
<%
Call WM_Content
Sub WM_Content()
    Dim i
Content = Content & PageTop()
Content = Content & UserPath(",<a href=User_PayOnline.asp>在线支付管理</a>")

    Content = Content & "<table width='100%' cellpadding=0 cellspacing=1 class=td1>" & vbCrLf
    Content = Content & "<form name=form1 method=post action=User_PayOnline.asp><tr class=td2><td colspan=2>&nbsp;<a href=User_PayOnline.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 & "</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)
	
    Set Rs = Server.CreateObject("ADODB.RecordSet")
	
         Content = Content & "<table width='100%' cellpadding=0 cellspacing=1 class=td1>" & vbCrLf
         Content = Content & "<tr><td Colspan=6 class=td4><strong>在线支付管理</strong></td></tr>" & vbCrLf
         Content = Content & "<tr Class=td3 align=center>" & vbCrLf
         Content = Content & "<td width='17%'>支付号/订单号</td>" & vbCrLf
         Content = Content & "<td width='10%'>汇款金额</td>" & vbCrLf
         Content = Content & "<td width='10%'>实转金额</td>" & vbCrLf
         Content = Content & "<td width='14%'>汇款时间</td>" & vbCrLf
         Content = Content & "<td width='6%'>结果</td>" & vbCrLf
         Content = Content & "<td width='*'>备注</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_User = '"&MemName&"'" & SQL & " Order By WM_ID Desc", Conn, 1, 1
         If Rs.EOF Then
           Content = Content & "<tr Class=td3 align=center><td align=center colspan=6>没有内容</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>" & 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 align=left>" & Rs(6) & "</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=6 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=6 align=Right>本页支付失败合计：汇款￥" & WRMPS.GetFormatNumber(N_Money, 2) & "　实转￥" & WRMPS.GetFormatNumber(N_Money_P, 2) & "</td></tr>" & vbCrLf
         Content = Content & "<tr Class=td2><td colspan=6 align=Right>本页支付总计：汇款￥" & WRMPS.GetFormatNumber(Money, 2) & "　实转￥" & WRMPS.GetFormatNumber(Money_P, 2) & "</td></tr>" & vbCrLf
         URLParameter = "Key=" & WRMPS.CheckStr(Request("Key"), 1)
         Content = Content & "<tr><td colspan=6 Class=td5 align=right>&nbsp;" & WRMPS.GetPageList(URLParameter, ListNum, Rs.RecordCount, Page) & "</td></tr>" & vbCrLf
         End If
         Rs.Close
         Content = Content & "</table>" & vbCrLf
         
		 Content = Content & PageButtom()
  Set Rs = Nothing
  Call DBConnEnd()
  Call ClassEnd()
  Response.write Content
End Sub

%>