📄 manager.asp
字号:
<!--#Include File="Conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>M-Trade Manager</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<style>
TD {Font-Family:Arial, Helvetica, sans-serif;Font-Size:13px}
.TD-Normal {padding-left:8px;Border-Left:1px Solid #999999;Border-Top:1px Solid #999999}
.TD-Right {padding-left:8px;Border-Left:1px Solid #999999;Border-Right:1px Solid #999999;Border-Top:1px Solid #999999}
.TD-Bottom {padding-left:8px;Border:1px Solid #999999;Border-Right:0px Solid #000000}
.TD-RightBottom {padding-left:8px;Border:1px Solid #999999;}
B {Font-Size:15px}
</style>
<body topmargin="0" leftmargin="0">
<Table cellpadding="0" cellspacing="0" width="100%" height="50" bgcolor="#99CCFF" style="border:1px solid #999999">
<TR>
<TD width="10"></TD>
<TD style="font-size:12px">M-Trade移动购物平台</TD>
</TR>
<TR>
<TD></TD>
<TD><b style="font-size:20px ">库存管理</b></TD>
</TR>
</Table>
<BR>
<Table cellpadding="0" cellspacing="0" width="100%">
<TR>
<TD width="10"></TD>
<TD>
<b style="color:DarkBlue">库存状况</b>
</TD>
</TR>
<TR><TD height="8"></TD></TR>
<TR>
<TD></TD>
<TD>
<Table cellpadding="0" cellspacing="0">
<TR bgcolor="#CCCCCC">
<TD width="200" height="21" class="TD-Normal"><B style="font-size:13px;">品 牌</B></TD>
<TD width="100" class="TD-Normal"><B style="font-size:13px;">价 格 (元)</B></TD>
<TD width="100" class="TD-Right"><B style="font-size:13px;">库存数量 (台)</B></TD>
</TR>
<%
Set RS=Server.CreateObject("ADODB.RecordSet")
RS.Open "Stock",Conn,1,1
While(Not RS.EOF)
%>
<TR>
<TD height="20" class="TD-Normal"><%=RS("Brand")%></TD><TD class="TD-Normal"><%=RS("Price")%></TD><TD class="TD-Right"><%=RS("Quantity")%></TD>
</TR>
<%RS.MoveNext : Wend : RS.Close%>
<TR><TD height="1" colspan="10" bgcolor="#999999"></TD></TR>
</Table>
</TD>
</TR>
<TR><TD height="20"></TD></TR>
<TR>
<TD width="10"></TD>
<TD>
<b style="color:DarkBlue">订单状况</b>
</TD>
</TR>
<TR><TD height="8"></TD></TR>
<TR>
<TD></TD>
<TD>
<Table cellpadding="0" cellspacing="0">
<TR bgcolor="#CCCCCC">
<TD width="65" height="21" class="TD-Normal"><B style="font-size:13px;">订单编号</B></TD>
<TD width="150" class="TD-Normal"><B style="font-size:13px;">订购时间</B></TD>
<TD width="120" class="TD-Normal"><B style="font-size:13px;">订购品牌</B></TD>
<TD width="70" class="TD-Normal"><B style="font-size:13px;">订购数量</B></TD>
<TD width="70" class="TD-Normal"><B style="font-size:13px;">交易金额</B></TD>
<TD width="60" class="TD-Right"><B style="font-size:13px;">已处理</B></TD>
</TR>
<%
Set RS=Server.CreateObject("ADODB.RecordSet")
RS.Open "SELECT * FROM Orders Order by Order_ID",Conn,1,1
While(Not RS.EOF)
%>
<TR>
<TD height="20" class="TD-Normal"><%=RS("Order_ID")%></TD>
<TD class="TD-Normal"><%=RS("Order_Date")%></TD>
<TD class="TD-Normal"><%=RS("Brand")%></TD>
<TD class="TD-Normal"><%=RS("Quantity")%></TD>
<TD class="TD-Normal"><%=RS("Charge")%></TD>
<%Check="":If RS("isFinished") Then Check="Checked"%>
<TD class="TD-Right"> <Input type="checkbox" <%=Check%> onClick="VBScript:ChangeStatus <%=RS("Order_ID")%>,<%=Not RS("isFinished")%>"></TD>
</TR>
<%RS.MoveNext:Wend:RS.Close%>
<TR><TD height="1" colspan="10" bgcolor="#999999"></TD></TR>
</Table>
<br>
» 直接点击"已处理"选项框即可更改.
</TD>
</TR>
</Table>
<Script language="vbscript">
Sub ChangeStatus(OrderID, Status)
Form.Status.Value=Status
Form.Order_ID.Value=OrderID
Form.Submit
End Sub
</script>
<Form id="Form" action="ChangeStatus.asp" method="get">
<Input type="hidden" name="Order_ID"><Input type="hidden" name="Status">
</Form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -