📄 order_edit.asp
字号:
<!-- #include file="admin_protect.inc" -->
<!-- #include file="../opendb.inc" -->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta Name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta Name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; chaRset=gb2312">
<title>订单管理</title>
</head>
<body>
<script language="JavaScript">
<!--
function swapform()
{
document.form.submit();
}
//-->
</script>
<script language="JavaScript">
<!--//
function check()
{
if (isnan(go2to.page.value))
alert("请正确填写转到页数！");
else if (go2to.page.value=="")
{
alert("请输入转到页数！");
}
else
go2to.submit();
}
//-->
</script>
<%'打开数据库Orderformcustomer
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open(sqlOpenDB) '打开数据库
Sql="Select * From OrderFromCustomer Where OrderID='"&Request("OrderID")&"'" '取订单信息
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open Sql,Conn,1,3
%>
<%
If Request("Action")="send_order" Then
Carrier=Request("D1")
Set Rs_Carrier=Server.CreateObject("ADODB.RecordSet")
Sql="Select Carrierid From Carrier Where CompanyName='"&Carrier&"'"
Set Rs_Carrier=Conn.Execute(Sql)
Conn.Execute "Update OrderFromCustomer Set Done='1',Carrierid='"&Rs_Carrier("Carrierid")&"' Where OrderID='"&Request("send_order_Id")&"'"
Number=Request("Number")
For i=0 To Number-1
ProductID=Request.Form("Product_Id"&i)
Num=Request.Form("Num"&i)
Conn.Execute "Update OrderLine Set UnitsOrdered='"&Num&"' Where OrderID='"&Request("send_order_Id")&"'and ProductID='"&ProductID&"'"
Sql="Select UnitsOnOrder From Product Where ProductID='" & ProductID &"'"
Set Rs_Product=Conn.Execute(Sql)
UnitsOrdered=Rs_Product("UnitsOnOrder")
UnitsOrdered=UnitsOrdered+Num
Sql="Update Product Set UnitsOnOrder='" & UnitsOrdered & "' Where ProductID='" & ProductID & "'"
Conn.Execute(Sql) '减去订货量
Next
Response.Redirect "success.asp?Success=010"
End If
%>
<p> </p>
<form method="POST" Name="form" action="order_edit.asp">
<p> </p>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="25%">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<td width="40%"><b>订单编号</b></td>
<td width="60%"><%=Rs("OrderID")%> </td>
</tr>
</table>
</td>
<td width="25%">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3">
<tr>
<td width="50%"><b>提交时间</b></td>
<td width="50%"><%=Rs("OrderDate")%> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="50%" colspan="2">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
<tr>
<td width="20%"><b>货物号码</b></td>
<td width="20%"><b>货物名称</b></td>
<td width="20%"><b>单价</b></td>
<td width="20%"><b>定购数量</b></td>
<td width="20%"><b>小计</b></td>
</tr>
</table>
</td>
</tr>
<%
Sql="Select ProductID,UnitsOrdered From OrderLine Where OrderID='" & Rs("OrderID") & "'"
Set RsOrder=Conn.Execute(Sql)
Total=0
i=0
While Not RsOrder.Eof
Sql="Select Name,UnitPrice From Product Where ProductID='" & RsOrder("ProductID") & "'"
Set RsProduct=Conn.Execute(Sql)
%>
<tr>
<td width="50%" colspan="2">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5">
<tr>
<td width="20%"><%=RsOrder("ProductID")%> <input type="hidden" Name="product_id<%=i%>" value="<%=RsOrder("ProductID")%>">
</td>
<td width="20%"><%=RsProduct("Name")%> </td>
<td width="20%"><%=FormatCurrency(RsProduct("UnitPrice"))%> </td>
<td width="20%">
<%
If Rs("Done")=0 Then
%>
<input type="text" Name="num<%=i%>" size="5" value="<%=RsOrder("UnitsOrdered")%>">
<%
Else
Response.Write RsOrder("UnitsOrdered")
End If
%>
</td>
<td width="20%"><%=FormatCurrency(RsProduct("UnitPrice")*RsOrder("UnitsOrdered"))%> </td>
</tr>
</table>
</td>
</tr>
<%
i=i+1
Total=Total+RsProduct("UnitPrice")*RsOrder("UnitsOrdered")
RsOrder.MoveNext
Wend
%>
<tr>
<td width="50%" colspan="2">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber7">
<tr>
<td width="20%"><b>共计：</b></td>
<td width="80%"><%=FormatCurrency(Total)%> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="50%" colspan="2">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6">
<tr>
<td width="20%"><b>配送商：</b></td>
<td width="80%">
<%If Rs("Done")=0 Then
Set Rs_Carrier=Server.CreateObject("ADODB.RecordSet")
Rs_Carrier.Open"Carrier",Conn,1,3
%>
<select size="1" Name="D1">
<%While Not Rs_Carrier.Eof %>
<option><%=Rs_Carrier("CompanyName")%></option>
<%Rs_Carrier.MoveNext%>
<%Wend%>
</select>
<%Set Rs_Carrier=Nothing%>
<%Else
Set Rs_Carrier=Server.CreateObject("ADODB.RecordSet")
Sql="Select * From Carrier Where Carrierid='"&Rs("Carrierid")&"'"
Set Rs_Carrier=Conn.Execute(Sql)
%>
<%=Rs_Carrier("CompanyName")%>
<%Set Rs_Carrier=Nothing%>
<%End If%>
<input type="hidden" Name="num_product" value="<%=i%>">
</td>
</tr>
</table>
</td>
</tr>
</table>
<p>
<input type="hidden" Name="number" value="<%=i%>">
<%If Rs("Done")=0 Then%>
<input type="submit" value="发出订单" Name="B1">
<input type="hidden" Name="action" value="send_order">
<input type="hidden" Name="send_order_id" value="<%=Request("OrderID")%>">
<%End If%> <span lang="en-us">
<font color="#111111"> </font></span></p>
</form>
<p><a href="order_manage.asp"><font color="#111111">返回</font></a></p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -