admin_carbook.asp

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

  }
}
function SaveModify(){
   var frm = getObject("myform");
   getObject("Action").value = "SaveModify";
   frm.submit();
}
function BookConfirm(ConfirmType){
   var frm = getObject("myform");
   frm.action = 'Admin_CarBook.asp?SetBookStatus='+ ConfirmType;
   getObject("Action").value = "SetBookStatus";
   if(ConfirmType==1){
	  if(confirm("确定要确认此订单吗？")){
        frm.submit();
  	    return;
      }
   }else if(ConfirmType==2){
	  if(confirm("确定要结清此订单吗？")){
        frm.submit();
  	    return;
      }
   }
}
function doRestore(){
  var frm = getObject("myform");
  getObject("Action").value  = "Restore";
  if(confirm("确认要还原订单吗？")){
     frm.submit();
	 return;
  }
  return false;
}
function doDeleteTrue(){
  var frm = getObject("myform");
  getObject("Action").value  = "DeleteTrue";
  if(confirm("确认要彻底删除订单吗？")){
     frm.submit();
	 return;
  }
  return false;
}
</script>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<form name="myform" action="Admin_CarBook.asp" method="post" onSubmit="SubmitOnce(this)">
  <table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
    <tr>
      <td colspan="6" class="top_25"><strong>查看订单号：</strong><%=rsBook("BookNumber")%></td>
    </tr>
    <tr>
      <td width="12%" align="right" class="td_ItemName"><strong>订单状态：</strong></td>
      <td colspan="3" class="item_25"><%=ArrBookStatus(rsBook("BookStatus"))%>
	  &nbsp;
      <%=ArrPayStatus(rsBook("PayStatus"))%>	  </td>
      <td width="9%" align="right" nowrap class="td_ItemName"><strong>订单时间：</strong></td>
      <td width="24%" class="item_25"><%=rsBook("BookDateTime")%></td>
    </tr>
    <tr>
      <td align="right" class="td_ItemName"><strong>会员名：</strong></td>
      <td width="23%" class="item_25"><%=EL_Common.ServerHTMLEncode(rsBook("UserName"))%></td>
      <td width="9%" align="right" class="td_ItemName"><strong>客户名：</strong></td>
      <td colspan="3" class="item_25"><%=EL_Common.ServerHTMLEncode(rsBook("TrueName"))%></td>
    </tr>
    <tr>
      <td align="right" class="td_ItemName"><strong>租车名称：</strong></td>
      <td class="item_25"><%=EL_Common.ServerHTMLEncode(rsBook("CarName"))%></td>
      <td align="right" nowrap class="td_ItemName"><strong>开始日期：</strong></td>
      <td width="23%" class="item_25"><%=rsBook("BeginDate") &" "& rsBook("BeginTime")%></td>
      <td align="right" class="td_ItemName"><strong>结束日期：</strong></td>
      <td class="item_25"><%=rsBook("EndDate") &" "& rsBook("EndTime")%></td>
    </tr>
    <tr>
      <td align="right" class="td_ItemName"><strong>租车方式：</strong></td>
      <td colspan="5" class="item_25"><%=ArrHireType(rsBook("HireType"))%> （<%=ArrUseType(rsBook("UseType"))%>）</td>
    </tr>
    <tr>
      <td align="right" class="td_ItemName"><strong>确认方式：</strong></td>
      <td colspan="5" class="item_25"><%=EL_Common.ServerHTMLEncode(rsBook("ConfirmType"))%></td>
    </tr>
    <tr>
      <td align="right" class="td_ItemName"><strong>其他要求：</strong></td>
      <td colspan="5" class="item_25"><%=EL_Common.HTMLEncode(rsBook("Demand"))%></td>
    </tr>
    <tr>
      <td colspan="6" class="MouseOver_25">&nbsp;&nbsp;<strong class="YellowText">联系人信息</strong></td>
    </tr>
    <tr>
      <td align="right" class="td_ItemName"><strong>联系人名：</strong></td>
      <td class="item_25"><%=EL_Common.HTMLEncode(rsBook("ContactUserName"))%></td>
      <td align="right" class="td_ItemName"><strong>手机号码：</strong></td>
      <td class="item_25"><%=EL_Common.HTMLEncode(rsBook("Mobile"))%></td>
      <td align="right" class="td_ItemName"><strong>传真号码：</strong></td>
      <td class="item_25"><%=EL_Common.HTMLEncode(rsBook("Fax"))%></td>
    </tr>
    <tr>
      <td align="right" class="td_ItemName"><strong>电话号码：</strong></td>
      <td class="item_25"><%=EL_Common.HTMLEncode(rsBook("Phone"))%></td>
      <td align="right" class="td_ItemName"><strong>电子邮件：</strong></td>
      <td colspan="3" class="item_25"><%=EL_Common.HTMLEncode(rsBook("Email"))%></td>
    </tr>
    <tr>
      <td colspan="6" class="MouseOver_25">&nbsp;&nbsp;<strong class="YellowText">订单价格信息</strong></td>
    </tr>
    <tr>
      <td align="right" class="td_ItemName"><strong>时租价格：</strong></td>
      <td class="item_25"><%=EL_Common.ELFormatCurrency(PriceHour1)%> &nbsp; <%=EL_Common.ELFormatCurrency(PriceHour2)%>（带司机）</td>
      <td align="right" class="td_ItemName"><strong>日租价格：</strong></td>
      <td class="item_25"><%=EL_Common.ELFormatCurrency(PriceDay1)%> &nbsp; <%=EL_Common.ELFormatCurrency(PriceDay2)%>（带司机）</td>
      <td align="right" class="td_ItemName"><strong>月租价格：</strong></td>
      <td class="item_25"><%=EL_Common.ELFormatCurrency(PriceMonth1)%> &nbsp; <%=EL_Common.ELFormatCurrency(PriceMonth2)%>（带司机）</td>
    </tr>
    <tr>
      <td align="right" class="td_ItemName"><strong>是否打折：</strong></td>
      <td class="item_25"><%=EL_Common.ShowBoolean(rsBook("IsDiscount").value, "<span class=bluetext>是</span>", "<span class=redtext>否</span>")%></td>
      <td align="right" class="td_ItemName"><strong>享受折扣：</strong></td>
      <td colspan="3" class="item_25"><%=rsBook("Discount")%></td>
    </tr>
    <tr>
      <td rowspan="3" align="right" nowrap class="td_ItemName"><strong>详细价格清单：</strong></td>
      <td colspan="3" rowspan="3" class="item_25">
	  <%
	    Dim dDiff
		Select Case rsBook("HireType")
		   Case 0:
		      dDiff = DateDiff("h", rsBook("BeginDate") &" "& rsBook("BeginTime"), rsBook("EndDate") &" "& rsBook("EndTime"))
			  If rsBook("UseType") = 1 Then
			     Response.Write "￥"& PriceHour2 &" x "& dDiff &" 小时 = <span style='font-size:18px; font-weight:bold; margin:0px; color:#CC0000'>￥"& PriceHour2 * dDiff &"</span>"
			  Else
			     Response.Write "￥"& PriceHour1 &" x "& dDiff &" 小时 = <span style='font-size:18px; font-weight:bold; margin:0px; color:#CC0000'>￥"& PriceHour1 * dDiff &"</span>"
			  End If
		   Case 1:
		      dDiff = DateDiff("d", rsBook("BeginDate") &" "& rsBook("BeginTime"), rsBook("EndDate") &" "& rsBook("EndTime"))
		      If rsBook("UseType") = 1 Then
			     Response.Write "￥"& PriceDay2 &" x "& dDiff &" 天 = <span style='font-size:18px; font-weight:bold; margin:0px; color:#CC0000'>￥"& PriceDay2 * dDiff &"</span>"
			  Else
			     Response.Write "￥"& PriceDay1 &" x "& dDiff &" 天 = <span style='font-size:18px; font-weight:bold; margin:0px; color:#CC0000'>￥"& PriceDay1 * dDiff &"</span>"
			  End If
		   Case 2:
		      dDiff = DateDiff("m", rsBook("BeginDate") &" "& rsBook("BeginTime"), rsBook("EndDate") &" "& rsBook("EndTime"))
			  If rsBook("UseType") = 1 Then
			     Response.Write "￥"& PriceMonth2 &" x "& dDiff &" 月 = <span style='font-size:18px; font-weight:bold; margin:0px; color:#CC0000'>￥"& PriceMonth2 * dDiff &"</span>"
			  Else
			     Response.Write "￥"& PriceMonth1 &" x "& dDiff &" 月 = <span style='font-size:18px; font-weight:bold; margin:0px; color:#CC0000'>￥"& PriceMonth1 * dDiff &"</span>"
			  End If
		End Select
	  %>
	  </td>
      <td align="right" class="td_ItemName"><strong class="redText">折后价格：</strong></td>
      <td class="item_25"><input name="PriceOfDiscount" type="text" id="PriceOfDiscount" value="<%=EL_Common.ELFormatCurrency(rsBook("PriceOfDiscount"))%>" readonly="true" size="10" style="font-weight:bold; color:red; text-align:right;"><img src="Images/lock.gif" width="11" height="14" alt="已锁定，不能修改"></td>
    </tr>
    <tr>
      <td align="right" class="td_ItemName"><strong class="GreenText">实际收款：</strong></td>
      <td class="item_25">
	  <% If rsBook("BookStatus") = 2 Then %>	  
	  <input name="TruePrice" type="text" id="TruePrice" value="<%=EL_Common.ELFormatCurrency(rsBook("TruePrice"))%>" readonly="true" size="10" style="font-weight:bold; color:green; text-align:right;"><img src="Images/lock.gif" width="11" height="14" alt="已锁定，不能修改">
	  <% Else %>
	  <input name="TruePrice" type="text" id="TruePrice" value="<%=rsBook("TruePrice")%>" size="10" style="font-weight:bold; color:green; text-align:right;">
	  <% End If %>	  </td>
    </tr>
    <tr>
      <td align="right" class="td_ItemName"><strong class="BlueText">已付金额：</strong></td>
      <td class="item_25"><div style="float:left"><input name="PayedMoney" type="text" id="PayedMoney" value="<%=EL_Common.ELFormatCurrency(rsBook("PayedMoney"))%>" readonly="true" size="10" style="font-weight:bold; color:blue; text-align:right;"><img src="Images/lock.gif" width="11" height="14" alt="已锁定，不能修改"></div><div style="padding-top:5px; padding-left:3px; float:left; color:blue">（<%=ArrPayStatus(rsBook("PayStatus"))%>）</div></td>
    </tr>
    <tr>
      <td align="right" class="td_ItemName"><strong>订单处理备注：</strong></td>
      <td colspan="3" class="item_25"><textarea name="Remark" cols="40" rows="5" id="Remark" style="width:100%;"><%=rsBook("Remark")%></textarea></td>
      <td colspan="2" class="item_25" valign="top"><strong class="redText">注：当结清订单后，不能对订单再做任何修改，除备注之外</strong></td>
    </tr>
    <tr>
      <td colspan="6" align="center" class="td_50">
	  <input name="BookID" type="hidden" id="BookID" value="<%=BookID%>">
      <input name="Action" type="hidden" id="Action">
	  <% If rsBook("Deleted") Then %>
	  <input type="button" name="Submit2" value="还原订单" onClick="doRestore()">
	  <input type="button" name="Submit2" value="彻底删除订单" onClick="doDeleteTrue()">
	  <% Else %>
	    <input type="button" name="Submit4" value="删除订单" onClick="doDelete()">
	    <input name="button" type="button" id="button" value="保存修改" onClick="SaveModify()">
	  <%
	    Select Case rsBook("BookStatus")
		   Case 0: Response.Write "<input name='button2' type='button' id='button2' value='确认订单' onclick='BookConfirm(1)'> "
		   Case 1: Response.Write "<input name='button2' type='button' id='button2' value='结清订单' onclick='BookConfirm(2)'> "
		End Select
		
		If rsBook("BookStatus") <> 0 Then
		   Response.Write "<input name='button2' type='button' id='button2' value='添加付款记录' onclick=""location.href='Admin_Payment.asp?Action=Add&BookType=5&BookID="& BookID &"'"">"
		End If
	  %>
	  <input name="button2" type="button" id="button2" value="打印订单" onClick="location.href='Admin_CarBook.asp?Action=Print&BookID=<%=BookID%>'">	  </td>
	  <% End If %>
    </tr>
  </table>
