📄 alarmlist.asp
字号:
<!--#include file="../Conndb.asp"-->
<%
Dim rs,tv
tv = Request("type")
Set rs = Server.CreateObject("ADODB.RecordSet")
If tv=1 Or tv="" Then
sql = "SELECT *,(ProLow - Quantity) As dd FROM Product WHERE ProLow > Quantity"
ElseIf tv = 2 Then
sql = "SELECT *,(Quantity - ProHigh) As dd FROM Product WHERE ProHigh < Quantity"
End If
%>
<html>
<head>
<link href="../style.css" rel="stylesheet">
</head>
<body link="#000080" vlink="#080080">
<form id="form1" name="form1" method="POST" action="AlarmList.asp">
<p align="center"><font color="#000080"><b><font style="font-size: 12pt">库存数量告警管理</font></b></font></p>
<p>选择告警类型
<select size="1" name="type" Onchange="form1.submit();">
<%If tv=1 Then%>
<option value="1" Selected>数量少于下限</option>
<option value="2">数量多于上限</option>
<%Else%>
<option value="1">数量少于下限</option>
<option value="2" Selected>数量多于上限</option>
<%End If%>
</select></p>
<table align=center border="1" cellspacing="0" width="100%" bordercolorlight="#000080" bordercolordark="#FFFFFF">
<tr>
<td width="30%" align="center" bgcolor="#C1E0FF"><strong>商品名称</strong></td>
<td width="20%" align="center" bgcolor="#C1E0FF"><strong>当前库存数量</strong></td>
<td width="20%" align="center" bgcolor="#C1E0FF"><strong><%If tv=2 Then%>数量上限<%Else%>数量下限<%End If%></strong></td>
<td width="30%" align="center" bgcolor="#C1E0FF"><strong><%If tv=2 Then%>超储商品数量<%Else%>短线商品数量<%End If%></strong></td>
</tr>
<%
'读取数据到记录集rs中
rs.Open sql,conn,1,1
'在表格中显示问题记录
If rs.Eof Then
Response.Write "<tr><td colspan=8 align=center>目前还没有记录。</td></tr></table>"
Else
Do While Not rs.EOF
%>
<tr>
<td align="center"><%=rs("ProName")%></td>
<td align="center"><%=rs("Quantity")%> </td>
<td align="center"><%=rs("ProLow")%> </td>
<td align="center"><%=rs("dd")%> </td>
</tr>
<%
rs.MoveNext()
Loop
%>
</table>
<%End If%>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -