user_sightbook.asp

依蓝旅游网站管理系统Elan2008.SP2

      <td width="12%" align="right" class="td_ItemName"><strong>订单状态：</strong></td>
      <td colspan="3" class="td_item_22"><%=ArrBookStatus(rsBook("BookStatus"))%>
	  &nbsp;
      <%=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 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">&nbsp;&nbsp;<strong class="YellowText">订单价格信息</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, "<span class=bluetext>是</span>", "<span class=redtext>否</span>")%></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; color:#CC0000'>￥"& (rsBook("BookPrice") * rsBook("Person")) &"</span>"%></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 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=4&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_SightBook.asp?Action=Print&BookID=<%=BookID%>'">
      <input type="button" name="Submit2" value=" 返 回 " onClick="location.href='User_SightBook.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_SightBook' 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"))%>&nbsp;</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">&nbsp;<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,SightName,TravelDate,Person,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_SightBook")
  .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)