</form>
<br>
<strong class="BlueText">·付款记录</strong>
<%
Dim PaymentCmd, rsPayment, RowCount, TotalPay
Call EL_Common.InitCommonCmd(PaymentCmd, rsPayment, "EL_Payment", "PaymentID,UserName,BankName,PayType,PayMoney,PayDateTime,Remark", "BookTableName='EL_CarBook' And BookNumber='"& rsBook("BookNumber") &"' And BookID="& BookID)
rsPayment.Close()
RowCount = PaymentCmd(0)
TotalPay = 0
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>

    <td width="9%" align="center" class="top_item"><strong>客户名称</strong></td>
    <td width="19%" align="center" class="top_item"><strong>支付银行</strong></td>
    <td width="12%" align="center" class="top_item"><strong>支付类型</strong></td>
    <td width="14%" align="center" class="top_item"><strong>支付金额</strong></td>
    <td width="14%" align="center" class="top_item"><strong>支付时间</strong></td>
    <td width="24%" align="center" class="top_item"><strong>备注</strong></td>
    <td width="8%" align="center" class="top_item"><strong>操作</strong></td>
  </tr>
  <%
   If RowCount = 0 Then
      Response.Write "<tr><td colspan=7 class=td_50 align=center>没有任何付款记录</td></tr>"
   Else
      rsPayment.Open()	  
	  For i = 1 To RowCount
  %>
  <tr class="td_25" onMouseOver="this.className='MouseOver_25'" onMouseOut="this.className='td_25'">
    <td align="center"><%=EL_Common.ServerHTMLEncode(rsPayment("UserName"))%></td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(rsPayment("BankName"))%></td>
    <td align="center"><%=ArrPayType(rsPayment("PayType"))%></td>
    <td align="right" class="BlueText"><%=EL_Common.ELFormatCurrency(rsPayment("PayMoney"))%>&nbsp;</td>
    <td align="center"><%=rsPayment("PayDateTime")%></td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(rsPayment("Remark"))%></td>
    <td align="center"><a href="Admin_Payment.asp?Action=Show&PaymentID=<%=rsPayment("PaymentID")%>">查看</a></td>
  </tr>  
  <%
        TotalPay = TotalPay + rsPayment("PayMoney")
		If i<RowCount Then rsPayment.MoveNext
	  Next
	  rsPayment.Close()
	End If
  %>
  <tr class="td_25">
    <td colspan="3" align="right"><strong>合计金额：</strong></td>
    <td colspan="4">&nbsp;<strong class="redText"><%=EL_Common.ELFormatCurrency(TotalPay)%></strong></td>
  </tr>
</table>