?? save.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")&"'"
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
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")%> </td>
<td width="20%"><%=RsProduct("Name")%> </td>
<td width="20%"><%=FormatCurrency(RsProduct("UnitPrice"))%> </td>
<td width="20%"><%=RsOrder("UnitsOrdered")%><input type="text" Name="num<%=i%>" size="5" value="<%num_value(i)%>"></td>
<td width="20%"><%=FormatCurrency(RsProduct("UnitPrice")*RsOrder("UnitsOrdered"))%> </td>
</tr>
</table>
</td>
</tr>
<%
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%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<p>
<%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><a href="order_manage.asp"><font color="#111111">返回</font></a></p>
</form>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -