📄 user_carbook.asp
字号:
<td width="23%" class="td_item_22"><%=rsBook("BeginDate") &" "& rsBook("BeginTime")%></td>
<td align="right" class="td_ItemName"><strong>结束日期：</strong></td>
<td class="td_item_22"><%=rsBook("EndDate") &" "& rsBook("EndTime")%></td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>租车方式：</strong></td>
<td colspan="5" class="td_item_22"><%=ArrHireType(rsBook("HireType"))%> （<%=ArrUseType(rsBook("UseType"))%>）</td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>确认方式：</strong></td>
<td colspan="5" class="td_item_22"><%=EL_Common.ServerHTMLEncode(rsBook("ConfirmType"))%></td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>其他要求：</strong></td>
<td colspan="5" class="td_item_22"><%=EL_Common.HTMLEncode(rsBook("Demand"))%></td>
</tr>
<tr>
<td colspan="6" class="MouseOver_22"> <strong class="YellowText">联系人信息</strong></td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>联系人名：</strong></td>
<td class="td_item_22"><%If rsBook("BookStatus") > 0 Then %>
<input name="ContactUserName" type="text" id="ContactUserName" readonly="true" value="<%=EL_Common.HTMLEncode(rsBook("ContactUserName"))%>" size="14">
<img src="Images/lock.gif" width="11" height="14" alt="已锁定，不能修改">
<%Else%>
<input name="ContactUserName" type="text" id="ContactUserName" value="<%=EL_Common.HTMLEncode(rsBook("ContactUserName"))%>" size="14">
<%End If%></td>
<td align="right" class="td_ItemName"><strong>手机号码：</strong></td>
<td class="td_item_22"><%If rsBook("BookStatus") > 0 Then %>
<input name="Mobile" type="text" id="Mobile" readonly="true" value="<%=EL_Common.HTMLEncode(rsBook("Mobile"))%>" size="14">
<img src="Images/lock.gif" width="11" height="14" alt="已锁定，不能修改">
<%Else%>
<input name="Mobile" type="text" id="Mobile" value="<%=EL_Common.HTMLEncode(rsBook("Mobile"))%>" size="14">
<%End If%></td>
<td align="right" class="td_ItemName"><strong>电话号码：</strong></td>
<td class="td_item_22"><%If rsBook("BookStatus") > 0 Then %>
<input name="Phone" type="text" id="Phone" readonly="true" value="<%=EL_Common.HTMLEncode(rsBook("Phone"))%>" size="14">
<img src="Images/lock.gif" width="11" height="14" alt="已锁定，不能修改">
<%Else%>
<input name="Phone" type="text" id="Phone" value="<%=EL_Common.HTMLEncode(rsBook("Phone"))%>" size="14">
<%End If%></td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>传真号码：</strong></td>
<td class="td_item_22"><%If rsBook("BookStatus") > 0 Then %>
<input name="Fax" type="text" id="Fax2" readonly="true" value="<%=EL_Common.HTMLEncode(rsBook("Fax"))%>" size="14">
<img src="Images/lock.gif" width="11" height="14" alt="已锁定，不能修改">
<%Else%>
<input name="Fax" type="text" id="Fax2" value="<%=EL_Common.HTMLEncode(rsBook("Fax"))%>" size="14">
<%End If%></td>
<td align="right" class="td_ItemName"><strong>电子邮件：</strong></td>
<td colspan="3" class="td_item_22"><%If rsBook("BookStatus") > 0 Then %>
<input name="Email" type="text" id="Fax" readonly="true" value="<%=EL_Common.HTMLEncode(rsBook("Email"))%>" size="35">
<img src="Images/lock.gif" width="11" height="14" alt="已锁定，不能修改">
<%Else%>
<input name="Email" type="text" id="Fax" value="<%=EL_Common.HTMLEncode(rsBook("Email"))%>" size="35">
<%End If%></td>
</tr>
<tr>
<td colspan="6" class="MouseOver_22"> <strong class="YellowText">订单价格信息</strong></td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>时租价格：</strong></td>
<td class="td_item_22"><%=EL_Common.ELFormatCurrency(PriceHour1)%> <%=EL_Common.ELFormatCurrency(PriceHour2)%>（带司机）</td>
<td align="right" class="td_ItemName"><strong>日租价格：</strong></td>
<td class="td_item_22"><%=EL_Common.ELFormatCurrency(PriceDay1)%> <%=EL_Common.ELFormatCurrency(PriceDay2)%>（带司机）</td>
<td align="right" class="td_ItemName"><strong>月租价格：</strong></td>
<td class="td_item_22"><%=EL_Common.ELFormatCurrency(PriceMonth1)%> <%=EL_Common.ELFormatCurrency(PriceMonth2)%>（带司机）</td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>是否打折：</strong></td>
<td class="td_item_22"><%=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="td_item_22"><%=rsBook("Discount")%></td>
</tr>
<tr>
<td rowspan="3" align="right" nowrap class="td_ItemName"><strong>详细价格清单：</strong></td>
<td colspan="3" rowspan="3" class="td_item_22">
<%
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="td_item_22"><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="td_item_22"><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="已锁定，不能修改"></td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong class="BlueText">已付金额：</strong></td>
<td class="td_item_22"><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="td_item_22"><textarea name="Remark" cols="40" rows="5" id="Remark" style="width:100%;"><%=rsBook("Remark")%></textarea></td>
<td colspan="2" class="td_item_22" 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("BookStatus") = 0 Then
Response.Write "<input type='button' name='Submit' value='保存修改' onclick=""SaveModify();""> "
Response.Write "<input type='button' name='Submit' value='取消订单' onclick=""Cancel();""> "
End If
If rsBook("PayStatus") < 2 Then
Response.Write "<input type='button' name='Submit' value='在线支付' onclick=""location.href='User_PayOnline.asp?Action=Step2&BookType=5&BookNumber="& rsBook("BookNumber") &"&PayMoney="& (rsBook("TruePrice")-rsBook("PayedMoney")) &"&ComeURL="& EL_Common.ServerURLEncode("http://"& Request.ServerVariables("HTTP_HOST") & InstallDir &"User/"& EL_CurrentScriptName &"?"& Request.ServerVariables("QUERY_STRING")) &"';""> "
End If
%>
<input type="button" name="Submit" value="打印订单" onClick="location.href='User_CarBook.asp?Action=Print&BookID=<%=BookID%>'">
<input type="button" name="Submit2" value=" 返 回 " onClick="location.href='User_CarBook.asp'"></td>
</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_22" onMouseOver="this.className='MouseOver_22'" onMouseOut="this.className='td_22'">
<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"))%> </td>
<td align="center"><%=rsPayment("PayDateTime")%></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>
<%
TotalPay = TotalPay + rsPayment("PayMoney")
If i<RowCount Then rsPayment.MoveNext
Next
rsPayment.Close()
End If
%>
<tr class="td_22">
<td colspan="3" align="right"><strong>合计金额：</strong></td>
<td colspan="4"> <strong class="redText"><%=EL_Common.ELFormatCurrency(TotalPay)%></strong></td>
</tr>
</table>
<%
Set rsPayment = Nothing
Set PaymentCmd = Nothing
rsBook.Close()
Set rsBook = Nothing
Set BookCmd = Nothing
EL_Common.ShowScriptError()
End Sub
Sub ManageBook()
On Error Resume Next
Dim BookCmd, rsBook, RowCount, i, StrFields, StrCondition
Dim PageSizes, PageCounts, TotalRowCount, PageTotalPrice, AllTotalPrice
PageSizes = 20
PageTotalPrice = 0
AllTotalPrice = 0
StrFields = "BookID,BookNumber,UserID,UserName,TrueName,CarName,BeginDate,EndDate,HireType,UseType,PriceOfDiscount,TruePrice,BookDateTime,BookStatus,PayStatus,PayedMoney"
StrCondition = "Deleted="& EL_False &" And BookStatus<3 And UserID="& EL_User.UserID
If BookStatus <> -1 Then StrCondition = StrCondition &" And BookStatus="& BookStatus &" "
If PayStatus <> -1 Then StrCondition = StrCondition &" And PayStatus="& PayStatus &" "
Call EL_Common.InitCommand(BookCmd, "EL_SP_SplitPage")
With BookCmd
.Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
.Parameters.Append .CreateParameter("@Tables", 200, 1, 50, "EL_CarBook")
.Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "BookID")
.Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "BookDateTime 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 rsBook = .Execute()
End With
rsBook.Close()
RowCount = BookCmd(0)
TotalRowCount = BookCmd(9)
PageCounts = BookCmd(10)
CurrentPath = CurrentPath &" >> 所有"
Select Case BookStatus
Case 0: CurrentPath = CurrentPath &"<span class='redtext'>未确认</span>"
Case 1: CurrentPath = CurrentPath &"<span class='bluetext'>已确认</span>"
Case 2: CurrentPath = CurrentPath &"<span class='greentext'>已结清</span>"
End Select
Select Case PayStatus
Case 0: CurrentPath = CurrentPath &"<span class='redtext'>未付款</span>"
Case 1: CurrentPath = CurrentPath &"<span class='bluetext'>尚付款</span>"
Case 2: CurrentPath = CurrentPath &"<span class='greentext'>已付清</span>"
End Select
CurrentPath = CurrentPath &"订单"
AllTotalPrice = EL_Common.GetFieldValue("SUM(TruePrice)", "EL_CarBook", StrCondition)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -