📄 classmanage.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="xingxing.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style4 {font-size: 12px}
.style10 {font-size: 10px; color: #FF00FF; }
.style12 {font-size: 14px; color: #000000; }
-->
</style>
</head>
<body>
<div align="left">
<!--#include file=top.asp-->
</div>
<div align="center"><table width="938" border="1" bordercolor="#3300CC" bgcolor="#66FF99">
<tr>
<th height="42"></th>
</tr>
</table>
<table width=940 height="124" border=1 cellpadding=0 cellspacing=0 bordercolor="#66FF33" bgcolor=#FFCC99 style="border-collapse: collapse">
<tbody>
<tr>
<td width=13 align=left valign=middle> </td>
<td width=897 align=left valign=middle>
<%
dim class2,sql,class1,classid,id
Set class1 =Server.CreateObject("ADODB.Recordset")
sql="select * from class1 order by taxis desc"
class1.open sql,conn,1,1
set class2 = Server.CreateObject("ADODB.Recordset")
if not class1.eof then
do while not class1.eof
classid=class1("class1_id")%>
<font color="#0000FF"><font color="#FF00FF"> </font></font>
<table width=100%
border=1 cellspacing=1 bordercolor="#330099" bgcolor=#FF9966 style=+"border-collapse: collapse">
<tbody>
<tr>
<td valign=middle align=left bgcolor=#dbdbdb colspan="6" height="20"><font color="#0000FF">一级分类：<a href="goods.asp?class1=<%=classid%>" class="style12"><%=class1("class1")%></a><font color="#FF00FF">
<%
Set goods=Server.CreateObject("ADODB.Recordset")
sql="select sum(inventory) from goods where class1="& classid
goods.open sql,conn,1
%>
<span class="style4">[货物数</span></font><span class="style4"><font color="#0000FF"></font><font color="#FF00FF">量:</font><font color="#0000FF"><font color="#0000FF"><font color="#FF00FF"><%=goods(0) %></font></font></font><font color="#FF00FF">]</font></span></font> <%goods.close%></td>
</tr>
<%
sql="select * from class2 where class1="&classid & " order by taxis desc"
class2.open sql,conn,1
do while not class2.eof
%>
<tr>
<td width="16%" height="25" align=center valign=middle bgcolor=#dbdbdb><span class="style4">
<%if not class2.eof then%>
<a href="goods.asp?class1=<%=classid%>&class2=<%=class2(0)%>" class="style12"><%=class2("class2")%></a></span>
<span class="style12">
<%
Set goods=Server.CreateObject("ADODB.Recordset")
sql="select sum(inventory) from goods where class1="& classid &" and class2="& class2(0)
goods.open sql,conn,1
%>
</span>
<span class="style10">[<%=goods(0) %>]</span>
<% goods.close
class2.movenext
end if%>
</td>
<td width="16%" height="25" align=center valign=middle bgcolor=#dbdbdb><%if not class2.eof then%>
<a href="goods.asp?class1=<%=classid%>&class2=<%=class2(0)%>" class="style12"><%=class2("class2")%></a><%
Set goods=Server.CreateObject("ADODB.Recordset")
sql="select sum(inventory) from goods where class1="& classid &" and class2="& class2(0)
goods.open sql,conn,1
%>
<span class="style10">[<%=goods(0) %>]</span> <% goods.close
class2.movenext
end if%>
</td>
<td width="16%" height="25" align=center valign=middle bgcolor=#dbdbdb><%if not class2.eof then%>
<a href="goods.asp?class1=<%=classid%>&class2=<%=class2(0)%>" class="style12"><%=class2("class2")%></A><%
Set goods=Server.CreateObject("ADODB.Recordset")
sql="select sum(inventory) from goods where class1="& classid &" and class2="& class2(0)
goods.open sql,conn,1
%>
<span class="style10">[<%=goods(0) %>]</span> <% goods.close
class2.movenext
end if%>
</td>
<td width="16%" height="25" align=center valign=middle bgcolor=#dbdbdb><%if not class2.eof then%>
<a href="goods.asp?class1=<%=classid%>&class2=<%=class2(0)%>" class="style12"><%=class2("class2")%> </a> <%
Set goods=Server.CreateObject("ADODB.Recordset")
sql="select sum(inventory) from goods where class1="& classid &" and class2="& class2(0)
goods.open sql,conn
%> <span class="style10">[<%=goods(0) %>]</span> <% goods.close
class2.movenext
end if%>
</td>
<td width="16%" height="25" align=center valign=middle bgcolor=#dbdbdb><%if not class2.eof then%>
<a href="goods.asp?class1=<%=classid%>&class2=<%=class2(0)%>" class="style12"><%=class2("class2")%></a><%
Set goods=Server.CreateObject("ADODB.Recordset")
sql="select sum(inventory) from goods where class1="& classid &" and class2="& class2(0)
goods.open sql,conn,1
%>
<span class="style10">[<%=goods(0) %>]</span>
<% goods.close
class2.movenext
end if%>
</td>
<td width="16%" height="25" align=center valign=middle bgcolor=#dbdbdb><%if not class2.eof then%>
<a href="goods.asp?class1=<%=classid%>&class2=<%=class2(0)%>" class="style12"><%=class2("class2")%></a><%
Set goods=Server.CreateObject("ADODB.Recordset")
sql="select sum(inventory) from goods where class1="& classid &" and class2="& class2(0)
goods.open sql,conn,1
%>
<span class="style10">[<%=goods(0) %>]</span> <% goods.close
class2.movenext
end if%>
</td>
</tr>
<%
loop
class2.Close
%>
</tbody>
</table>
<%
class1.movenext
loop
end if
%>
</td>
<td width=13 align=left valign=middle></td>
</tr>
</tbody>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -