?? 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 + -