delproduct.asp

来自「online sales system of texttile mill was」· ASP 代码 · 共 35 行

ASP
35
字号
<!-- #include file="conn.asp" -->
<html>
<head>
</head>
<body>
<h2 align="center">Available Products!!</h2>
<%
count = 1
Set oRs = Server.CreateObject("ADODB.RecordSet")
SQL = "select * from products"
Set oRs = con.execute(SQL)

while not oRs.EOF
	response.write "<center><b>Product#"&count&"</b></center><table align=center border=1>"&_
					"<tr><td>Product Name</td><td>"&oRs.Fields("product")&"</td></tr>"&_
					"<tr><td>Composition</td><td>"&oRs.Fields("comp")&"</td></tr>"&_
					"<tr><td>Main Pharam Col. Group</td><td>"&oRs.Fields("mainphg")&"</td></tr>"&_
					"<tr><td>Advantages</td><td>"&oRs.Fields("adv")&"</td></tr>"&_
					"<tr><td>Pack Size</td><td>"&oRs.Fields("ps")&"</td></tr>"&_
					"<tr><td>Cost</td><td>"&oRs.Fields("cost")&"</td></tr></table>"

	response.write "<center><a href=disproduct.asp?product_id="&oRs.Fields("product_id")&">Disable this product</a>&nbsp;&nbsp;&nbsp;&nbsp;"&_
					"<a href=delproduct.asp?product_id="&oRs.Fields("product_id")&">Delete this product</a></center><br><br>"

count = count + 1
oRs.MoveNext
wend
oRs.close
con.close
Set oRs = nothing
Set con = nothing
%>
</body>
</html>

⌨️ 快捷键说明

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