📄 user_order.asp
字号:
<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 align="center" 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='User_Order.asp?Action=ModifyOrder&OrderID=<%=OrderID%>'">
<%if rs("Status")=0 then%>
<input type="button" name="Submit" value="删除订单" onClick="javascript:if(confirm('确定要删除此订单吗？')){window.location.href='User_Order.asp?Action=DelOrder&OrderID=<%=OrderID%>';}">
<input type="button" name="Submit" value="在线支付" onClick="window.location.href='../PayOnline/PayOnline.asp?OrderID=<%=OrderID%>'">
<input type="button" name="Submit" value="银行汇款" onClick="window.location.href='../Help.asp?Action=remit'">
<!--<input type="button" name="Submit" value="汇款确认" onClick="window.location.href='../PayOnline/PayOnline.asp?OrderID=<%=OrderID%>'"> -->
<%end if%>
<%if rs("Status")<3 then%>
<input type="button" name="Submit" value=" 已收货 " onClick="window.location.href='User_Order.asp?Action=SendGoods&OrderID=<%=OrderID%>'">
<%end if%>
<input type="button" name="Submit" value="打印订单" onClick="window.location.href='User_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="User_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%> disabled></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 "disabled"
elseif rs("Status")=0 then
response.write "checked"
end if%>> <font color="red">未处理</font> -->>
<input type="radio" name="Status" value="1" <%
if rs("Status")>1 then
response.write "disabled"
elseif rs("Status")=1 then
response.write "checked"
end if%>> <font color="green">已付款</font> -->>
<input type="radio" name="Status" value="2" disabled <%if rs("Status")=2 then response.write "checked"%>> <font color="blue">已到账</font> -->>
<input type="radio" name="Status" value="3" disabled <%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 "disabled"
elseif rs("Status")=4 then
response.write "checked"
end if%>> <font color="gray">已收货</font> -->>
<input type="radio" name="Status" value="5" disabled <%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" disabled>
<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 disabled></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")&""" disabled></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">
<td colspan=4><b>需要 发票：</b><INPUT id=NeedInvoice type=checkbox value="yes" name=NeedInvoice <%if rs("NeedInvoice") then%>checked<%end if%>></td>
</tr>
<tr class="tdbg">
<td colspan=4><b>发票 抬头：</b><INPUT id=InvoiceHead maxLength=250 size=80 value="<%=rs("InvoiceHead")%>" name=InvoiceHead></td>
</tr>
<tr class="tdbg">
<td colspan=4><b>备注 留言：</b><TEXTAREA id=Remark name=Remark cols=60 rows=3><%=rs("Remark")%></TEXTAREA></td>
</tr>
<tr align="center" class="title">
<td height="22" colspan=4><b>商 品 信 息</b></td>
</tr>
<tr align="right">
<td height="30" 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>
</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><input name="InfoID" type="hidden" value="<%=rsOrderItem("InfoID")%>"><%=rsOrderItem("ProductName")%></td>
<td width="40" align=center><%=rsOrderItem("ProductUnit")%></td>
<td width="50" align="center"><input name="BuyNum" type="text" size="3" maxlength="2" value="<%=rsOrderItem("BuyNum")%>" readonly style="text-align:right"></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" ><input name="TotalPrice" type="text" size="10" maxlength="10" value="<%=Cl.FormatNum(rsOrderItem("TotalPrice"),2)%>" readonly style="text-align:right"></td>
<td width="60" align=center><input name="PresentExp" type="text" size="4" maxlength="5" value="<%=rsOrderItem("PresentExp")%>" readonly style="text-align:right"></td>
<td width="60" align=center><input name="ServiceTerm" type="text" size="4" maxlength="4" value="<%=rsOrderItem("ServiceTerm")%>" readonly style="text-align:right"></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="40" align="center"><%=rs("PresentExp")%></td>
<td align="left"> </td>
</tr>
<tr class="tdbg">
<td colspan="4">运费：￥<%=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=5><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="right" class=tdbg>
<td height="30" align="center" colspan=4>
<input type="submit" name="submit" value=" 保存订单 ">
<input type="button" name="Submit2" value=" 取 消 " onClick="window.location.href='User_Order.asp?Action=ShowOrder&OrderID=<%=rs("OrderID")%>';">
</td>
</tr>
</form>
</table>
<%
rs.close:set rs=Nothing
End Sub
Sub SaveModifyOrder()
OrderID=Cl.GetClng(OrderID)
if OrderID=0 then
Cl.ShowErr("<br /><li>请指定订单ID！</li>")
end if
dim ConSignee,Address,Email,InvoiceHead,Phone,ZipCode,PaymentType,DeliverType,Remark
dim Status,TaxCharge,Invoiced,ThisDeliverCharge
ConSignee = Trim(request.form("ConSignee"))
Address = Trim(request.form("Address"))
Email = Trim(request.form("Email"))
InvoiceHead = Trim(request.form("InvoiceHead"))
Phone = Trim(request.form("Phone"))
ZipCode = Trim(request.form("ZipCode"))
PaymentType = Cl.GetClng(request.form("PaymentType"))
DeliverType = Cl.GetClng(request.form("DeliverType"))
Remark = Trim(request.form("Remark"))
Needinvoice = Trim(request.form("Needinvoice"))
Invoiced = Trim(request.form("Invoiced"))
Status = Cl.GetClng(request.form("Status"))
if Lcase(NeedInvoice)="yes" then
NeedInvoice=True
Else
NeedInvoice=False
End if
if Lcase(Invoiced)="yes" then
Invoiced=True
Else
Invoiced=False
End if
Set Rs=Cl.Execute("select Charge from Cl_DeliverType where TypeId="&DeliverType)
If Not Rs.Eof Then
ThisDeliverCharge = Rs(0)
Else
ThisDeliverCharge=0
End If
Set Rs=Nothing
set Rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from Cl_Order where OrderID="&OrderID&""
OpenConn : Rs.open sql,Conn,1,3
if Rs.bof and Rs.eof then
Rs.close : set Rs=nothing
Cl.ShowErr("<br /><li>此订单不存在！</li>")
End if
if rs("Status")>=5 then
Rs.close : set Rs=nothing
Cl.ShowErr("<br /><li>此订单您无权修改！</li>")
end if
'Rs("UserID")=Cl.UserID
'Rs("UserName")=Cl.MemberName
'Rs("OrderNum")=TmpOrderNum
Rs("ConSignee")=ConSignee
Rs("Address")=Address
Rs("ZipCode")=ZipCode
Rs("Phone")=Phone
Rs("Email")=Email
'Rs("PaymentType")=PaymentType
'Rs("DeliverType")=DeliverType
Rs("InvoiceHead")=InvoiceHead
'Rs("NeedInvoice")=NeedInvoice
Rs("Remark")=Remark
'Rs("MoneyTotal")=MoneyTotal'订单总金额
'Rs("MoneySum")=MoneySum'购买商品合计金额
'Rs("BeginDate")=Cl.Format_Time(now(),4)'开始服务日期
'Rs("AddTime")=now()'录入时间
'Rs("PresentExp")=PresentExp'得到的积分
'Rs("TaxRate")=Clng(Cl.Product_Setting(9))
'Rs("TaxCharge")=TaxCharge
'Rs("DeliverCharge")=ThisDeliverCharge'运费
if Status<5 and Rs("Status")<Status then
Rs("Status")=Status
end if
'Rs("Invoiced")=Invoiced
Rs.Update
Rs.close : set Rs=nothing
Cl.SaveAdminLog
Call Cl.OutMsg(0,"恭喜您，订单已成功修改！","User_order.asp?Action=ShowOrder&OrderID="&OrderID)
End Sub
Sub DelOrder()
OrderID=Cl.GetClng(OrderID)
if OrderID=0 then
Cl.ShowErr("<br /><li>请指定订单ID！</li>")
end if
set Rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from Cl_Order where OrderID="&OrderID&""
OpenConn : Rs.open sql,Conn,1,3
if Rs.bof and Rs.eof then
Rs.close : set Rs=nothing
Cl.ShowErr("<br /><li>此订单不存在！</li>")
End if
if rs("Status")>0 then
Rs.close : set Rs=nothing
Cl.ShowErr("<br /><li>此订单您无权删除！</li>")
end if
rs.delete
rs.Update
Cl.SaveUserLog
Call Cl.OutMsg(0,"操作成功，所选订单已被删除！",ComeUrl)
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -