📄 admin_order.asp
字号:
<%end if%>
</td>
</tr>
<%Next%>
<tr 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 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>
<tr class="tdbg">
<td width="250" height="30" colspan="3"><input name="chkAll" type="checkbox" id="chkAll" onclick="CheckAll(this.form)" value="checkbox"> 选中本页显示的所有订单</td>
<td colspan="6"><input name="Action" type="hidden" id="Action" value="DelOrder"> <input type="submit" name="Submit" value="删除选定的订单"></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 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>
<td width="60" align="right"><%=Cl.FormatNum(rsOrderItem("MarketPrice"),2)%></td>
<td width="60" align="right"><%=Cl.FormatNum(rsOrderItem("MemberPrice"),2)%></td>
<td width="60" align="right"><%=Cl.FormatNum(rsOrderItem("TruePrice"),2)%></td>
<td width="80" align="right"><%=Cl.FormatNum(rsOrderItem("TotalPrice"),2)%></td>
<td width="60" align="center"><%=rsOrderItem("PresentExp")%></td>
<td width="60" align="center"><%=rsOrderItem("BeginDate")%></td>
<td width="60" align="center">-</td>
<td align=center width="40"></td>
</tr>
<%
rsOrderItem.MoveNext
Loop
rsOrderItem.Close
Set rsOrderItem = Nothing
MoneySum=rs("MoneySum")
%>
<tr class="tdbg">
<td height="30" colspan="6" align="right"><b>合计：</b></td>
<td align="right" width="80">￥<b><%=Cl.FormatNum(MoneySum,2)%></b></td>
<td width="60" align="center"><%=rs("PresentExp")%></td>
<td colspan="3" align="left"> </td>
</tr>
<tr class="tdbg">
<td colspan="5">运费：￥<%=DeliverCharge%> 发票税金：<%
Dim MoneyTotal
MoneyTotal=MoneySum+DeliverCharge
if rs("NeedInvoice") then
Response.write "￥" & rs("TaxCharge")
MoneyTotal=MoneyTotal+rs("TaxCharge")
else
Response.write "不需要"
end if
%>
赠送 <font color="red"><%=rs("PresentExp")%></font> 点积分</td>
<td align="right" colspan=6><b>实际金额：￥<%=Cl.FormatNum(MoneyTotal,2)%>
已付款：￥<font color="red"><%=Cl.FormatNum(rs("MoneyReceipt"),2)%></font>
<%if (MoneyTotal-rs("MoneyReceipt"))>0 then%>
<font color="blue">尚欠款：￥<%=Cl.FormatNum(MoneyTotal-rs("MoneyReceipt"),2)%></font>
<%end if%>
</b></td>
</tr>
</table></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" cellpadding="0" cellspacing="1" align="center">
<tr class="tdbg">
<td width="80"><b>付款人姓名</b></td>
<td width="120"><b>交易时间</b></td>
<td width="60"><b>交易方式</b></td>
<td width="50"><b>币种</b></td>
<td width="80"><b>支出金额</b></td>
<td width="40"><b>摘要</b></td>
<td><b>备注/说明</b></td>
</tr>
<tr class="tdbg">
<td colspan="4" align="right">合计金额：</td>
<td align="right"></td>
<td colspan="2" align="center"> </td>
</tr>
</table>
</td>
</tr>
<tr align="right" class=tdbg>
<td height="30" align="center" colspan=4>
<input type="button" name="Submit" value="修改订单" onClick="window.location.href='Admin_Order.asp?Action=ModifyOrder&OrderID=<%=OrderID%>'">
<%if rs("Status")=0 then%>
<input type="button" name="Submit" value="删除订单" onClick="javascript:if(confirm('确定要删除此订单吗？')){window.location.href='Admin_Order.asp?Action=DelOrder&OrderID=<%=OrderID%>';}">
<%end if%>
<%if rs("Status")<3 then%>
<input type="button" name="Submit" value=" 已发货 " onClick="window.location.href='Admin_Order.asp?Action=Status&Nums=3&OrderID=<%=OrderID%>'">
<%end if%>
<%if rs("Invoiced")=False then%>
<input type="button" name="Submit" value="已开发票" onClick="window.location.href='Admin_Order.asp?Action=Invoiced&OrderID=<%=OrderID%>'">
<%end if%>
<!--
<input type="button" name="Submit" value="打印订单" onClick="window.location.href='Admin_Order.asp?Action=PrintOrder&OrderID=<%=OrderID%>'">-->
</td>
</tr>
</table>
<%
rs.close:set rs=Nothing
End Sub
Sub ModifyOrder()
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
PaymentName=Cl.GetPaymentName(rs("PaymentType"))
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<form method="post" action="Admin_Order.asp?Action=SaveModifyOrder&OrderID=<%=OrderID%>" name="myform" >
<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><%=rs("UserName")%></td>
<td width="25%"><b>已开发票：</b><Input id="Invoiced" type="checkbox" value="yes" name="Invoiced" <%if rs("Invoiced") then%> checked<%end if%>></td>
<td colspan=2><b>下单时间：</b><font color="red"><%=rs("AddTime")%></font></td>
</tr>
<tr class="tdbg">
<td colspan=4><b>订单状态：</b>
<input type="radio" name="Status" value="0" <%if rs("Status")=0 then response.write "checked"%>> <font color="red">未处理</font> -->>
<input type="radio" name="Status" value="1" <%if rs("Status")=1 then response.write "checked"%>> <font color="green">已付款</font> -->>
<input type="radio" name="Status" value="2" <%if rs("Status")=2 then response.write "checked"%>> <font color="blue">已到账</font> -->>
<input type="radio" name="Status" value="3" <%if rs("Status")=3 then response.write "checked"%>> <font color="blue">已发货</font> -->>
<input type="radio" name="Status" value="4" <%if rs("Status")=4 then response.write "checked"%>> <font color="gray">已收货</font> -->>
<input type="radio" name="Status" value="5" <%if rs("Status")=5 then response.write "checked"%>> <font color="gray">已完成</font>
</td>
</tr>
<tr class="tdbg">
<td width="25%"><b>付款方式：</b>
<SELECT name="PaymentType" id="PaymentType">
<option value="0" <%if rs("PaymentType")=0 then%>selected<%end if%>>账户支付</option>
<option value="1" <%if rs("PaymentType")=1 then%>selected<%end if%>>在线支付</option>
<option value="2" <%if rs("PaymentType")=2 then%>selected<%end if%>>银行汇款</option>
<option value="3" <%if rs("PaymentType")=3 then%>selected<%end if%>>邮政汇款</option>
<option value="4" <%if rs("PaymentType")>3 then%>selected<%end if%>>其它支付</option>
</SELECT></td>
<td Colspan=3>
<b>送货方式：</b>
<table width="100%" border="0" cellpadding="2" cellspacing="1" class="tdbg">
<%
Set Deliver=Cl.Execute("select TypeID,TypeName,Intro from Cl_DeliverType where IsDisabled="&FalseType&" order by OrderID")
Do while not Deliver.eof
if Deliver("TypeID")=rs("DeliverType") then
response.write "<tr class=""tdbg""><td width=""20""><input type=""radio"" name=""DeliverType"" value="""&Deliver("TypeID")&""" checked></td><td width=""60"">"&Deliver("TypeName")&"</td><td>"&Deliver("Intro")&"</td></tr>"
else
response.write "<tr class=""tdbg""><td width=""20""><input type=""radio"" name=""DeliverType"" value="""&Deliver("TypeID")&"""></td><td width=""60"">"&Deliver("TypeName")&"</td><td>"&Deliver("Intro")&"</td></tr>"
end if
Deliver.movenext
Loop
Deliver.Close:Set Deliver = Nothing
%>
</table>
</td>
</tr>
<tr align="center" class="title">
<td height="22" colspan=4><b>收 货 人 信 息</b></td>
</tr>
<tr class="tdbg">
<td colspan=4><b>收货人姓名：</b><input name="ConSignee" type="text" size="50" maxlength="50" value=<%=rs("ConSignee")%>></td>
</tr>
<tr class="tdbg">
<td colspan=4><b>联系 电话：</b><input name="Phone" type="text" size="50" maxlength="50" value=<%=rs("Phone")%>></td>
</tr>
<tr class="tdbg">
<td colspan=4><b>收货人邮箱：</b><input name="Email" type="text" size="50" maxlength="50" value=<%=rs("Email")%>></td>
</tr>
<tr class="tdbg">
<td colspan=4><b>邮政 编码：</b><input name="ZipCode" type="text" size="30" maxlength="7" value=<%=rs("ZipCode")%>></td>
</tr>
<tr class="tdbg">
<td colspan=4><b>收货人地址：</b><input name="address" type="text" size="80" maxlength="200" value=<%=rs("address")%>></td>
</tr>
<tr class="tdbg">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -