⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 user_payment.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
字号:
🔍 
<%
Option Explicit
Response.buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="../Inc/Const.asp"-->
<!--#Include File="User_CheckPurview.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="User_Style.css" type="text/css" rel="stylesheet">
<script language="javascript" src="../Js/Common.js"></script>
<title>付款记录管理</title>
</head>
<body>
<%
Dim CurrentPage, CurrentPath, URLParameters, BookType, PayType

CurrentPage = EL_Common.ELRequest("page", 2)
BookType = EL_Common.ELRequest("BookType", 2)
PayType = EL_Common.ELRequest("PayType", 1)

If PayType = "" Then
   PayType = -1
Else
   PayType = EL_Common.ELClng(PayType)
End If

URLParameters = request.ServerVariables("QUERY_STRING")
If CurrentPage<1 Then 
   CurrentPage = 1
Else
   URLParameters = EL_Common.ReplaceText(URLParameters, "&*page=[0-9]*", "")
End If

CurrentPath = "·您现在的位置：<a href='"& EL_CurrentScriptName &"'>订单付款记录管理</a> "
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="13%" background="Images/navbg.gif"><img src="Images/navtitle.gif" width="113" height="37"></td>
    <td width="87%" background="Images/navbg.gif">| <a href="User_HotelBook.asp" class="nav">酒店订单</a> | <a href="User_FlightBook.asp" class="nav">机票订单</a> | <a href="User_ProductBook.asp" class="nav">度假订单</a> | <a href="User_SightBook.asp" class="nav">景点订单</a> | <a href="User_CarBook.asp" class="nav">租车订单</a> | <a href="User_ShopBook.asp" class="nav">商品兑换</a> | <a href="User_Payment.asp" class="nav">订单付款记录</a> | </td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="13%" class="td_22"></td>
    <td width="87%" class="td_22">
	<div style="float:left; padding-top:3px;">| <a href="User_Payment.asp?PayType=0" class="nav">银行汇款</a> | <a href="User_Payment.asp?PayType=1" class="nav">在线支付</a> |	</div>
	<div style="float:left; padding-left:10px;">
      <select name="BookType" id="BookType" onChange="location.href='User_Payment.asp?PayType=<%=PayType%>&BookType='+this.value;">
        <option value="0" <%=EL_Common.SetObjectSelected(0, BookType)%>>所有订单</option>
        <option value="1" <%=EL_Common.SetObjectSelected(1, BookType)%>>酒店订单</option>
        <option value="2" <%=EL_Common.SetObjectSelected(2, BookType)%>>机票订单</option>
        <option value="3" <%=EL_Common.SetObjectSelected(3, BookType)%>>度假订单</option>
        <option value="4" <%=EL_Common.SetObjectSelected(4, BookType)%>>景点订单</option>
		<option value="5" <%=EL_Common.SetObjectSelected(5, BookType)%>>租车订单</option>
      </select>
	</div>
	</td>
  </tr>
</table>
<div class="dw">
<%
Select Case Action
  Case "": Call ManagePayment()
  Case "Show": Call ShowPayment()
End Select
Call ApplicationTerminate()

Sub ShowPayment()
On Error Resume Next
Dim PaymentCmd, rsPayment
Dim PaymentID, ArrPayType(1)
ArrPayType(0) = "银行汇款"
ArrPayType(1) = "<span class=bluetext>在线支付</span>"

PaymentID = EL_Common.ELRequest("PaymentID", 2)
Call EL_Common.InitCommonCmd(PaymentCmd, rsPayment, "EL_Payment", "*", "PaymentID="& PaymentID)
rsPayment.Close()
If PaymentCmd(0) <> 1 Then
   EL_Common.ShowErrorMsg("指定记录不存在")
   Exit Sub
End If
rsPayment.Open()

CurrentPath = CurrentPath &" >> 查看付款记录"
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" class="top_26"><strong>查看付款记录</strong></td>
  </tr>
  <tr>
    <td width="16%" class="td_ItemName"><strong>客户名</strong></td>
    <td width="84%" class="td_22"><input name="textfield3" type="text" value="<%=EL_Common.ServerHTMLEncode(rsPayment("TrueName"))%>" size="40" readonly="true"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>会员名</strong></td>
    <td class="td_22"><input name="textfield32" type="text" value="<%=EL_Common.ServerHTMLEncode(rsPayment("UserName"))%>" size="40" readonly="true"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>订单号</strong></td>
    <td class="td_22"><input name="textfield33" type="text" value="<%=EL_Common.ServerHTMLEncode(rsPayment("BookNumber"))%>" size="40" readonly="true"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>付款类型</strong></td>
    <td class="td_item_22">
	<%=ArrPayType(rsPayment("PayType"))%>
        <%
	  If rsPayment("PayType") = 1 Then Response.Write "（<a href='User_PayOnline.asp?Action=Show&PayOnlineID="& rsPayment("PayOnlineID") &"' style='text-decoration:underline; color:red;'>查看在线支付记录</a>）"
	%>
    </td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>汇入银行</strong></td>
    <td class="td_22"><input name="textfield34" type="text" value="<%=EL_Common.ServerHTMLEncode(rsPayment("BankName"))%>" size="40" readonly="true"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>汇款日期</strong></td>
    <td class="td_22"><input name="textfield35" type="text" value="<%=rsPayment("PayDateTime")%>" size="40" readonly="true"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>汇款金额</strong></td>
    <td class="td_22"><input name="textfield36" type="text" value="<%=EL_Common.ELFormatCurrency(rsPayment("PayMoney"))%>" size="40" readonly="true"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>备注</strong></td>
    <td class="td_22"><textarea name="textarea" cols="50" rows="6" readonly="true"><%=EL_Common.ServerHTMLEncode(rsPayment("Remark"))%></textarea></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>操作员</strong></td>
    <td class="td_22"><input name="textfield37" type="text" value="<%=EL_Common.ServerHTMLEncode(rsPayment("Editor"))%>" size="40" readonly="true"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>操作时间</strong></td>
    <td class="td_22"><input name="textfield38" type="text" value="<%=EL_Common.ServerHTMLEncode(rsPayment("EditorDateTime"))%>" size="40" readonly="true"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>IP地址</strong></td>
    <td class="td_22"><input name="textfield39" type="text" value="<%=EL_Common.ServerHTMLEncode(rsPayment("IpAddress"))%>" size="40" readonly="true"></td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="button" name="Submit3" value=" 返 回 " onClick="history.back()"></td>
  </tr>
</table>
<%
rsPayment.Close()
Set rsPayment = Nothing
Set PaymentCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub ManagePayment()
On Error Resume Next
Dim PaymentCmd, rsPayment, RowCount, i, StrFields, StrCondition
Dim PageSizes, PageCounts, TotalRowCount, ArrPayType(1), PageTotal, AllTotal
PageSizes = 20
PageTotal = 0
AllTotal = 0
ArrPayType(0) = "银行汇款"
ArrPayType(1) = "<span class='bluetext'>在线支付</span>"

StrFields = "*"
StrCondition = "UserID="& EL_User.UserID

If BookType <> 0 Then
   Select Case BookType
      Case 1: StrCondition = StrCondition &" And BookTableName='EL_HotelBook'"
	  Case 2: StrCondition = StrCondition &" And BookTableName='EL_FlightBook'" 
	  Case 3: StrCondition = StrCondition &" And BookTableName='EL_ProductBook'"
	  Case 4: StrCondition = StrCondition &" And BookTableName='EL_SightBook'"
	  Case 5: StrCondition = StrCondition &" And BookTableName='EL_CarBook'"
   End Select
End If

If PayType <> -1 Then StrCondition = StrCondition &" And PayType="& PayType

Call EL_Common.InitCommand(PaymentCmd, "EL_SP_SplitPage")
With PaymentCmd
  .Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
  .Parameters.Append .CreateParameter("@Tables", 200, 1, 50, "EL_Payment")
  .Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "PaymentID")
  .Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "PaymentID DESC")
  .Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
  .Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
  .Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, StrFields)
  .Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, StrCondition)
  .Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
  .Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
  .Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
  Set rsPayment = .Execute()
End With
rsPayment.Close()
RowCount = PaymentCmd(0)
TotalRowCount = PaymentCmd(9)
PageCounts = PaymentCmd(10)

AllTotal = EL_Common.GetFieldValue("SUM(PayMoney)", "EL_Payment", StrCondition)

If BookType <> 0 Then
   CurrentPath = CurrentPath &" >> "& ShowBookType(BookType) 
End If

If PayType <> -1 Then 
   CurrentPath = CurrentPath &" >> "& ArrPayType(PayType) 
Else
   CurrentPath = CurrentPath &" >> 所有记录"
End If
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="14%" align="center" nowrap class="top_26"><strong>订单号</strong></td>
    <td width="8%" align="center" nowrap class="top_26"><strong>订单类型</strong></td>
    <td width="8%" align="center" nowrap class="top_26"><strong>客户名</strong></td>
    <td width="10%" align="center" nowrap class="top_26"><strong>会员名</strong></td>
    <td width="9%" align="center" nowrap class="top_26"><strong>支付类型</strong></td>
    <td width="11%" align="center" nowrap class="top_26"><strong>银行名称</strong></td>
    <td width="8%" align="center" nowrap class="top_26"><strong>交易日期</strong></td>
    <td width="12%" align="center" nowrap class="top_26"><strong>交易金额</strong></td>
    <td width="15%" align="center" nowrap class="top_26"><strong>备注</strong></td>
    <td width="5%" align="center" nowrap class="top_26"><strong>操作</strong></td>
  </tr>
  <%
   If RowCount = 0 Then
      Response.Write "<tr><td colspan=10 class=td_50 align=center>没有任何付款记录</td></tr>"
   Else
      rsPayment.Open()
	  For i = 1 To RowCount
  %>
  <tr class="td_22" onMouseOver="this.className='MouseOver_22'" onMouseOut="this.className='td_22'">
    <td align="center"><a href="User_<%=Replace(rsPayment("BookTableName"), "EL_", "")%>.asp?Action=Show&BookID=<%=rsPayment("BookID")%>"><%=EL_Common.ServerHTMLEncode(rsPayment("BookNumber"))%></a></td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(ShowBookType(rsPayment("BookTableName")))%></td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(rsPayment("TrueName"))%></td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(rsPayment("UserName"))%></td>
    <td align="center"><%=ArrPayType(rsPayment("PayType"))%></td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(rsPayment("BankName"))%></td>
    <td align="center"><%=FormatDateTime(rsPayment("PayDateTime"), 2)%></td>
    <td align="right" style="padding-right:5px;"><span class="redText"><%=EL_Common.ELFormatCurrency(rsPayment("PayMoney"))%></span></td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(rsPayment("Remark"))%></td>
    <td align="center"><a href="User_Payment.asp?Action=Show&PaymentID=<%=rsPayment("PaymentID")%>">查看</a></td>
  </tr>  
  <%
         PageTotal = PageTotal + rsPayment("PayMoney")
		 If i<RowCount Then rsPayment.MoveNext
	  Next
	  rsPayment.Close()
   End If
  %>
  <tr>
    <td colspan="7" align="right" class="td_22"><strong>本页金额合计：</strong></td>
    <td colspan="3" class="td_22" style="padding-left:5px;"><b class="greenText"><%=EL_Common.ELFormatCurrency(PageTotal)%></b></td>
  </tr>
  <tr>
    <td colspan="7" align="right" class="td_22"><strong>总金额合计：</strong></td>
    <td colspan="3" class="td_22" style="padding-left:5px;"><b class="blueText"><%=EL_Common.ELFormatCurrency(AllTotal)%></b></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td width="12%">&nbsp;</td>
    <td width="88%" align="right" nowrap><%Call EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, "记录", "条")%></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
</table>
<%
Set rsPayment = Nothing
Set PaymentCmd = Nothing
EL_Common.ShowScriptError()
End Sub
%>


<%
Function ShowBookType(ByVal b)
   Select Case LCase(b)
      Case "el_hotelbook", "1": ShowBookType = "酒店订单"
	  Case "el_flightbook", "2": ShowBookType = "机票订单"
	  Case "el_productbook", "3": ShowBookType = "度假订单"
	  Case "el_sightbook", "4": ShowBookType = "景点订单"  
	  Case "el_carbook", "5": ShowBookType = "租车订单"  
   End Select
End Function
%>
</div>
</body>
</html>

⌨️ 快捷键说明

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