user_payonline.asp

依蓝旅游网站管理系统Elan2008.SP2

        <td class="td_item_22"><%=ShowBookType(BookType)%></td>
      </tr>
      <tr>
        <td width="115" align="right" class="td_ItemName">关联订单号：</td>
        <td width="380" class="td_item_22"><%=BookNumber%></td>
      </tr>
      <tr>
        <td align="right" class="td_ItemName">订单名称：</td>
        <td class="td_item_22"><%=BookName%></td>
      </tr>
      <tr>
        <td align="right" class="td_ItemName">订单实际金额：</td>
        <td class="td_item_22"><b class="blueText"><%=BookTruePrice%></b></td>
      </tr>
      <tr>
        <td align="right" class="td_ItemName">已付金额：</td>
        <td class="td_item_22"><b class="greenText"><%=BookPayedMoney%></b></td>
      </tr>
      <tr>
        <td align="right" class="td_ItemName">本次支付金额：</td>
        <td class="td_item_22"><b class="redText" style="font-size:18px;"><%=PayMoney%></b> &nbsp; <a href="javascript:modify()" style="color:blue; text-decoration:underline;">修改</a></td>
      </tr>
      <tr>
        <td colspan="2" align="center" class="td_50">点击“下一步”按钮后，将进入<strong class="redText"><%=EL_PayOnline.PayOnlineProviderName%></strong>支付界面完成支付过程。</td>
        </tr>
      <tr>
        <td colspan="2" align="center" class="td_50"><input type="button" name="bprev" value=" 上一步 " onClick="location.href='<%=rURL%>'">
        <input type="submit" name="bnext" value=" 下一步 ">
		<%=EL_PayOnline.HiddenField%>
		</td>
      </tr>
    </table></td>
  </tr>
</table>
</form>
<%
Set EL_PayOnline = Nothing
EL_Common.ShowScriptError()
End Sub

Sub PayOnline1()
On Error Resume Next
%>
<script language="javascript">
function Check(frm){
  if(frm.BookNumber.value.trim()==""){
     alert("请输入订单号");
	 frm.BookNumber.focus();
	 return false;
  }
  if(frm.PayMoney.value.trim()==""){
     alert("请输入支付金额");
	 frm.PayMoney.focus();
	 return false;
  }
}
</script>
<form name="myform" action="User_PayOnline.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td align="center"><table width="500" border="0" cellpadding="0" cellspacing="1" class="Border">
      <tr>
        <td colspan="2" align="center" class="top_26"><strong>在 线 支 付 （第一步） </strong></td>
      </tr>
      <tr>
        <td align="right" class="td_ItemName">订单类型：</td>
        <td class="td_22"><select name="BookType" id="BookType">
          <option value="1">酒店订单</option>
          <option value="2">机票订单</option>
          <option value="3">度假订单</option>
          <option value="4">景点订单</option>
          <option value="5">租车订单</option>
        </select>
        </td>
      </tr>
      <tr>
        <td width="115" align="right" class="td_ItemName">订单号：</td>
        <td width="380" class="td_22"><input name="BookNumber" type="text" id="BookNumber" size="35">
          <span class="redText">请务必正确输入</span></td>
      </tr>
      <tr>
        <td align="right" class="td_ItemName">支付金额：</td>
        <td class="td_22"><input name="PayMoney" type="text" id="PayMoney" size="10"></td>
      </tr>
      <tr>
        <td colspan="2" align="center" class="td_50"><input type="submit" name="Submit" value=" 下一步 ">
          <input name="Action" type="hidden" id="Action" value="Step2"></td>
        </tr>
    </table></td>
  </tr>
</table>
</form>
<%
EL_Common.ShowScriptError()
End Sub

Sub ShowPayOnline()
On Error Resume Next
Dim PayOnlineCmd, rsPayOnline, PayOnlineID, ScriptName
PayOnlineID = EL_Common.ELRequest("PayOnlineID", 2)
Call EL_Common.InitCommonCmd(PayOnlineCmd, rsPayOnline, "EL_PayOnline", "*", "PayOnlineID="& PayOnlineID)
rsPayOnline.Close()
If PayOnlineCmd(0) <> 1 Then
   EL_Common.ShowErrorMsg("指定记录不存在")
   Set rsPayonline = Nothing
   Set PayOnlineCmd = Nothing
   Exit Sub
End If
rsPayOnline.Open()
Select Case LCase(rsPayOnline("BookTableName"))
   Case "el_hotelbook": ScriptName = "User_HotelBook.asp"
   Case "el_flightbook": ScriptName = "User_FlightBook.asp"
   Case "el_productbook": ScriptName = "User_ProductBook.asp"
   Case "el_sightbook": ScriptName = "User_SightBook.asp"
   Case "el_carbook": ScriptName = "User_CarBook.asp"
