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

📄 admin_order.asp

📁 正版创力4.1SQL商业版!!!ASP版。
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
<!--#include file="Inc/Const.asp"-->
<%
if Not Cl.TrueChannelPurview(1,ChannelID) then Cl.ShowErr("<li>您无此操作权限！</li>")
const PageSize=20
dim Action,OrderID,SearchType,Field,Keyword
dim OrderNum,NeedInvoice,Invoiced,Status
dim MReceiptP,MReceiptA,MTotalP,MTotalA
Action		= Trim(request("Action"))
OrderID		= Trim(request("OrderID"))
CurrentPage	= Cl.GetClng(request("page"))
SearchType	= Cl.GetClng(request("SearchType"))
Field		= Trim(request("Field"))
Keyword		= Trim(request("Keyword"))
FileName = "Admin_Order.asp?SearchType="&SearchType&"&Field="&Field&"&Keyword="&Keyword&""
Header
%>
<script src="../inc/Js/selectdate.js" type="text/javascript"></script>
<script language="JavaScript" type="text/javascript">
function unselectall(){
	if(document.myform.chkAll.checked){
	document.myform.chkAll.checked = document.myform.chkAll.checked&0;
	}
}
function CheckAll(form)
{
	for (var i=0;i<form.elements.length;i++){
		var e = form.elements[i];
		if (e.name != 'chkAll'&&e.disabled==false)
		e.checked = form.chkAll.checked;
	}
}
function ConfirmDel()
{
	if(document.myform.Action.value=='Del'){
		if(confirm('确定要删除选中的订单吗？'))
			return true;
		else
			return false;
	}
}
</script>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">  
	<tr class="title"><td height="22" colspan="2" align="center"><b>订 单 管 理</b></td>
	</tr>    
	<tr class="tdbg" height="30">
		<form action="Admin_Order.asp" method="get" name="form1" id="form1">
		<td>快速查询：
			<select size="1" name="SearchType" onChange="javascript:submit()">  
			<option value="0" selected="selected">所有订单</option>
			<option value="1">今 天 的订单</option>
			<option value="2">本 周 的订单</option>
			<option value="3">本 月 的订单</option>
			<option value="4">三个月内的订单</option>
			<option value="5">未处理的订单</option>
			<option value="6">已付款的订单</option>
			<option value="7">已到账的订单</option>
			<option value="8">已发货的订单</option>
			<option value="9">已签收的订单</option>
			<option value="10">已完成的订单</option>
			<option value="11">未开票的订单</option>
			<option value="12">已开票的订单</option>
		  </select>&nbsp;&nbsp;&nbsp;&nbsp;<a href="Admin_Order.asp">订单管理首页</a></td>
		</form>
		<form action="Admin_Order.asp" method="post" name="form2" id="form2">
		<td><b>高级查询：</b>
			<select name="Field" id="Field">
			<option value="OrderNum" selected="selected">订单编号</option>
			<option value="UserID">用户ID</option>
			<option value="UserName">用户名</option>
			<option value="ConSignee">收货人</option>
			<option value="Address">联系地址</option>
			<option value="ZipCode">邮编</option>
			<option value="Phone">联系电话</option>
			<option value="Email">联系邮箱</option>
			</select>
			<input name="Keyword" type="text" id="Keyword" size="20" maxlength="30" />
			<input type="submit" name="Submit2" value=" 查 询 " />
			<input name="SearchType" type="hidden" id="SearchType" value="13" />
		</td>
		</form>
	</tr>
	<tr class="tdbg"><td colspan="2">
	<table border="0" cellpadding="0" cellspacing="0" width="100%">
		<form action="Admin_Order.asp" method="get" name="out" id="out">
		<tr>
			<td width="130" align="right"><input name="SelectType" type="radio" value="ID" checked="checked" />
		    按ＩＤ范围选择：</td>
			<td height="28" width="310" align="left">起始ＩＤ<input type="text" name="BeginID"  size="10" value="1" />
			&nbsp;终止ＩＤ<input type="text" name="EndID"  size="10" value="1000" /></td>
			<td rowspan="2" align="left"><input name="Action" type="hidden" id="Action" value="outExcel" />
		    <input type="submit" name="Submit"  value="导出到EXCEL" /></td>
		</tr>
		<tr>
			<td width="130" align="right"><input name="SelectType" type="radio" value="Date" />
		    按日期范围选择：</td>
			<td height="28" align="left">起始日期<input type="text" name="BeginDate" id="BeginDate" size="10" maxlength="10" onfocus="show_cele_date(BeginDate,'','',BeginDate)" value="<%=Cdate(FormatDatetime(now,2))-30%>" />
			&nbsp;结束日期<input type="text" name="EndDate" id="EndDate" size="10" maxlength="10" onfocus="show_cele_date(EndDate,'','',EndDate)" value="<%=FormatDatetime(now,2)%>" /></td>
		</tr>
	</form>
	</table>
	</td></tr>
</table>
<script language="JavaScript" type="text/javascript">
CheckSel('SearchType','<%=SearchType%>');
CheckSel('Field','<%=Field%>');
</script>
<br />
<%
Select Case Action
Case "Main"
	Call OrderMain()
Case "ShowOrder"
	Call ShowOrder()
Case "ModifyOrder"
	Call ModifyOrder()
Case "SaveModifyOrder"
	call SaveModifyOrder()
Case "Status"
	Call SetStatus()
Case "Invoiced"
	Call SetInvoiced()
Case "PrintOrder"
	Call PrintOrder()
Case "DelOrder"
	Call DelOrder()
Case "outExcel"
	Call outExcel()
Case else
	Call OrderMain()
end Select

Footer

Sub OrderMain()
	SQL="Select OrderID,OrderNum,UserID,UserName,ConSignee,Address,ZipCode,Phone,Email,PaymentType,DeliverType,NeedInvoice,InvoiceHead,DeliverCharge,MoneyReceipt,MoneySum,MoneyTotal,PresentExp,Status,Invoiced,BeginDate,AddTime from Cl_Order"
	Select Case SearchType
	Case 0
		SQL=SQL & " Order by OrderID Desc"
	Case 1
		If IsSqlDataBase=1 Then
			SQL=SQL & " where datediff(d,AddTime," & SqlNowString & ")<1 order by OrderID Desc"
		else
			SQL=SQL & " where datediff('d',AddTime," & SqlNowString & ")<1 order by OrderID Desc"
		end if
	Case 2
		If IsSqlDataBase=1 Then
			SQL=SQL & " where datediff(week,AddTime," & SqlNowString & ")<1 order by OrderID Desc"
		else
			SQL=SQL & " where datediff('w',AddTime," & SqlNowString & ")<1 order by OrderID Desc"
		end if
	Case 3
		If IsSqlDataBase=1 Then
			SQL=SQL & " where datediff(month,AddTime," & SqlNowString & ")<1 order by OrderID Desc"
		else
			SQL=SQL & " where datediff('m',AddTime," & SqlNowString & ")<1 order by OrderID Desc"
		end if
	Case 4
		If IsSqlDataBase=1 Then
			SQL=SQL & " where datediff(month,AddTime," & SqlNowString & ")<3 order by OrderID Desc"
		else
			SQL=SQL & " where datediff('m',AddTime," & SqlNowString & ")<3 order by OrderID Desc"
		end if
	Case 5
		SQL=SQL & " where Status=0 order by OrderID Desc"
	Case 6
		SQL=SQL & " where Status=1 order by OrderID Desc"
	Case 7
		SQL=SQL & " where Status=2 order by OrderID Desc"
	Case 8
		SQL=SQL & " where Status=3 order by OrderID Desc"
	Case 9
		SQL=SQL & " where Status=4 order by OrderID Desc"
	Case 10
		SQL=SQL & " where Status=5 order by OrderID Desc"
	Case 11
		SQL=SQL & " where Invoiced="&FalseType&" order by OrderID Desc"
	Case 12
		SQL=SQL & " where Invoiced="&TrueType&" order by OrderID Desc"
	Case 13
		If Keyword="" Then
			Cl.ShowErr("错误，关键字不能为空！")
		End if
		Keyword=Cl.ReplaceBadChar(Keyword)
		SQL=SQL & " where "
		Select Case Field
		Case "OrderNum"
			SQL=SQL & "OrderNum Like '%"&Keyword&"%' "
		Case "UserID"
			SQL=SQL & "UserID="&Cl.GetClng(Keyword)&" "
		Case "UserName"
			SQL=SQL & "UserName Like '%"&Keyword&"%' "
		Case "ConSignee"
			SQL=SQL & "ConSignee Like '%"&Keyword&"%' "
		Case "Address"
			SQL=SQL & "Address Like '%"&Keyword&"%' "
		Case "ZipCode"
			SQL=SQL & "ZipCode Like '%"&Keyword&"%' "
		Case "Phone"
			SQL=SQL & "Phone Like '%"&Keyword&"%' "
		Case "Email"
			SQL=SQL & "Email Like '%"&Keyword&"%' "
		Case Else
			SQL=SQL & "OrderNum Like '%"&Keyword&"%' "
		End Select
		SQL=SQL & " Order by OrderID Desc"
	Case Else
		SQL=SQL & " Order by OrderID Desc"
	End Select
	Set rs= Server.CreateObject("ADODB.Recordset")
	OpenConn : rs.open sql,Conn,1,1
	if rs.eof and rs.bof then
		TotalPut=0
		response.write "<p align=center><br />找不到订单！<br /></p>"
		rs.close:set rs=Nothing:Exit Sub
	End if
	TotalPut=rs.recordcount
	if (TotalPut mod PageSize)=0 then
		TotalPages = TotalPut \ PageSize
	else
		TotalPages = TotalPut \ PageSize + 1
	end if
	if CurrentPage > TotalPages then CurrentPage=TotalPages
	if CurrentPage < 1 then CurrentPage=1
	rs.move (CurrentPage-1)*PageSize
	SQL		= rs.GetRows(PageSize)
	rs.close : set rs=Nothing
	MTotalA	= Cl.Execute("Select Sum(MoneyTotal) From Cl_Order")(0)
	MReceiptA= Cl.Execute("Select Sum(MoneyReceipt) From Cl_Order")(0)
	%>
	<table class="border" border="0" cellspacing="1" width="100%" cellpadding="0" align="center">
	<form name="myform" method="Post" action="Admin_Order.asp" onSubmit="return confirm('确定要删除选定的订单吗？');">
	<tr align="center" class="title">
		<td width="30">选中</td>
		<td width="130">订单编号</td>
		<td>客户姓名</td>
		<td width="120">下单时间</td>
		<td width="100">订单金额</td>
		<td width="100">收到金额</td>
		<td width="60">已开发票</td>
		<td width="60">订单状态</td>
		<td width="100">操作</td>
	</tr> 
	<%
	MReceiptP=0 : MTotalP=0
	For i=0 to Ubound(SQL,2)
		MReceiptP	= MReceiptP + SQL(14,i)
		MTotalP		= MTotalP + SQL(16,i)
		if SQL(11,i) then
			if SQL(19,i) then
				NeedInvoice="<font color=""blue"">√</font>"
			else
				NeedInvoice="<font color=""red"">×</font>"
			end if
		else
			NeedInvoice="不需要"
		end if
		Select Case SQL(18,i)
		Case 0
			Status="<font color=""red"">未处理</font>"
		Case 1
			Status="<font color=""green"">已付款</font>"
		Case 2
			Status="<font color=""blue"">已到账</font>"
		Case 3
			Status="<font color=""blue"">已发货</font>"
		Case 4
			Status="<font color=""gray"">已收货</font>"
		Case 5
			Status="<font color=""gray"">已完成</font>"
		End Select
	%>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
		<td><input name="OrderID" type="checkbox" onclick="unselectall()" id="OrderID" value="<%=SQL(0,i)%>"></td>
		<td><a href="Admin_Order.asp?Action=ShowOrder&OrderID=<%=SQL(0,i)%>"><%=SQL(1,i)%></a></td>
		<td><a href="Admin_User.asp?Action=Modify&UserID=<%=SQL(2,i)%>"><%=SQL(3,i)%></a></td>
		<td><%=SQL(21,i)%></td>
		<td align="right">￥<%=Cl.FormatNum(SQL(16,i),2)%></td>
		<td align="right">￥<font color="red"><%=Cl.FormatNum(SQL(14,i),2)%></font></td>
		<td><%=NeedInvoice%></td>
		<td><a style="cursor:pointer;" onClick="showlayer('span<%=SQL(0,i)%>',1);"><%=Status%></a>
		<span class="hidden" id="span<%=SQL(0,i)%>">
			<p style="width:80px;font-size:13px;align:center;">
			<a href="Admin_Order.asp?Action=Status&Nums=1&OrderID=<%=SQL(0,i)%>">设为<font color="green">已付款</font></a><br />
			<a href="Admin_Order.asp?Action=Status&Nums=2&OrderID=<%=SQL(0,i)%>">设为<font color="blue">已到账</font></a><br />
			<a href="Admin_Order.asp?Action=Status&Nums=3&OrderID=<%=SQL(0,i)%>">设为<font color="blue">已发货</font></a><br />
			<a href="Admin_Order.asp?Action=Status&Nums=4&OrderID=<%=SQL(0,i)%>">设为<font color="gray">已收货</font></a><br />
			<a href="Admin_Order.asp?Action=Status&Nums=5&OrderID=<%=SQL(0,i)%>">设为<font color="gray">已完成</font></a><br /><br />
			<input name="button" type="button" id="button" value="取消" onClick="showlayer('span<%=SQL(0,i)%>',0);" style="cursor:hand;"></p>
		</span>
		</td>
		<td align="center">
		<a href="Admin_Order.asp?Action=ShowOrder&OrderID=<%=SQL(0,i)%>">查看</a>&nbsp;
		<a href="Admin_Order.asp?Action=ModifyOrder&OrderID=<%=SQL(0,i)%>">修改</a>
		<%if SQL(18,i)=0 then%>
		&nbsp;<a href="Admin_Order.asp?Action=DelOrder&OrderID=<%=SQL(0,i)%>" onclick="return confirm('确定要删除这个订单吗？');">删除</a>
123

⌨️ 快捷键说明

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