📄 user_sightbook.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
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_SightBook", StrCondition)
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="17%" align="center" nowrap class="top_Item"><strong>订单号</strong></td>
    <td width="24%" align="center" nowrap class="top_Item"><strong>订单名称</strong></td>
    <td width="9%" align="center" nowrap class="top_Item"><strong>会员名</strong></td>
    <td width="14%" align="center" nowrap class="top_Item"><strong>订单时间</strong></td>
    <td width="7%" align="center" nowrap class="top_Item"><strong>订单金额</strong></td>
    <td width="7%" align="center" nowrap class="top_Item"><strong>实际付款</strong></td>
    <td width="8%" align="center" nowrap class="top_Item"><strong>订单状态</strong></td>
    <td width="7%" align="center" nowrap class="top_Item"><strong>付款</strong></td>
    <td width="7%" align="center" nowrap class="top_Item"><strong>支付</strong></td>
  </tr>
  <%
    If RowCount = 0 Then
	   Response.Write "<tr><td colspan=10 class=td_50 align=center>没有任何订单</td></tr>"
	Else
	   rsBook.Open()
	   For i = 1 To RowCount
  %>
  <tr class="td_22" onMouseOver="this.className='MouseOver_22'" onMouseOut="this.className='td_22'">
    <td align="center"><a href="User_SightBook.asp?Action=Show&BookID=<%=rsBook("BookID")%>">
      <%	 
	  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 style="padding-left:5px;" title="旅行日期：<%=rsBook("TravelDate")%>&#13;人&nbsp;&nbsp;&nbsp;&nbsp;数：<%=rsBook("Person")%>"><%=EL_Common.ServerHTMLEncode(rsBook("SightName"))%></td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(rsBook("UserName"))%></td>
    <td align="center"><%=rsBook("BookDateTime")%></td>
    <td align="right" class="redText"><%=EL_Common.ELFormatCurrency(rsBook("PriceOfDiscount"))%>&nbsp;</td>
    <td align="right" class="BlueText"><%=EL_Common.ELFormatCurrency(rsBook("TruePrice"))%>&nbsp;</td>
    <td align="center"><%=ArrBookStatus(rsBook("BookStatus"))%></td>
    <td align="center"><%=ArrPayStatus(rsBook("PayStatus"))%></td>
    <td align="center"><% If rsBook("PayStatus") < 2 Then %>
      <a href="User_PayOnline.asp?Action=Step2&BookType=4&BookNumber=<%=rsBook("BookNumber")%>&PayMoney=<%=rsBook("TruePrice")-rsBook("PayedMoney")%>">在线支付</a>
      <% End If %></td>
  </tr>
  <%
          PageTotalPrice = PageTotalPrice + rsBook("TruePrice")
		  If i<RowCount Then rsBook.MoveNext
	   Next
	   rsBook.Close()
	End If
  %>
  <tr class="td_22">
    <td colspan="5" align="right"><strong>本页合计：</strong></td>
    <td colspan="5" class="GreenText" style="padding-left:5px; font-weight:bold;"><%=EL_Common.ELFormatCurrency(PageTotalPrice)%></td>
  </tr>
  <tr class="td_22">
    <td colspan="5" align="right"><strong>订单总合计：</strong></td>
    <td colspan="5" 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 align="right"><%=EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, "订单", "份")%></td>
    </tr>
</table>
<%
Set rsBook = Nothing
Set BookCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub PrintBook()
On Error Resume Next
Response.Clear()
Response.Write "<link href='User_Style.css' type='text/css' rel='stylesheet'>"
Response.Write "<style>body{color:#000000;} td{color:#000000;}</style>"
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()

%>
  <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="td_item_22"><%=EL_Common.RemoveHTML(ArrBookStatus(rsBook("BookStatus")))%> &nbsp; <%=EL_Common.RemoveHTML(ArrPayStatus(rsBook("PayStatus")))%> </td>
      <td width="11%" align="right" class="td_ItemName"><strong>订单时间：</strong></td>
      <td width="22%" class="td_item_22"><%=rsBook("BookDateTime")%></td>
    </tr>
    <tr>
      <td align="right" class="td_ItemName"><strong>会员名：</strong></td>
      <td width="26%" class="td_item_22"><%=EL_Common.ServerHTMLEncode(rsBook("UserName"))%></td>
      <td width="12%" align="right" class="td_ItemName"><strong>客户名：</strong></td>
      <td colspan="3" class="td_item_22"><%=EL_Common.ServerHTMLEncode(rsBook("TrueName"))%></td>
    </tr>
    <tr>
      <td align="right" class="td_ItemName"><strong>景点名称：</strong></td>
      <td colspan="5" class="td_item_22">[<%=EL_Common.ServerHTMLEncode(rsBook("SightArea"))%>] <%=EL_Common.ServerHTMLEncode(rsBook("SightName"))%></td>
    </tr>
    <tr>
      <td align="right" nowrap class="td_ItemName"><strong>旅行日期：</strong></td>
      <td class="td_item_22"><%=rsBook("TravelDate")%></td>
      <td align="right" class="td_ItemName"><strong>人数：</strong></td>
      <td width="17%" class="td_item_22"><%=rsBook("Person")%></td>
      <td align="right" class="td_ItemName"><strong>确认方式：</strong></td>
      <td 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">&nbsp;&nbsp;<strong>联系人信息</strong></td>
    </tr>
    <tr>
      <td align="right" class="td_ItemName"><strong>联系人名：</strong></td>
      <td class="td_item_22"><%=EL_Common.HTMLEncode(rsBook("ContactUserName"))%></td>
      <td align="right" class="td_ItemName"><strong>手机号码：</strong></td>
      <td class="td_item_22"><%=EL_Common.HTMLEncode(rsBook("Mobile"))%></td>
      <td align="right" class="td_ItemName"><strong>传真号码：</strong></td>
      <td class="td_item_22"><%=EL_Common.HTMLEncode(rsBook("Fax"))%></td>
    </tr>
    <tr>
      <td align="right" class="td_ItemName"><strong>电话号码：</strong></td>
      <td class="td_item_22"><%=EL_Common.HTMLEncode(rsBook("Phone"))%></td>
      <td align="right" class="td_ItemName"><strong>电子邮件：</strong></td>
      <td colspan="3" class="td_item_22"><%=EL_Common.HTMLEncode(rsBook("Email"))%></td>
    </tr>
    <tr>
      <td colspan="6" class="MouseOver_22">&nbsp;&nbsp;<strong>订单价格信息</strong></td>
    </tr>
    <tr>
      <td align="right" class="td_ItemName"><strong>门市价格：</strong></td>
      <td class="td_item_22"><%=EL_Common.ELFormatCurrency(rsBook("MarketPrice"))%></td>
      <td align="right" class="td_ItemName"><strong>是否打折：</strong></td>
      <td class="td_item_22"><%=EL_Common.ShowBoolean(rsBook("IsDiscount").value, "是", "否")%></td>
      <td align="right" class="td_ItemName"><strong>享受折扣：</strong></td>
      <td 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"><%="￥"& rsBook("BookPrice") &" x "& rsBook("Person") &" 人 = <span style='font-size:18px; font-weight:bold; margin:0px;'>￥"& (rsBook("BookPrice") * rsBook("Person")) &"</span>"%></td>
      <td align="right" class="td_ItemName"><strong>折后价格：</strong></td>
      <td class="td_item_22"><%=EL_Common.ELFormatCurrency(rsBook("PriceOfDiscount"))%></td>
    </tr>
    <tr>
      <td align="right" class="td_ItemName"><strong>实际收款：</strong></td>
      <td class="td_item_22"><%=EL_Common.ELFormatCurrency(rsBook("TruePrice"))%></td>
    </tr>
    <tr>
      <td align="right" class="td_ItemName"><strong>已付金额：</strong></td>
      <td class="td_item_22"><%=EL_Common.ELFormatCurrency(rsBook("PayedMoney"))%></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
%>
</div>

</body>
</html>
上一页 1 23
💿 文件大小 4678 K
👤 上传用户 libin2722
📂 所属分类企业管理
🏷️ 相关标签

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

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