📄 admin_shopbook.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
function CheckedAll(){
  for (var i=0;i<document.myform.elements.length;i++){
    var e = document.myform.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
       e.checked = true;
    }
  }
  getObject("myselect").innerHTML = "[<a href='javascript:CancelAll()'>取消</a>]";
}
function CancelAll(){
  for (var i=0;i<document.myform.elements.length;i++){
    var e = document.myform.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
       e.checked = false;
    }
  }
  getObject("myselect").innerHTML = "[<a href='javascript:CheckedAll()'>全选</a>]";
}
function CheckObject(){
   var frm = getObject("myform");
   for (var i=0;i<frm.elements.length;i++){
    var e = frm.elements[i];
    if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false && e.checked == true ){
       return true
    }
  }
  return false;
}
function Check(frm){
  SubmitOnce(frm);
  return true;
}
function doDelete(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1份订单");
	 return false;
  }
  frm.action = "Admin_ShopBook.asp?Action=Delete";
  if(confirm("确认要执行选定删除吗？")){
     frm.submit();
	 return;
  }
  return false;
}
function doRestore(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1份订单");
	 return false;
  }
  frm.action = "Admin_ShopBook.asp?Action=Restore";
  if(confirm("确认要还原选定订单吗？")){
     frm.submit();
	 return;
  }
  return false;
}
function doRestoreAll(){
  var frm = getObject("myform");
  frm.action = "Admin_ShopBook.asp?Action=RestoreAll";
  if(confirm("确认要还原所有订单吗？")){
     frm.submit();
	 return;
  }
  return false;
}
function doDeleteTrue(){
  var frm = getObject("myform");
  if(!CheckObject()){
     alert("请至少选定1份订单");
	 return false;
  }
  frm.action = "Admin_ShopBook.asp?Action=DeleteTrue";
  if(confirm("确认要彻底删除选定订单吗？")){
     frm.submit();
	 return;
  }
  return false;
}
function doDeleteTrueAll(){
  var frm = getObject("myform");
  frm.action = "Admin_ShopBook.asp?Action=DeleteTrueAll";
  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="" method="post">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="3%" align="center" nowrap class="top_item"><strong>选择</strong></td>
    <td width="19%" align="center" nowrap class="top_item"><strong>订单号</strong></td>
    <td width="10%" align="center" nowrap class="top_item"><strong>收货人名</strong></td>
    <td width="10%" align="center" nowrap class="top_item"><strong>会员名</strong></td>
    <td width="17%" align="center" nowrap class="top_item"><strong>订单时间</strong></td>
    <td width="7%" align="center" nowrap class="top_item"><strong>兑换数量</strong></td>
    <td width="9%" align="center" nowrap class="top_item"><strong>总<%=PointItemName%></strong></td>
    <td width="8%" align="center" nowrap class="top_item"><strong>订单状态</strong></td>
    <td width="8%" align="center" nowrap class="top_item"><strong>发货</strong></td>
	<% If ManageType = "Recycled" Then %>
	<td width="9%" align="center" nowrap class="top_item"><strong>回收站操作</strong></td>
	<% End If %>
  </tr>
  <%
    If RowCount = 0 Then
	   If ManageType = "Recycled" Then
	      Response.Write "<tr><td colspan=11 class=td_50 align=center>没有任何订单</td></tr>"
	   Else
	      Response.Write "<tr><td colspan=10 class=td_50 align=center>没有任何订单</td></tr>"
	   End If
	Else
	   rsBook.Open()
	   For i = 1 To RowCount
  %>
  <tr class="td_25" onMouseOver="this.className='MouseOver_25'" onMouseOut="this.className='td_25'">
    <td align="center"><input name="CheckObject" type="checkbox" id="CheckObject" value="<%=rsBook("BookID")%>"></td>
    <td align="center">
	<a href="Admin_ShopBook.asp?Action=Show&BookID=<%=rsBook("BookID")%>" title="商品名称：<%=EL_Common.ServerHTMLEncode(rsBook("ProductName"))%>">
	<%	 
	  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 align="center"><%=EL_Common.ServerHTMLEncode(rsBook("ContactUserName"))%></td>
    <td align="center"><a href="Admin_User.asp?Action=Show&UserID=<%=rsBook("UserID")%>"><%=EL_Common.ServerHTMLEncode(rsBook("UserName"))%></a></td>
    <td align="center"><%=rsBook("BookDateTime")%></td>
    <td align="right" class="redText"><%=rsBook("ProductNum")%>&nbsp;</td>
    <td align="right" class="BlueText"><%=rsBook("TotalPoints")%>&nbsp;</td>
    <td align="center"><%=ArrBookStatus(rsBook("BookStatus"))%></td>
    <td align="center"><%=ArrSendStatus(rsBook("SendStatus"))%></td>
	<% If ManageType = "Recycled" Then %>
	<td align="center" nowrap="nowrap"><a href="Admin_ShopBook.asp?Action=Restore&BookID=<%=rsBook("BookID")%>">还原</a> | <a href="Admin_ShopBook.asp?Action=DeleteTrue&BookID=<%=rsBook("BookID")%>" onClick="return confirm('确认要将此订单彻底删除吗？')">彻底删除</a></td>
	<% End If %>
  </tr>
  <%
		  If i<RowCount Then rsBook.MoveNext
	   Next
	   rsBook.Close()
	End If
  %>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td width="12%"><span id="myselect">[<a href="javascript:CheckedAll()">全选</a>]</span></td>
    <td width="88%" align="right" nowrap><%Call EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, "订单", "份")%></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td height="50" align="center"> 
	<%
	  Dim Disabled
	  If RowCount = 0 Then Disabled = "disabled"
	%>
	<% If ManageType = "Recycled" Then %>
	<input type="button" name="Submit2" value="还原选定订单" onClick="doRestore()" <%=Disabled%>>
	<input type="button" name="Submit2" value="还原所有订单" onClick="doRestoreAll()" <%=Disabled%>>
	<input type="button" name="Submit2" value="彻底删除选定订单" onClick="doDeleteTrue()" <%=Disabled%>>
	<input type="button" name="Submit2" value="彻底删除所有订单" onClick="doDeleteTrueAll()" <%=Disabled%>>
	<% Else %>
	<input type="button" name="Submit2" value="删除选定订单" onClick="doDelete()" <%=Disabled%>>
	<% End If %>
	</td>
  </tr>
</table>
</form>
<%
Set rsBook = Nothing
Set BookCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub PrintBook()
On Error Resume Next
Response.Clear()
Response.Write "<link href='Admin_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_GetShopBook")
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="item_25"><%=EL_Common.RemoveHTML(ArrBookStatus(rsBook("BookStatus")))%> &nbsp; <%=EL_Common.RemoveHTML(ArrSendStatus(rsBook("SendStatus")))%> </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>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>商品名称：</strong></td>
    <td class="item_25"><%=EL_Common.ServerHTMLEncode(rsBook("ProductName"))%></td>
    <td align="right" nowrap class="td_ItemName"><strong>兑换数量：</strong></td>
    <td width="17%" class="item_25"><%=rsBook("ProductNum")%></td>
    <td align="right" class="td_ItemName"><strong><%=PointItemName%>：</strong></td>
    <td class="item_25"><%=rsBook("BookPoints")%></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>确认方式：</strong></td>
    <td colspan="5" class="item_25"><%=EL_Common.ServerHTMLEncode(rsBook("ConfirmType"))%></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>其他说明：</strong></td>
    <td colspan="5" class="item_25"><%=EL_Common.HTMLEncode(rsBook("Demand"))%></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>收货人名：</strong></td>
    <td class="item_25"><%=EL_Common.HTMLEncode(rsBook("ContactUserName"))%></td>
    <td align="right" class="td_ItemName"><strong>手机号码：</strong></td>
    <td class="item_25"><%=EL_Common.HTMLEncode(rsBook("Mobile"))%></td>
    <td align="right" class="td_ItemName"><strong>传真号码：</strong></td>
    <td class="item_25"><%=EL_Common.HTMLEncode(rsBook("Fax"))%></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>电话号码：</strong></td>
    <td class="item_25"><%=EL_Common.HTMLEncode(rsBook("Phone"))%></td>
    <td align="right" class="td_ItemName"><strong>电子邮件：</strong></td>
    <td class="item_25"><%=EL_Common.HTMLEncode(rsBook("Email"))%></td>
    <td align="right" class="td_ItemName"><strong>邮政编码：</strong></td>
    <td class="item_25"><%=EL_Common.HTMLEncode(rsBook("ZipCode"))%></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>邮寄地址：</strong></td>
    <td colspan="5" class="item_25"><%=EL_Common.HTMLEncode(rsBook("Address"))%></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>所需<%=PointItemName%>：</strong></td>
    <td colspan="5" class="item_25"><%=rsBook("BookPoints") & PointItemUnit%> x <%=rsBook("ProductNum")%> = <span style="font-size:18px; font-weight:bold;"><%=rsBook("BookPoints") * rsBook("ProductNum")%>&nbsp;<%=PointItemUnit%></span></td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName"><strong>订单处理备注：</strong></td>
    <td colspan="5" class="item_25"><%=EL_Common.HTMLEncode(rsBook("Remark"))%></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></td>
  </tr>
</table>
<%
Set rsBook = Nothing
Set BookCmd = Nothing
EL_Common.ShowScriptError()
Call ApplicationTerminate()
End Sub
%>

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

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

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