📄 reminder.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>
</head>
<body bgcolor="">
<Center>
<br><br><br>
<FONT face=Georgia color=#cc0033 size=2><b>Welcome Administrator</b></font><br><br>

&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp;
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="95%" id="AutoNumber1">
  <tr>
    <td width="40%">&nbsp;</td>
    <td width="32%">

<Font face="Tahoma" size="2"><b>R E M I N D E R </b></font> </td>
    <td width="28%"><b>::</b> <a href="admin_options.asp" target=detail>Back to Option</a></td>
  </tr>
</table>
<p>
<br><br>
<Font face="Tahoma" size="2">about Re-Order Point</font>
<br><br>
<%
if session("admin") = "" then
	response.redirect "administrator.asp"
end if

dim   pname, hq, oRs, SQL

count = 1

Set oRs = Server.CreateObject("ADODB.RecordSet")
SQL     = "select * from products"
Set oRs = Objcon.execute(SQL)
%> </p>
<table border="1" width="654" height="90">
    <tr>
      <td width="644" bgcolor="#000080" colspan="7" height="18"><b>
      <font face="Verdana" size="2" color="#FFFF99">Reminder</font></b></td>
    </tr>
    <tr>
      <td width="130" bgcolor="#0066CC" height="34"><b>
      <font face="Verdana" size="2" color="#FFFF99">NO</font></b></td>
      <td width="252" bgcolor="#0066CC" height="34">
      <p align="center"><b>
      <font face="Verdana" size="2" color="#FFFF99">Product Name</font></b></td>
      <td width="249" bgcolor="#0066CC" height="34">
      <p align="center"><b>
      <font face="Verdana" size="2" color="#FFFF99">Quality</font></b></td>
          </tr>
<%
if not oRs.EOF then
	'response.write "<center><table Border=2 align=center bordercolor=#0000cc width=500><tr><th><Font face=Tahoma size=2>No. </th><th><Font face=Tahoma size=2>Product Name</th><th><Font face=Tahoma size=2>Quality on Hand</th></tr></Font>"
end if

while not oRs.EOF
      			pname 		   = oRs.Fields("Name")
			    hq	 		   = oRs.Fields("quality")


	response.write "<tr>"&_
						"<td>"& count &"</td>"&_
						"<td><Font face=Tahoma size=2>" & pname & "</Font></td>" &_
						"<td><Font face=Tahoma size=2>" & hq & "</Font></td>" &_
					"</tr>"

count = count + 1
oRs.MoveNext
wend
response.write "</center></table>"
response.write "<br><Font face=Tahoma size=1><a href=admin_options.asp>Go to options page</a></Font>"

oRs.close

Set oRs = nothing

%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -