📄 user_order.asp
字号:
<!--#include file="Inc/Const.asp"-->
<%
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 = "User_Order.asp?SearchType="&SearchType&"&Field="&Field&"&Keyword="&Keyword&""
Header
%>
<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="User_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> <a href="User_Order.asp">订单管理首页</a></td>
</form>
<form action="User_Order.asp" method="post" name="form2" id="form2">
<td><b>高级查询：</b>
<select name="Field" id="Field">
<option value="OrderNum" selected="selected">订单编号</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>
</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 "DelOrder"
call DelOrder()
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 Where UserID="&Clng(Cl.UserID)&" "
Select Case SearchType
Case 0
SQL=SQL & " Order by OrderID Desc"
Case 1
If IsSqlDataBase=1 Then
SQL=SQL & " and datediff(d,AddTime," & SqlNowString & ")<1 order by OrderID Desc"
else
SQL=SQL & " and datediff('d',AddTime," & SqlNowString & ")<1 order by OrderID Desc"
end if
Case 2
If IsSqlDataBase=1 Then
SQL=SQL & " and datediff(week,AddTime," & SqlNowString & ")<10 order by OrderID Desc"
else
SQL=SQL & " and datediff('w',AddTime," & SqlNowString & ")<10 order by OrderID Desc"
end if
Case 3
If IsSqlDataBase=1 Then
SQL=SQL & " and datediff(month,AddTime," & SqlNowString & ")<1 order by OrderID Desc"
else
SQL=SQL & " and datediff('m',AddTime," & SqlNowString & ")<1 order by OrderID Desc"
end if
Case 4
If IsSqlDataBase=1 Then
SQL=SQL & " and datediff(month,AddTime," & SqlNowString & ")<3 order by OrderID Desc"
else
SQL=SQL & " and datediff('m',AddTime," & SqlNowString & ")<3 order by OrderID Desc"
end if
Case 5
SQL=SQL & " and Status=0 order by OrderID Desc"
Case 6
SQL=SQL & " and Status=1 order by OrderID Desc"
Case 7
SQL=SQL & " and Status=2 order by OrderID Desc"
Case 8
SQL=SQL & " and Status=3 order by OrderID Desc"
Case 9
SQL=SQL & " and Status=4 order by OrderID Desc"
Case 10
SQL=SQL & " and Status=5 order by OrderID Desc"
Case 11
SQL=SQL & " and Invoiced="&FalseType&" order by OrderID Desc"
Case 12
SQL=SQL & " and Invoiced="&TrueType&" order by OrderID Desc"
Case 13
If Keyword="" Then
Cl.ShowErr("错误，关键字不能为空！")
End if
Keyword=Cl.ReplaceBadChar(Keyword)
SQL=SQL & " and "
Select Case Field
Case "OrderNum"
SQL=SQL & "OrderNum 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 Where UserID="&Clng(Cl.UserID)&"")(0)
MReceiptA= Cl.Execute("Select Sum(MoneyReceipt) From Cl_Order Where UserID="&Clng(Cl.UserID)&"")(0)
%>
<table class="border" border="0" cellspacing="1" width="100%" cellpadding="0" align="center">
<form name="myform" method="Post" action="User_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 align="center" 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="User_Order.asp?Action=ShowOrder&OrderID=<%=SQL(0,i)%>"><%=SQL(1,i)%></a></td>
<td><a href="User_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><%=Status%></td>
<td align="center">
<a href="User_Order.asp?Action=ShowOrder&OrderID=<%=SQL(0,i)%>">查看</a>
<a href="User_Order.asp?Action=ModifyOrder&OrderID=<%=SQL(0,i)%>">修改</a>
<%if SQL(18,i)=0 then%>
<a href="User_Order.asp?Action=DelOrder&OrderID=<%=SQL(0,i)%>" onclick="return confirm('确定要删除这个订单吗？');">删除</a>
<%end if%>
</td>
</tr>
<%Next%>
<tr align="center" class="tdbg">
<td colspan="4" align="right"><b>本页合计：</b></td><td align="right">￥<%=Cl.FormatNum(MTotalP,2)%></td><td align="right">￥<%=Cl.FormatNum(MReceiptP,2)%></td><td colspan="3"> </td>
</tr>
<tr align="center" class="tdbg">
<td colspan="4" align="right"><b>总计金额：</b></td><td align="right">￥<%=Cl.FormatNum(MTotalA,2)%></td><td align="right">￥<%=Cl.FormatNum(MReceiptA,2)%></td><td colspan="3"> </td>
</tr>
</form>
</table>
<%
Response.write Cl.ShowPage(FileName,TotalPut,PageSize,"个","订单")
SQL=Empty
End sub
Sub ShowOrder()
OrderID=Cl.GetClng(OrderID)
if OrderID=0 then
Cl.ShowErr("<br /><li>请指定订单ID！</li>")
end if
Dim Payment,Deliver,PaymentName,DeliverName,PaymentDiscount,DeliverCharge
Set rs= Cl.Execute("select * from Cl_Order where OrderID="&OrderID&" ")
if rs.eof and rs.bof then
rs.Close : Set Rs=Nothing
Cl.ShowErr("<br /><li>此订单不存在！</li>")
End if
if rs("NeedInvoice") then
if rs("Invoiced") then
NeedInvoice="<font color=""blue"">√</font>"
else
NeedInvoice="<font color=""red"">×</font>"
end if
else
NeedInvoice="不需要"
end if
Select Case rs("Status")
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
PaymentName=Cl.GetPaymentName(rs("PaymentType"))
Set Deliver=Cl.Execute("select TypeName,Charge from Cl_DeliverType where TypeID="&rs("DeliverType")&"")
if Not Deliver.Eof then
DeliverName = Deliver(0)
DeliverCharge = Deliver(1)
End if
Deliver.Close:Set Deliver = Nothing
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr align="center" class="title">
<td height="22" colspan=4><b>订 单 信 息</b>(<%=rs("OrderNum")%>)</td>
</tr>
<tr class="tdbg">
<td width="25%" height="23"><b>订单编号：</b><font color="blue"><%=rs("OrderNum")%></font></td>
<td width="25%"><b>订单状态：</b><%=Status%></td>
<td width="25%"><b>付款方式：</b><font color="green"><%=PaymentName%></font></td>
<td width="25%"><b>送货方式：</b><font color="green"><%=DeliverName%></font></td>
</tr>
<tr class="tdbg">
<td width="25%" height="23"><b>客户姓名：</b><%=rs("UserName")%></td>
<td width="25%"><b>已开发票：</b><%=Needinvoice%></td>
<td width="25%" colspan=2><b>下单时间：</b><font color="red"><%=rs("AddTime")%></font></td>
</tr>
<tr align="center" class="title">
<td height="22" colspan=4><b>收 货 人 信 息</b></td>
</tr>
<tr class="tdbg">
<td width="50%" height="23" colspan=2><b>收货人姓名：</b><%=rs("ConSignee")%></td>
<td width="50%" colspan=2><b>联系电话：</b><%=rs("phone")%></td>
</tr>
<tr class="tdbg">
<td width="50%" colspan=2><b>收货人邮箱：</b><%=rs("email")%></td>
<td width="50%" colspan=2><b>邮政编码：</b><%=rs("zipcode")%></td>
</tr>
<tr class="tdbg">
<td colspan=4><b>收货人地址：</b><%=rs("address")%></td>
</tr>
<%if rs("NeedInvoice") then%>
<tr class="tdbg">
<td colspan=4><b>发票 抬头：</b><%=rs("InvoiceHead")%></td>
</tr>
<%end if%>
<tr class="tdbg">
<td colspan=4><b>备注 留言：</b><%=rs("Remark")%></td>
</tr>
<tr align="center" class="title">
<td height="22" colspan=4><b>商 品 信 息</b></td>
</tr>
<tr align="right">
<td align="center" colspan=4>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr align="center" class="tdbg" height="25">
<td><b>商 品 名 称</b></td>
<td width="40"><b>单位</b></td>
<td width="50"><b>数量</b></td>
<td width="60"><b>市场价</b></td>
<td width="60"><b>会员价</b></td>
<td width="60"><b>实际价</b></td>
<td width="80"><b>总金额</b></td>
<td width="60"><b>总积分</b></td>
<td width="60"><b>购买日期</b></td>
<td width="60"><b>服务期限</b></td>
<td width="40"><b>备注</b></td>
</tr>
<%
dim rsOrderItem,PresentExp,MoneySum
Set rsOrderItem = Cl.Execute("Select P.InfoID,P.ProductName,P.ProductModel,P.MarketPrice,P.MemberPrice,P.TruePrice,P.ProductUnit,I.BuyNum,I.TotalPrice,I.BeginDate,I.ServiceTerm,I.Remark,I.PresentExp As PresentExp From Cl_OrderItem I Inner Join Cl_Product P on I.InfoID=P.InfoID where I.OrderID="&OrderID&" Order by I.ItemID")
Do While Not rsOrderItem.EOF
%>
<tr valign="middle" class="tdbg" height="20">
<td><%=rsOrderItem("ProductName")%></td>
<td width="40" align="center"><%=rsOrderItem("ProductUnit")%></td>
<td width="50" align="center"><%=rsOrderItem("BuyNum")%></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -