📄 admin_carbook.asp
字号:
<%
If DateDiff("d", Date(), rsBook("BookDateTime")) = 0 Then
Response.Write "<span class='bluetext'>"& rsBook("BookNumber") &"</span>"
Else
Response.Write rsBook("BookNumber")
End If
%>
</a> </td>
<td align="center"><a href="Admin_CarBook.asp?Search_Field=TrueName&Search_Keywords=<%=EL_Common.ServerHTMLEncode(rsBook("TrueName"))%>"><%=EL_Common.ServerHTMLEncode(rsBook("TrueName"))%></a></td>
<td align="center">
<%
If rsBook("UserID") = 0 Then
Response.Write EL_Common.ServerHTMLEncode(rsBook("UserName"))
Else
Response.Write "<a href=""Admin_User.asp?Action=Show&UserID="& rsBook("UserID") &""">"& EL_Common.ServerHTMLEncode(rsBook("UserName")) &"</a>"
End If
%>
</td>
<td align="center"><%=rsBook("BookDateTime")%></td>
<td align="right" class="redText"><%=EL_Common.ELFormatCurrency(rsBook("PriceOfDiscount"))%> </td>
<td align="right" class="BlueText"><%=EL_Common.ELFormatCurrency(rsBook("TruePrice"))%> </td>
<td align="center"><%=ArrBookStatus(rsBook("BookStatus"))%></td>
<td align="center"><%=ArrPayStatus(rsBook("PayStatus"))%></td>
<% If ManageType = "Recycled" Then %>
<td align="center" nowrap="nowrap"><a href="Admin_CarBook.asp?Action=Restore&BookID=<%=rsBook("BookID")%>">还原</a> | <a href="Admin_CarBook.asp?Action=DeleteTrue&BookID=<%=rsBook("BookID")%>" onClick="return confirm('确认要将此订单彻底删除吗？')">彻底删除</a></td>
<% End If %>
</tr>
<%
PageTotalPrice = PageTotalPrice + rsBook("TruePrice")
If i<RowCount Then rsBook.MoveNext
Next
rsBook.Close()
End If
%>
<tr class="td_25">
<td colspan="6" align="right"><strong>本页合计：</strong></td>
<td colspan="4" class="GreenText" style="padding-left:5px; font-weight:bold;"><%=EL_Common.ELFormatCurrency(PageTotalPrice)%></td>
</tr>
<tr class="td_25">
<td colspan="6" align="right"><strong><%If ManageType="Recycled" Then Response.Write "已删除"%>订单总合计：</strong></td>
<td colspan="4" class="BlueText" style="padding-left:5px; font-weight:bold;"><%=EL_Common.ELFormatCurrency(AllTotalPrice)%></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="12%"><span id="myselect">[<a href="javascript:CheckedAll()">全选</a>]</span></td>
<td width="88%" align="right" nowrap><%Call EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, "订单", "份")%></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="50" align="center">
<%
Dim Disabled
If RowCount = 0 Then Disabled = "disabled"
%>
<% If ManageType = "Recycled" Then %>
<input type="button" name="Submit2" value="还原选定订单" onClick="doRestore()" <%=Disabled%>>
<input type="button" name="Submit2" value="还原所有订单" onClick="doRestoreAll()" <%=Disabled%>>
<input type="button" name="Submit2" value="彻底删除选定订单" onClick="doDeleteTrue()" <%=Disabled%>>
<input type="button" name="Submit2" value="彻底删除所有订单" onClick="doDeleteTrueAll()" <%=Disabled%>>
<% Else %>
<input type="button" name="Submit2" value="删除选定订单" onClick="doDelete()" <%=Disabled%>>
<% End If %>
</td>
</tr>
</table>
</form>
<%
Set rsBook = Nothing
Set BookCmd = Nothing
EL_Common.ShowScriptError()
End Sub
Sub PrintBook()
On Error Resume Next
Response.Clear()
Response.Write "<link href='Admin_Style.css' type='text/css' rel='stylesheet'>"
Response.Write "<style>body{color:#000000;} td{color:#000000;}</style>"
Dim BookCmd, rsBook, i
Dim BookID, PriceInfo, ArrTemp
Dim PriceHour1, PriceHour2, PriceDay1, PriceDay2, PriceMonth1, PriceMonth2
BookID = EL_Common.ELRequest("BookID", 2)
Call EL_Common.InitCommand(BookCmd, "EL_SP_GetCarBook")
With BookCmd
.Parameters.Append .CreateParameter("RETURN", 2, 4)
.Parameters.Append .CreateParameter("@BookID", 3, 1, 4, BookID)
Set rsBook = .Execute()
End With
rsBook.Close()
If BookCmd(0) <> 1 Then
EL_Common.ShowErrorMsg("指定订单不存在")
Set rsBook = Nothing
Set BookCmd = Nothing
Exit Sub
End If
rsBook.Open()
PriceInfo = Split(rsBook("PriceInfo"), "$")
ArrTemp = Split(PriceInfo(0), ",")
PriceHour1 = ArrTemp(0)
PriceHour2 = ArrTemp(1)
ArrTemp = Split(PriceInfo(1), ",")
PriceDay1 = ArrTemp(0)
PriceDay2 = ArrTemp(1)
ArrTemp = Split(PriceInfo(2), ",")
PriceMonth1 = ArrTemp(0)
PriceMonth2 = ArrTemp(1)
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td colspan="6" align="center" class="td_50"><strong>查看订单号：</strong><%=rsBook("BookNumber")%></td>
</tr>
<tr>
<td width="12%" align="right" class="td_ItemName"><strong>订单状态：</strong></td>
<td colspan="3" class="item_25"><%=EL_Common.RemoveHTML(ArrBookStatus(rsBook("BookStatus")))%> <%=EL_Common.RemoveHTML(ArrPayStatus(rsBook("PayStatus")))%> </td>
<td width="10%" align="right" class="td_ItemName"><strong>订单时间：</strong></td>
<td width="22%" class="item_25"><%=rsBook("BookDateTime")%></td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>会员名：</strong></td>
<td width="24%" 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"> <strong>联系人信息</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"> <strong>订单价格信息</strong></td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>时租价格：</strong></td>
<td class="item_25"><%=EL_Common.ELFormatCurrency(PriceHour1)%> <%=EL_Common.ELFormatCurrency(PriceHour2)%>（带司机）</td>
<td align="right" class="td_ItemName"><strong>日租价格：</strong></td>
<td class="item_25"><%=EL_Common.ELFormatCurrency(PriceDay1)%> <%=EL_Common.ELFormatCurrency(PriceDay2)%>（带司机）</td>
<td align="right" nowrap class="td_ItemName"><strong>月租价格：</strong></td>
<td class="item_25"><%=EL_Common.ELFormatCurrency(PriceMonth1)%> <%=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, "是", "否")%></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>折后价格：</strong></td>
<td class="item_25"><%=EL_Common.ELFormatCurrency(rsBook("PriceOfDiscount"))%></td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>实际收款：</strong></td>
<td class="item_25"><%=EL_Common.ELFormatCurrency(rsBook("TruePrice"))%></td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>已付金额：</strong></td>
<td class="item_25"><%=EL_Common.ELFormatCurrency(rsBook("PayedMoney"))%></td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>订单处理备注：</strong></td>
<td colspan="5" class="item_25"><%=EL_Common.HTMLEncode((rsBook("Remark")))%></td>
</tr>
<tr>
<td colspan="6" align="center" class="td_50">
<div id="buttons">
<input name="button2" type="button" id="button2" value=" 打 印 " onClick="document.getElementById('buttons').style.display='none';window.print();history.back()">
<input type="button" name="Submit3" value=" 返 回 " onClick="history.back()">
</div> </tr>
</table>
<%
Set rsBook = Nothing
Set BookCmd = Nothing
EL_Common.ShowScriptError()
Call ApplicationTerminate()
End Sub
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -