📄 changeprice.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>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="42%"> </td>
<td width="38%">
<Font face="Tahoma" size="2">Available Products</font>
<%
if session("admin") = "" then
response.redirect "administrator.asp"
end if
count = 1
Set oRs = Server.CreateObject("ADODB.RecordSet")
SQL = "select productid, name,price from products"
Set oRs = objcon.execute(SQL)
if not oRs.EOF then
'response.write "<center><table Border=2 align=center bordercolor=#0000cc bgcolor=gaaee0 width=500><tr><th><Font face=Tahoma size=2>Product#</th><th><Font face=Tahoma size=2>Product Name</th><th><Font face=Tahoma size=2>Current Price</th><th><Font face=Tahoma size=2>Change Price?</th><th><Font face=Tahoma size=2>Update Stock?</th> </tr></Font>"
%> </td>
<td width="20%">
<b>::</b> <a href="admin_options.asp" target=detail>Back to Option</a>
</td>
</tr>
</table>
<table border="1" width="654" height="90">
<tr>
<td width="130" bgcolor="#0066CC" height="34"><b>
<font face="Verdana" size="2" color="#FFFF99">Product#</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">Current Price</font></b></td>
<td width="249" bgcolor="#0066CC" height="34">
<p align="center"><b>
<font face="Verdana" size="2" color="#FFFF99">Change Price?</font></b></td>
</tr>
<%
end if
while not oRs.EOF
response.write "<tr>"&_
"<td>"& count &"</td>"&_
"<td>"&_
"<a href=pdetail.asp?product_id=" & oRs.Fields("productid") & "><Font face=Tahoma size=2>" & oRs.Fields("name") & "</Font></a>"&_
"</td>"&_
"<td>"&_
"<center><Font face=Tahoma size=2>" & oRs.Fields("price") & "</Font></center>"&_
"</td>"&_
"<td>"&_
"<center><a href=getprice.asp?id=" & oRs.Fields("productid") & ">Change price</a></center>"&_
"</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 + -