📄 cart_admin.asp
字号:
<!-- #include file="admin_protect.inc" -->
<!-- #include file="../opendb.inc" -->
<%
If Session("Product")="" Then
Response.Write "<p><Center><B>您的订货单现在是空的。</B></Center></p>"
Response.End
End If
Select Case Request.Form("Submits")
Case " 结帐 "
Recalculate
Confirm
Session("Product")=""
Session("Num")=""
Response.Write "<p><Center><B>您的订单已经放入数据库。</B></Center></p>"
Response.End
Case "取消定购"
Session("Product")=""
Session("Num")=""
Response.Redirect "Product.Asp"
Response.End
Case "重新计算"
Recalculate
If Session("Num")="" Then
Response.Write "<p><Center><B>您的订货单现在是空的。</B></Center></p>"
Response.End
End If
Case Else
End Select
%>
<%
Sub Recalculate '重新计算子程序
arrayProductID=Split(Session("Product"),",")
arrayProductNum=Split(Session("Num"),",")
For i=0 To Ubound(arrayProductID)-1
If Request.Form("IsBuy"&i)="BUY" Then
arrayProductNum(i)=Request.Form("Num"&i)
Else
arrayProductNum(i)=0
End If
Next
Session("Product")=""
Session("Num")=""
For J=0 To Ubound(arrayProductID)-1
If arrayProductNum(J)<>0 Then
Session("Product")=Session("Product") & arrayProductID(J) & ","
Session("Num")=Session("Num") & arrayProductNum(J) & ","
End If
Next
End Sub
Sub Confirm '结帐子程序
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open(sqlOpenDB) '打开数据库
Ordertime=Now
'date_Admin=Dateadd(D,Request.Form("Date"),Ordertime)
'date_Admin=Date
Sql1="Insert Into OrderToSupplier(OrderDate,SupplierID) Values('" & Ordertime & "','"& Request.Form("D1") & "')"
Conn.Execute(Sql1) '生成客户订单记录
Sql2="Select OrderID From OrderToSupplier Where OrderDate='" & Ordertime & "'and SupplierID='" & Request.Form("D1") & "'"
Set Rs=Conn.Execute(Sql2)
OrderID=Rs("OrderID")
arrayProductID=Split(Session("Product"),",")
arrayProductNum=Split(Session("Num"),",")
For i=0 To Ubound(arrayProductID)-1
Sql3="Insert Into supplyOrderLine(OrderID,ProductID,UnitsOrdered) Values('" & OrderID & "','" & arrayProductID(i) & "','" & arrayProductNum(i) & "')"
Conn.Execute(Sql3) '添加订单信息，建立表OrderLine的多条记录
Sql4="Select UnitsOnOrder From Product Where ProductID='" & arrayProductID(i) &"'"
Set Rs=Conn.Execute(Sql4)
UnitsOrdered=Rs("UnitsOnOrder")
UnitsOrdered=UnitsOrdered+arrayProductNum(i)
Sql5="Update Product Set UnitsOnOrder='" & UnitsOrdered & "' Where ProductID='" & arrayProductID(i) & "'"
Conn.Execute(Sql5) '减去订货量
Next '生成OrderLine表，记录订货信息
Conn.Close
End Sub
%>
<!-- ----------------------------------------------------------------------------------------------------------------------------------- -->
<html>
<head>
<title>购物车</title>
<meta http-equiv="Content-Type" content="text/html; chaRset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Proarray=Split(Session("Product"),",")
Numarray=Split(Session("Num"),",")
%>
<div align="center">
<h2><font face="华文彩云">订货单</font></h2>
<form Name="form" method="POST" action="cart_admin.asp">
<table width="500" border="2" cellspacing="0" bordercolor="#666666">
<tr bgcolor="#CCCCCC">
<td nowrap width="40">
<div align="center"><b>订购</b></div>
</td>
<td nowrap width="80">
<div align="center"><b>货物号码</b></div>
</td>
<td nowrap>
<div align="center"><b>货物名称</b></div>
</td>
<td nowrap width="40">
<div align="center"><b>单价</b></div>
</td>
<td nowrap width="40">
<div align="center"><b>现有</b></div>
</td>
<td nowrap width="40">
<div align="center"><b>数量</b></div>
</td>
<td nowrap width="40">
<div align="center"><b>共计</b></div>
</td>
</tr>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open(sqlOpenDB) '打开数据库
For i=0 To Ubound(Proarray)-1
Sql="Select * From Product Where ProductID='" & Proarray(i) & "'"
Set Rs=Conn.Execute(Sql)
%>
<tr>
<td width="40" height="22" nowrap>
<div align="center">
<input type="checkbox" Name="IsBuy<%=i%>" value="BUY" checked>
</div>
</td>
<td width="40" height="22" nowrap>
<div align="center"><%=Rs("productID")%></div>
</td>
<td height="22" nowrap>
<div align="center"><%=Rs("Name")%></div>
</td>
<td width="40" height="22" nowrap>
<div align="center"><%=FormatCurrency(Rs("UnitPrice"))%></div>
</td>
<td width="40" height="22" nowrap>
<div align="center"><%=Rs("UnitsInStock")-Rs("UnitsOnOrder")%></div>
</td>
<td width="40" height="22" nowrap>
<div align="center">
<input type="text" Name="Num<%=i%>" size="6" value=<%=numArray(i)%>>
</div>
</td>
<td width="40" height="22" nowrap>
<div align="center"><%=FormatCurrency(Rs("UnitPrice")*numArray(i))%></div>
</td>
</tr>
<%
Total=Total+Rs("UnitPrice")*Numarray(i)
Next
%>
</table>
<p align="left"> <b>选择供应商：</b>
<select size="1" Name="D1">
<%
Set Rs_Supplier=Server.CreateObject("ADODB.RecordSet")
Rs_Supplier.Open"Supplier",Conn,1,3
%>
<%While Not Rs_Supplier.Eof %>
<Option Value=<%=Rs_Supplier("SupplierID")%>><%=Rs_Supplier("CompanyName") %></Option>
<%Rs_Supplier.MoveNext%>
<%Wend%>
</select> <b>预计到货时间：</b><!--webbot bot="Validation" s-data-type="Number" s-number-separatoRs=",." --><input type="text" Name="date" size="3"></p>
<p> <font face="楷体_GB2312"><b>共计金额：<%=FormatCurrency(total)%></p>
<p>
</b></font>
<input type="submit" Name="Submits" value=" 结帐 ">
<input type="submit" Name="Submits" value="取消订购">
<input type="submit" Name="Submits" value="重新计算">
</p>
</form>
<p> </p>
</div>
<%
Rs.Close
Conn.Close
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -