📄 admin_order.asp
字号:
<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 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")%>" 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")%>" style="text-align:right"></td>
<td width="60" align=center><input name="ServiceTerm" type="text" size="4" maxlength="4" value="<%=rsOrderItem("ServiceTerm")%>" 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='Admin_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
ThisDeliverCharge=Cl.Execute("select Charge from Cl_DeliverType where TypeId="&DeliverType)(0)
if Not IsNumeric(ThisDeliverCharge) then ThisDeliverCharge=0
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
'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'运费
Rs("Status")=Status
Rs("Invoiced")=Invoiced
Rs.Update
Rs.close : set Rs=nothing
Cl.SaveAdminLog
Call Cl.OutMsg(0,"恭喜您，操作成功，请按确定返回！","-2")
End Sub
Sub SetStatus()
OrderID=Cl.GetClng(OrderID)
if OrderID=0 then
Cl.ShowErr("<br /><li>请指定订单ID！</li>")
end if
Dim sNum
sNum = Cl.GetClng(Request("Nums"))
Cl.Execute("Update Cl_Order Set Status="&sNum&" Where OrderID="&OrderID&"")
Call Cl.OutMsg(0,"恭喜您，操作成功，请按确定返回！","-1")
End Sub
Sub SetInvoiced()
OrderID=Cl.GetClng(OrderID)
if OrderID=0 then
Cl.ShowErr("<br /><li>请指定订单ID！</li>")
end if
Cl.Execute("Update Cl_Order Set Invoiced="&TrueType&" Where OrderID="&OrderID&"")
Call Cl.OutMsg(0,"恭喜您，操作成功，请按确定返回！","-1")
End Sub
Sub DelOrder()
If Clng(Cl.Admin_Purview(0))<>1 then
Cl.ShowErr("<br /><li>对不起，你的权限不够！</li>")
end if
if OrderID="" then
Cl.ShowErr("<br /><li>请先选择要删除的订单ID！</li>")
end if
if Instr(OrderID,",")>0 then
OrderID=replace(OrderID," ","")
Cl.Execute("delete from Cl_OrderItem where OrderID in (" & OrderID & ")")
Cl.Execute("delete from Cl_Order where OrderID in (" & OrderID & ")")
else
OrderID=Cl.GetClng(OrderID)
Cl.Execute("delete from Cl_OrderItem where OrderID = " & OrderID & " ")
Cl.Execute("delete from Cl_Order where OrderID = " & OrderID & " ")
end if
Cl.SaveAdminLog
Call Cl.OutMsg(0,"操作成功，所选订单已被删除！",ComeUrl)
End Sub
Sub outExcel()
Dim Rs,SQL
Dim x,sTemp
Dim Fso,MyFile
Dim sFileName,tFileName
Dim SelectType,BeginID,EndID
Dim BeginDate,EndDate
SelectType = Trim(Request("SelectType"))
BeginID = Cl.GetClng(Request("BeginID"))
EndID = Cl.GetClng(Request("EndID"))
BeginDate = Trim(Request("BeginDate"))
EndDate = Trim(Request("EndDate"))
sFileName = "Cl_Order"
'On Error Resume Next
'Set Fso=Server.CreateObject(Trim(Cl.Web_Info(13)))
'if Err then Cl.ErrMessage
'On Error GoTo 0
SQL = "Select * From Cl_Order Where "
if Lcase(SelectType)="id" then
if EndID <= 0 then Cl.OutMsg 0,"结束ID不能小于或等于0","-1"
if EndID < BeginID then Cl.OutMsg 0,"结束ID不能大于开始ID","-1"
SQL = SQL & "OrderID>="&BeginID&" and OrderID<="&EndID&" Order by OrderID Asc"
sFileName = sFileName & "_" & BeginID & "-" & EndID
else
if Not IsDate(BeginDate) or Not IsDate(EndDate) then
Cl.OutMsg 0,"请正确输入日期格式！","-1"
end if
BeginDate = Cdate(BeginDate) : EndDate = Cdate(EndDate)
if BeginDate > Now() then Cl.OutMsg 0,"开始日期不能大于今天！","-1"
if EndDate < BeginDate then Cl.OutMsg 0,"结束日期不能大于开始日期！","-1"
If IsSqlDataBase=1 Then
SQL=SQL & "datediff(d,AddTime,'" & BeginDate & "')<=0 and datediff(d,AddTime,'" & EndDate & "')>=0 Order by OrderID Asc"
else
SQL=SQL & "(datediff('d',AddTime,'" & BeginDate & "')<=0) and (datediff('d',AddTime,'" & EndDate & "')>=0) order by OrderID Asc"
end if
sFileName = sFileName & "_" & BeginDate & "_" & EndDate
end if
'Response.write SQL
'Response.end
sFilename = sFileName&".xls"
'tFileName = Server.MapPath(sFileName)
Rem 如果原来的EXCEL文件存在的话删除它
'if Fso.FileExists(tFileName) then
' Fso.DeleteFile(tFileName)
'end if
Rem 创建EXCEL文件
'Set Myfile = Fso.CreateTextFile(tFileName,True)
Set Rs = Cl.Execute(SQL)
For Each x In Rs.Fields
sTemp = sTemp & x.Name & chr(9)
Next
Rem 将表的列名先写入EXCEL
'MyFile.WriteLine sTemp
sTemp = sTemp & vbNewLine
Do while Not Rs.eof
'sTemp = ""
For Each x In Rs.Fields
sTemp = sTemp & x.value & chr(9)
Next
Rem 将表的数据写入EXCEL
'MyFile.WriteLine sTemp
sTemp = sTemp & vbNewLine
Rs.MoveNext
LooP
Rs.Close : set rs = nothing
'Set Fso=Nothing
'Response.write "生成文件成功，<a href='"&sFilename&"'>点击下载</a>"
'Response.end
Rem 如果是生成EXCEL文件，请奖下面的代码都注消掉
Rem =========Begin
Response.Clear
Response.AddHeader "content-disposition","attachment;filename="&sFilename&""
'Response.AddHeader "Content-Length", intFilelength
Response.Charset = "gb2312"
Response.ContentType = "application/vnd.xls"
Response.Write sTemp
'Response.BinaryWrite sTemp
Response.Flush
Response.end
Rem =========End
End Sub
%>
<!--
'┌───────────────────────────────────────────────────────┐
'│ │
'│ CreateLive CMS Version 4.0 │
'│ Powered by Aspoo.CN │
'│ │
'│ 邮箱: support@aspoo.cn Info@aspoo.cn │
'│ ＱＱ: 3315263 596197794 │
'│ 网站: www.aspoo.cn www.aspoo.com │
'│ 论坛: bbs.aspoo.cn bbs.aspoo.com │
'│ │
'│ Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved. │
'└───────────────────────────────────────────────────────┘
'-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -