📄 ps.asp

📁 online sales system of texttile mill was a project within which there was great opportunity for Lear
💻 ASP
字号:
<!-- #include file="conn.asp" -->
<html>

<head>
<title>New Page 2</title>
</head>

<body>
<%
Dim TempArray
Dim ProcessArray, DeleteArray
Dim ProcessCount, DeleteCount, i
Dim mSQL
Dim amount
Processed = trim(Request.Form("Processed"))
Delete = trim(Request.Form("Delete"))

Set rs = Server.CreateObject("ADODB.Recordset")

ProcessArray = Split(Processed,",")
ProcessCount = Cint(ubound(ProcessArray))
DeleteArray = Split(Delete,",")
DeleteCount = Cint(ubound(DeleteArray))

i = 0
 
Do While i < ProcessCount+1
	TempArray = Split(trim(ProcessArray(i)),";")
	SQLstr1 = "SELECT * FROM Orders WHERE Orderid = " & trim(TempArray(1))
	rs.Open SQLstr1, objcon, 2, 3
	If trim(TempArray(0)) = "ON" Then
		rs("Shipped") = True
	End IF
         
	rs.Update
	rs.Close()
	i = i + 1
Loop

i = 0
Do While i < DeleteCount+1 
	'-----------------------------------
	TempArray = Split(trim(DeleteArray(i)),";")
	SQLstr1 = "SELECT * FROM Orders WHERE Orderid = " & trim(TempArray(1))
	'------------------------------------
	'Clear the OrderDetails Table
	SQLstr1 = "SELECT * FROM Orders WHERE Orderid=" & trim(TempArray(1))
       
	rs.Open SQLstr1, objcon,  2,3
	Do While NOT rs.EOF
		rs.Delete
		rs.Update
		rs.MoveNext
	Loop
	rs.Close()
	'------------------------------------
	i = i + 1
Loop
SQLstr = "SELECT  Orderid,Orders.Buyerid,OrderDate,FirstName,LastNAme,TotalPrice as OrderAmount FROM Orders,Buyers WHERE Shipped <> True and Orders.Buyerid=Buyers.Buyerid"
rs.Open SQLstr, objcon ,2,3
%>
<html>

<head>



<body topmargin="0" leftmargin="0">

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
  <tr>
    <td width="100%">
    </td>
  </tr>
</table>
  
         <tr>
                <td width="100%" colspan="3">
				<table border="0" width="98%" id="table4">
					<tr>
						<td>&nbsp;</td>
						<td>
						<p align="right">
						<b>::</b> <a href="admin_options.asp" target=detail>Back to Option</a></td>
					</tr>
				</table>
				</td>
              </tr>       
             
 
 <form method="POST" action="PS.asp">
  <table border="1" width="100%" height="90">
    <tr>
      <td width="100%" bgcolor="#000080" colspan="7" height="18"><font size="2" face="Verdana" color="#FFFF99"><b>Ship
        Control - Shipments Pending Approval&nbsp; Bin</b></font></td>
    </tr>
    <tr>
      <td width="16%" bgcolor="#0066CC" height="34"><font color="#FFFF99" size="2" face="Verdana"><b>Order
        ID</b></font></td>
      <td width="16%" bgcolor="#0066CC" height="34"><font color="#FFFF99" size="2" face="Verdana"><b>OrderDate</b></font></td>
      <td width="17%" bgcolor="#0066CC" height="34"><font color="#FFFF99" size="2" face="Verdana"><b>Customer First</b></font></td>
      <td width="17%" bgcolor="#0066CC" height="34"><font color="#FFFF99" size="2" face="Verdana"><b>Customer
      LastName</b></font></td>
      <td width="17%" bgcolor="#0066CC" height="34"><font color="#FFFF99" size="2" face="Verdana"><b>Price
 </b></font></td>
      <td width="9%" bgcolor="#0066CC" height="34"><font color="#FFFF99" size="2" face="Verdana"><b>Ship</b></font></td>
      <td width="8%" bgcolor="#0066CC" height="34"><font color="#FFFF99" size="2" face="Verdana"><b>Delete</b></font></td>
    </tr>



</body>

</html>


  
    <%
    Do While NOT rs.EOF
    %>
    <tr>
      <td width="16%" height="21" align="right" style="border-bottom-style: solid; border-bottom-width: 1"><b><font size="1" face="Verdana"><%=rs("Orderid")%></a></font></b></td>
      <td width="16%" height="21" align="right" style="border-bottom-style: solid; border-bottom-width: 1"><b><font size="1" face="Verdana"><%=rs("OrderDate")%></font></b></td>
      <td width="17%" height="21" align="right" style="border-bottom-style: solid; border-bottom-width: 1"><b><font size="1" face="Verdana"><%=rs("FirstName")%></font></b></td>
      <td width="17%" height="21" align="right" style="border-bottom-style: solid; border-bottom-width: 1"><b><font size="1" face="Verdana"><%=rs("LastName")%></a></font></b></td>
      <td width="17%" height="21" align="right" style="border-bottom-style: solid; border-bottom-width: 1"><b><font size="1" face="Verdana"><%=rs("OrderAmount")%></font></b></td>
      <td width="9%" height="21" align="center" style="border-bottom-style: solid; border-bottom-width: 1"><input type="checkbox" name="Processed" value="ON;<%=rs("Orderid")%>"></td>
      <td width="8%" height="21" align="center" style="border-bottom-style: solid; border-bottom-width: 1"><input type="checkbox" name="Delete" value="ON;<%=rs("Orderid")%>"></td>
    </tr>
    <%
    rs.MoveNext
    Loop
    %>
     
<center>
<tr>
      <td width="100%" align=center colspan="7" height="21"><input type="submit" value="Submit"  align=center name="B1"><input type="reset" value="Reset" align=center name="B2"></td>
    </tr>
 </table>
</form>

<%
rs.Close

%>
</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -