📄 admin_carbook.asp
字号:
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="Admin_CheckPurview.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href='Admin_Style.css' type='text/css' rel='stylesheet'>
<title>租车订单管理</title>
<script language="javascript" src="../js/Common.js"></script>
<script language="javascript" src="../js/InstallDir.js"></script>
<script language="javascript" src="../Js/Ajax.js"></script>
</head>
<body>
<%
If EL_Admin.Purview <> 1 Then
If EL_Admin.CheckAdminPurview(17, 3) = False And EL_Admin.CheckAdminPurview(25, 3) = False Then
EL_Admin.ShowPurviewError("对不起！您没有足够的管理权限")
End If
End If
Dim CurrentPath, Search_Keywords, Search_Field
Dim ArrPayStatus(5), ArrBookStatus(5), PayOnlineProvider(10), ArrPayType(1), BookStatus, PayStatus, SearchType, ManageType
Dim ArrHireType(2), ArrUseType(1)
ArrPayStatus(0) = "<span class=redtext>未付款</span>"
ArrPayStatus(1) = "<span class=bluetext>尚欠款</span>"
ArrPayStatus(2) = "<span class=greentext>已付清</span>"
ArrPayStatus(3) = "<span class=graytext>客户取消</span>"
ArrBookStatus(0) = "<span class=redtext>未确认</span>"
ArrBookStatus(1) = "<span class=bluetext>已确认</span>"
ArrBookStatus(2) = "<span class=greentext>已结清</span>"
ArrBookStatus(3) = "<span class=graytext>客户取消</span>"
ArrPayType(0) = "银行汇款"
ArrPayType(1) = "在线支付"
PayOnlineProvider(1) = "网银在线1.1版"
PayOnlineProvider(2) = "网银在线2.0版"
PayOnlineProvider(3) = "中国在线支付网"
PayOnlineProvider(4) = "易付通"
PayOnlineProvider(5) = "支付宝支付"
PayOnlineProvider(6) = ""
PayOnlineProvider(7) = ""
PayOnlineProvider(8) = ""
PayOnlineProvider(9) = "上海环迅IPS"
ArrHireType(0) = "时租"
ArrHireType(1) = "日租"
ArrHireType(2) = "月租"
ArrUseType(0) = "自驾"
ArrUseType(1) = "带司机"
Search_Keywords = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Search_Keywords", 1))
Search_Field = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Search_Field", 1))
BookStatus = EL_Common.ELRequest("BookStatus", 1)
PayStatus = EL_Common.ELRequest("PayStatus", 1)
SearchType = EL_Common.ELRequest("SearchType", 2)
ManageType = EL_Common.ELRequest("ManageType", 1)
If BookStatus = "" Then
BookStatus = -1
Else
BookStatus = EL_Common.ELClng(BookStatus)
End If
If PayStatus = "" Then
PayStatus = -1
Else
PayStatus = EL_Common.ELClng(PayStatus)
End If
CurrentPath = "·您现在的位置：<a href='"& EL_CurrentScriptName &"'>租车订单管理</a> "
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td align="center" class="top_25"><strong>租车订单管理</strong></td>
</tr>
<tr>
<td class="td_50">管理导航：<a href="Admin_CarBook.asp">租车订单管理首页</a> | <a href="Admin_CarBook.asp?SearchType=1">今日订单</a> | <a href="Admin_CarBook.asp?SearchType=2">一周内订单</a> | <a href="Admin_CarBook.asp?SearchType=3">半个月内订单</a> | <a href="Admin_CarBook.asp?SearchType=4">一个月内订单</a> | <a href="Admin_CarBook.asp?ManageType=Recycled">订单回收站</a></td>
</tr>
<tr>
<td class="item_25">
<div class="leftdiv">
<input name="BookStatus" type="radio" class="nomargin" value="-1" <%=EL_Common.SetObjectChecked(-1, BookStatus)%> onClick="location.href='<%=EL_CurrentScriptName%>?ManageType=<%=ManageType%>&SearchType=<%=SearchType%>&PayStatus=<%=PayStatus%>&BookStatus=-1'"> 所有订单
<input name="BookStatus" type="radio" class="nomargin" value="0" <%=EL_Common.SetObjectChecked(0, BookStatus)%> onClick="location.href='<%=EL_CurrentScriptName%>?ManageType=<%=ManageType%>&SearchType=<%=SearchType%>&PayStatus=<%=PayStatus%>&BookStatus=0'"> 未确认订单
<input name="BookStatus" type="radio" class="nomargin" value="1" <%=EL_Common.SetObjectChecked(1, BookStatus)%> onClick="location.href='<%=EL_CurrentScriptName%>?ManageType=<%=ManageType%>&SearchType=<%=SearchType%>&PayStatus=<%=PayStatus%>&BookStatus=1'"> 已确认订单
<input name="BookStatus" type="radio" class="nomargin" value="2" <%=EL_Common.SetObjectChecked(2, BookStatus)%> onClick="location.href='<%=EL_CurrentScriptName%>?ManageType=<%=ManageType%>&SearchType=<%=SearchType%>&PayStatus=<%=PayStatus%>&BookStatus=2'"> 已结清订单
</div>
<div class="leftdiv" style="padding-left:10px;">
<select name="PayStatus" id="PayStatus" onChange="location.href='<%=EL_CurrentScriptName%>?ManageType=<%=ManageType%>&SearchType=<%=SearchType%>&BookStatus=<%=BookStatus%>&PayStatus='+this.value">
<option value="-1" <%=EL_Common.SetObjectSelected(-1, PayStatus)%>>所有付款状态</option>
<option value="0" <%=EL_Common.SetObjectSelected(0, PayStatus)%>>未付款</option>
<option value="1" <%=EL_Common.SetObjectSelected(1, PayStatus)%>>尚欠款</option>
<option value="2" <%=EL_Common.SetObjectSelected(2, PayStatus)%>>已付清</option>
</select>
</div>
<div class="leftdiv" style="padding-left:10px; padding-top:4px; font-weight:bold">订单搜索：</div>
<div class="leftdiv">
<form name="SearchForm" action="Admin_CarBook.asp" method="get">
<select name="Search_Field" id="Search_Field">
<option value="BookNumber">订单号</option>
<option value="Username" selected="selected">会员名</option>
<option value="TrueName">客户名</option>
<option value="CarName">租车名称</option>
<option value="CheckInUserName">入住人</option>
<option value="Mobile">联系人手机</option>
<option value="Phone">联系人电话</option>
<option value="Email">电子邮件</option>
<option value="Demand">特殊要求</option>
<option value="BookDateTime">订单时间</option>
</select>
<input name="Search_Keywords" type="text" id="Search_Keywords" size="15">
<input type="submit" name="Submit" value="搜索">
</form>
</div>
</td>
</tr>
</table>
<br>
<%
Select Case Action
Case "": Call ManageBook()
Case "Show": Call ShowBook()
Case "Print": Call PrintBook()
Case "SaveModify": Call SaveModifyBook(0)
Case "SetBookStatus": Call SaveModifyBook(1)
Case "Delete": Call SaveModifyBook(2)
Case "Restore": Call SaveModifyBook(3)
Case "RestoreAll": Call SaveModifyBook(4)
Case "DeleteTrue": Call SaveModifyBook(5)
Case "DeleteTrueAll": Call SaveModifyBook(6)
End Select
Call EL_Common.Bottom()
Call ApplicationTerminate()
Sub SaveModifyBook(SetType)
On Error Resume Next
Dim BookCmd
Dim ArrBookID, BookID, TruePrice, SetBookStatus, Remark
BookID = EL_Common.ELRequest("BookID", 2)
ArrBookID = EL_Common.ELRequest("CheckObject", 1)
TruePrice = EL_Common.ELRequest("TruePrice", 2)
SetBookStatus = EL_Common.ELRequest("SetBookStatus", 2)
Remark = EL_Common.ELRequest("Remark", 1)
ArrBookID = EL_Common.Join2String(ArrBookID, BookID, ",")
Call EL_Common.InitCommand(BookCmd, "EL_SP_ModifyCarBook")
With BookCmd
.Parameters.Append .CreateParameter("RETURN", 2, 4)
.Parameters.Append .CreateParameter("@SetType", 3, 1, 4, SetType)
.Parameters.Append .CreateParameter("@ArrBookID", 200, 1, 500, ArrBookID)
.Parameters.Append .CreateParameter("@ContactUserName", 200, 1, 50, "")
.Parameters.Append .CreateParameter("@Mobile", 200, 1, 50, "")
.Parameters.Append .CreateParameter("@Phone", 200, 1, 50, "")
.Parameters.Append .CreateParameter("@Fax", 200, 1, 50, "")
.Parameters.Append .CreateParameter("@Email", 200, 1, 100, "")
.Parameters.Append .CreateParameter("@TruePrice", 6, 1, 8, TruePrice)
.Parameters.Append .CreateParameter("@BookStatus", 3, 1, 4, SetBookStatus)
.Parameters.Append .CreateParameter("@Remark", 200, 1, 1000, Remark)
.Parameters.Append .CreateParameter("@Editor", 200, 1, 50, EL_Admin.AdminName)
.Execute()
End With
Set BookCmd = Nothing
EL_Common.ShowScriptError()
Select Case SetType
Case 0:
Call EL_Common.InsertLog(3, ComeURL, "修改租车订单", EL_Admin.AdminName)
EL_Common.ShowSuccessMsg("订单修改成功")
Case 1:
If SetBookStatus = 1 Then
Call EL_Common.InsertLog(3, ComeURL, "确认租车订单", EL_Admin.AdminName)
EL_Common.ShowSuccessMsg("订单确认成功")
ElseIf SetBookStatus = 2 Then
Call EL_Common.InsertLog(3, ComeURL, "结清租车订单", EL_Admin.AdminName)
EL_Common.ShowSuccessMsg("成功结清订单")
End If
Case 2:
Call EL_Common.InsertLog(3, ComeURL, "删除租车订单", EL_Admin.AdminName)
EL_Common.ShowSuccessMsg("成功删除订单")
Case 3:
Call EL_Common.InsertLog(3, ComeURL, "还原租车订单", EL_Admin.AdminName)
EL_Common.ShowSuccessMsg("成功还原订单")
Case 4:
Call EL_Common.InsertLog(3, ComeURL, "还原所有租车订单", EL_Admin.AdminName)
EL_Common.ShowSuccessMsg("成功还原所有订单")
Case 5:
Call EL_Common.InsertLog(3, ComeURL, "彻底删除租车订单", EL_Admin.AdminName)
EL_Common.ShowSuccessMsg("订单已被彻底删除")
Case 6:
Call EL_Common.InsertLog(3, ComeURL, "清空租车订单回收站", EL_Admin.AdminName)
EL_Common.ShowSuccessMsg("回收站已清空")
End Select
End Sub
Sub ShowBook()
On Error Resume Next
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)
CurrentPath = CurrentPath &" >> 查看订单"
%>
<script language="javascript">
function doDelete(){
var frm = getObject("myform");
frm.action += "?DelType=1"
getObject("Action").value = "Delete";
if(confirm("确认要删除订单吗？")){
frm.submit();
return;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -