📄 admin_sightbook.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<%
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(21, 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

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"

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_SightBook.asp">景点订单管理首页</a> | <a href="Admin_SightBook.asp?SearchType=1">今日订单</a> | <a href="Admin_SightBook.asp?SearchType=2">一周内订单</a> | <a href="Admin_SightBook.asp?SearchType=3">半个月内订单</a> | <a href="Admin_SightBook.asp?SearchType=4">一个月内订单</a> | <a href="Admin_SightBook.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_SightBook.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="SightName">景点名称</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 SaveMofiyBook(0)
   Case "SetBookStatus": Call SaveMofiyBook(1)
   Case "Delete": Call SaveMofiyBook(2)
   Case "Restore": Call SaveMofiyBook(3)
   Case "RestoreAll": Call SaveMofiyBook(4)
   Case "DeleteTrue": Call SaveMofiyBook(5)
   Case "DeleteTrueAll": Call SaveMofiyBook(6)
End Select
Call EL_Common.Bottom()
Call ApplicationTerminate()


Sub SaveMofiyBook(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_ModifySightBook")
   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, BookPriceInfo
BookID = EL_Common.ELRequest("BookID", 2)
Call EL_Common.InitCommand(BookCmd, "EL_SP_GetSightBook")
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()

CurrentPath = CurrentPath &" >> 查看订单"
%>
<script language="javascript">
function doDelete(){
   var frm = getObject("myform");
   frm.action += "?DelType=1"
   getObject("Action").value = "Delete";
   if(confirm("确认要删除订单吗？")){
     frm.submit();
	 return;
  }
}
function SaveModify(){
   var frm = getObject("myform");
   getObject("Action").value = "SaveModify";
   frm.submit();
}
function BookConfirm(ConfirmType){
   var frm = getObject("myform");
   frm.action = 'Admin_SightBook.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_SightBook.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="11%" 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="26%" class="item_25"><%=EL_Common.ServerHTMLEncode(rsBook("UserName"))%></td>
      <td width="12%" align="right" class="td_ItemName"><strong>客户名：</strong></td>
      <td colspan="3" class="item_25"><%=EL_Common.ServerHTMLEncode(rsBook("TrueName"))%></td>
12 3 下一页
💿 文件大小 4678 K
👤 上传用户 libin2722
📂 所属分类企业管理
🏷️ 相关标签

#Elan #2008 #SP #旅游
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -