⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 user_sightbook.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<%
Option Explicit
Response.buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="../Inc/Const.asp"-->
<!--#Include File="User_CheckPurview.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="User_Style.css" type="text/css" rel="stylesheet">
<script language="javascript" src="../Js/Common.js"></script>
<title>景点订单管理</title>
</head>
<body>
<%
Dim CurrentPage, CurrentPath, URLParameters, BookStatus, PayStatus
Dim ArrPayStatus(5), ArrBookStatus(5), PayOnlineProvider(10), ArrPayType(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"

CurrentPage = EL_Common.ELRequest("page", 2)
BookStatus = EL_Common.ELRequest("BookStatus", 1)
PayStatus = EL_Common.ELRequest("PayStatus", 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

URLParameters = request.ServerVariables("QUERY_STRING")
If CurrentPage<1 Then 
   CurrentPage = 1
Else
   URLParameters = EL_Common.ReplaceText(URLParameters, "&*page=[0-9]*", "")
End If

CurrentPath = "·您现在的位置：<a href='"& EL_CurrentScriptName &"'>景点订单管理</a> "
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="13%" background="Images/navbg.gif"><img src="Images/navtitle.gif" width="113" height="37"></td>
    <td width="87%" background="Images/navbg.gif">| <a href="User_HotelBook.asp" class="nav">酒店订单</a> | <a href="User_FlightBook.asp" class="nav">机票订单</a> | <a href="User_ProductBook.asp" class="nav">度假订单</a> | <a href="User_SightBook.asp" class="nav">景点订单</a> | <a href="User_CarBook.asp" class="nav">租车订单</a> | <a href="User_ShopBook.asp" class="nav">商品兑换</a> | <a href="User_Payment.asp" class="nav">订单付款记录</a> | </td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="13%" class="td_22"></td>
    <td width="87%" class="td_22">
	<div style="float:left;">
	  <input name="BookStatus" type="radio" class="nomargin" value="-1" <%=EL_Common.SetObjectChecked(-1, BookStatus)%> onClick="location.href='<%=EL_CurrentScriptName%>?PayStatus=<%=PayStatus%>&BookStatus=-1'"> 所有订单
	  <input name="BookStatus" type="radio" class="nomargin" value="0" <%=EL_Common.SetObjectChecked(0, BookStatus)%> onClick="location.href='<%=EL_CurrentScriptName%>?PayStatus=<%=PayStatus%>&BookStatus=0'"> 未确认订单
	  <input name="BookStatus" type="radio" class="nomargin" value="1" <%=EL_Common.SetObjectChecked(1, BookStatus)%> onClick="location.href='<%=EL_CurrentScriptName%>?PayStatus=<%=PayStatus%>&BookStatus=1'"> 已确认订单	  
	  <input name="BookStatus" type="radio" class="nomargin" value="2" <%=EL_Common.SetObjectChecked(2, BookStatus)%> onClick="location.href='<%=EL_CurrentScriptName%>?PayStatus=<%=PayStatus%>&BookStatus=2'"> 已结清订单
	</div>
	<div style="float:left; padding-left:10px;">	  
	   <select name="PayStatus" id="PayStatus" onChange="location.href='<%=EL_CurrentScriptName%>?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>	
	</td>
  </tr>
</table>
<div class="dw">
<%
Select Case Action
   Case "": Call ManageBook()
   Case "Show": Call ShowBook()
   Case "Print": Call PrintBook()
   Case "SaveModify": Call SaveModify(7)
   Case "Cancel": Call SaveModify(8)
End Select
Call ApplicationTerminate()

Sub SaveModify(SetType)
   On Error Resume Next
   Dim BookCmd
   Dim BookID, ContactUserName, CheckInUserName, CustomerType, Mobile, Phone, Fax, Email
   
   BookID = EL_Common.ELRequest("BookID", 2)
   ContactUserName = EL_Common.ELRequest("ContactUserName", 1)
   CheckInUserName = EL_Common.ELRequest("CheckInUserName", 1)
   CustomerType = EL_Common.ELRequest("CustomerType",1)
   Mobile = EL_Common.ELRequest("Mobile", 1)
   Phone = EL_Common.ELRequest("Phone", 1)
   Fax = EL_Common.ELRequest("Fax", 1)
   Email = EL_Common.ELRequest("Email", 1)
   
   If ContactUserName = "" Then
      EL_Common.ShowErrorMsg("请输入联系人名")
	  Exit Sub
   End If
   If Mobile = ""  And Phone = "" Then
      EL_Common.ShowErrorMsg("请输入手机号码或电话号码")
	  Exit Sub
   End If
   
   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, BookID)
	  .Parameters.Append .CreateParameter("@ContactUserName", 200, 1, 50, ContactUserName)
	  .Parameters.Append .CreateParameter("@Mobile", 200, 1, 50, Mobile)
	  .Parameters.Append .CreateParameter("@Phone", 200, 1, 50, Phone)
	  .Parameters.Append .CreateParameter("@Fax", 200, 1, 50, Fax)
	  .Parameters.Append .CreateParameter("@Email", 200, 1, 100, Email)
	  .Parameters.Append .CreateParameter("@TruePrice", 6, 1, 8, 0)
	  .Parameters.Append .CreateParameter("@BookStatus", 3, 1, 4, 0)
	  .Parameters.Append .CreateParameter("@Remark", 200, 1, 1000, "")
	  .Parameters.Append .CreateParameter("@Editor", 200, 1, 50, "")
	  .Execute()
   End With  
   Set BookCmd = Nothing
   EL_Common.ShowScriptError()
   If SetType = 7 Then
      EL_Common.ShowSuccessMsg("订单修改成功")
   Elseif SetType = 8 Then
      ComeURL = "User_SightBook.asp"
	  EL_Common.ShowSuccessMsg("订单取消成功")
   End If
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 Cancel(){
   var frm = getObject("myform");
   getObject("Action").value = "Cancel";
   if(confirm("确认要取消订单吗？")){
     frm.submit();
	 return;
  }
}
function SaveModify(){
   var frm = getObject("myform");
   getObject("Action").value = "SaveModify";
   frm.submit();
   return;
}
</script>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<form name="myform" action="User_SightBook.asp" method="post" onSubmit="SubmitOnce(this)">
  <table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
    <tr>
      <td colspan="6" class="top_26"><strong>查看订单号：</strong><%=rsBook("BookNumber")%></td>
    </tr>
    <tr>
123

⌨️ 快捷键说明

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