End Select
%>
<form name="myform" action="Admin_PayOnline.asp" method="post" onSubmit="SubmitOnce(this)">
<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%" align="right" class="td_ItemName"><strong>关联订单号：</strong></td>
    <td width="84%" class="td_item_22"><a href="<%=ScriptName%>?Action=Show&BookID=<%=rsPayOnline("BookID")%>" style="color:blue; text-decoration:underline;"><%=EL_Common.ServerHTMLEncode(rsPayOnline("BookNumber"))%></a></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>会员名：</strong></td>
    <td class="td_item_22"><%=EL_Common.ServerHTMLEncode(rsPayOnline("UserName") &"("& rsPayOnline("TrueName" )&")")%></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>支付平台：</strong></td>
    <td class="td_item_22"><%=PayOnlineProvider(rsPayOnline("PayOnlineProvider"))%></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>支付金额：</strong></td>
    <td class="td_item_22"><%=EL_Common.ELFormatCurrency(rsPayOnline("PayMoney"))%></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>备注：</strong></td>
    <td class="td_item_22"><%=EL_Common.HTMLEncode(rsPayOnline("Remark"))%></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>IP地址：</strong></td>
    <td class="td_item_22"><%=rsPayOnline("IPAddress")%></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>支付时间：</strong></td>
    <td class="td_item_22"><%=rsPayOnline("PayDateTime")%></td>
  </tr>
  <% If rsPayOnline("IsConfirm") = True Then %>
  <tr>
    <td align="right" class="td_ItemName"><strong>确认时间：</strong></td>
    <td class="td_item_22"><%=rsPayOnline("ConfirmDateTime")%></td>
  </tr>
  <% Else %>
  <tr>
    <td align="right" class="td_ItemName"><strong>状态：</strong></td>
    <td class="td_item_22"><strong class="redText">未确认</strong></td>
  </tr>
  <% End If%>
  <tr>
    <td class="td_ItemName"></td>
    <td class="td_50"><input type="button" name="Submit4" value=" 返 回 " onClick="history.back()">	</td>
  </tr>
</table>
</form>
<%
rsPayOnline.Close()
Set rsPayonline = Nothing
Set PayOnlineCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub PayLog
On Error Resume Next
Dim PayOnlineCmd, rsPayOnline, RowCount, i, StrFields, StrCondition
Dim PageSizes, PageCounts, TotalRowCount, PageTotal, AllTotal
PageSizes = 20
PageTotal = 0
AllTotal = 0

StrFields = "PayOnlineID,UserName,BookNumber,PayOnlineProvider,PayMoney,PayDateTime,IsConfirm,Editor"
StrCondition = "UserID="& EL_User.UserID

Call EL_Common.InitCommand(PayOnlineCmd, "EL_SP_SplitPage")
With PayOnlineCmd
  .Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
  .Parameters.Append .CreateParameter("@Tables", 200, 1, 50, "EL_PayOnline")
  .Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "PayOnlineID")
  .Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "PayOnlineID 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 rsPayOnline = .Execute()
End With
rsPayOnline.Close()
RowCount = PayOnlineCmd(0)
TotalRowCount = PayOnlineCmd(9)
PageCounts = PayOnlineCmd(10)

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

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 width="23%" align="center" nowrap class="top_Item"><strong>关联订单号</strong></td>
    <td width="13%" align="center" nowrap class="top_Item"><strong>会员</strong></td>
    <td width="14%" align="center" nowrap class="top_Item"><strong>支付平台</strong></td>
    <td width="13%" align="center" nowrap class="top_Item"><strong>支付金额</strong></td>
    <td width="19%" align="center" nowrap class="top_Item"><strong>支付时间</strong></td>
    <td width="9%" align="center" nowrap class="top_Item"><strong>状态</strong></td>
    <td width="9%" align="center" nowrap class="top_Item"><strong>操作</strong></td>
  </tr>
  <%
   If RowCount = 0 Then
      Response.Write "<tr><td colspan=8 class=td_50 align=center>没有任何付款记录</td></tr>"
   Else
      rsPayOnline.Open()
	  For i = 1 To RowCount
  %>
  <tr class="td_22" onMouseOver="this.className='MouseOver_22'" onMouseOut="this.className='td_22'">
    <td align="center"><%=EL_Common.ServerHTMLEncode(rsPayOnline("BookNumber"))%></td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(rsPayOnline("UserName"))%></td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(PayOnlineProvider(rsPayOnline("PayOnlineProvider")))%></td>
    <td align="right" style="padding-right:5px;"><strong class="redText"><%=EL_Common.ELFormatCurrency(rsPayOnline("PayMoney"))%></strong></td>
    <td align="center"><%=rsPayOnline("PayDateTime")%></td>
    <td align="center"><%=EL_Common.ShowBoolean(rsPayOnline("IsConfirm").value, "<b class=greetext>√</b>", "<b class=redtext>×</b>")%></td>
    <td align="center">
	<a href="User_PayOnline.asp?Action=Show&PayOnlineID=<%=rsPayOnline("PayOnlineID")%>">查看</a></td>
  </tr>  
  <%
         PageTotal = PageTotal + rsPayOnline("PayMoney")
		 If i<RowCount Then rsPayOnline.MoveNext
	  Next
	  rsPayOnline.Close()
   End If
  %>
  <tr class="td_22">
    <td colspan="3" align="right"><strong>本页金额合计：</strong></td>
    <td colspan="4" style="padding-left:5px;"><b class="greenText"><%=EL_Common.ELFormatCurrency(PageTotal)%></b></td>
  </tr>
  <tr class="td_22">
    <td colspan="3" align="right"><strong>总金额合计：</strong></td>
    <td colspan="4" 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 align="right"><%=EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, "记录", "条")%></td>
    </tr>
</table>
<%
Set rsPayOnline = Nothing
Set PayOnlineCmd = Nothing
EL_Common.ShowScriptError()
End Sub
%>
</div>
</body>
</html>