📄 classlist.asp

📁 二手书籍系统
💻 ASP
字号:
<!--#include file="inc/conn.asp"-->
<!--#include file="config.asp"-->

<head>
<title><%=title%>-详细分类列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="供求信息,二手网,二手商品,电子商务,供求网站,免费发布供求信息,商业信息,贸易网,求购,求购信息,出售，供应,供求信息网，招商投资 生活服务 家电家居  旅游出行 招聘求职  房产信息 
建材装饰 烟酒副食 电脑网络  餐饮酒店  医药保健  农林牧渔  安全防护  包装纸张 办公文教  电子通讯  
纺织皮革  服装服饰  工业机械 仪器仪表 交通运输 车及配件 工艺礼品 文化艺术 冶金矿产 出版印刷 能源动力 环境保护 
化工行业 玩具体育 园林绿化 广告服务 商务服务 分类广告 搜索引擎 企业行业黄页 分类信息网 集市">

<link href="inc_style.css" rel="stylesheet" type="text/css">
</head>

<body topmargin="0">
<!--#include file="topcnmai2.asp"-->
<div align="center">
<center>
<TABLE cellPadding=0 width=760 style="border-left:1px solid #CCCCCC; border-right:1px solid #CCCCCC; padding:0; border-collapse: collapse; border-top-width:1px; border-bottom-width:1px" bgcolor="#FFFFFF">
<TBODY>

<TR>
<TD height="24" colspan="3">
</TD></tr>
<TR>
<TD align=left width=40>　</TD>
<TD align=left width=674>
<%
dim Nclasslie,sql,classlie,classid,id
Set Nclasslie =Server.CreateObject("ADODB.Recordset") 
sql="select * from class1"        
Set classlie = Server.CreateObject("ADODB.Recordset")                          
classlie.open sql,conn,1,1
if not classlie.eof then
do while not classlie.eof
classid=classlie("id")%><div align="center">
<TABLE cellSpacing=1 width="100%" 
            border=0 style="border:1px solid #C0C0C0; " height="40">
<TBODY>
<TR>
<TD align=left bgColor=#EBEBEB width="662" colspan="6" height="24"><font face="Wingdings">1</font> <a href=info.asp?class1=<%=classid%>&cnmai=1>  
<font color="#990033" size="2"><u><b><%=classlie("class1")%></b></u></font></a>
<%  
                dim rs
                set rs=conn.execute("select count(id) from [xinxi] where class1="&classid&"")
                %>
[<%=rs(0)%>]  
</TD>  
</TR>
<%
        sql="select * from class2 where class1="&classid  
		Nclasslie.open sql,conn,1,1  
		do while not Nclasslie.eof
		%>   
<TR>  
<TD align=center bgColor=#FFFFFF height="17"><%if not Nclasslie.eof then%><a href=info.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&cnmai=2><font color="#000000"><%=Nclasslie("class2")%></font></a>  
<%
              set rs=conn.execute("select count(id) from [xinxi] where class1="&classid&" and class2="&Nclasslie("id")&"")
              response.write "["&rs(0)&"]"
              Nclasslie.movenext 
              end if
              %>
</TD>  
<TD align=center bgColor=#FFFFFF height="17"><%if not Nclasslie.eof then%><a href=info.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&cnmai=2><font color="#000000"><%=Nclasslie("class2")%></font></a>  
<%
              set rs=conn.execute("select count(id) from [xinxi] where class1="&classid&" and class2="&Nclasslie("id")&"")
              response.write "["&rs(0)&"]"
              Nclasslie.movenext
              end if%>
</TD>  
<TD align=center bgColor=#FFFFFF height="17"><%if not Nclasslie.eof then%><a href=info.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&cnmai=2><font color="#000000"><%=Nclasslie("class2")%></font></a>  
<%
              set rs=conn.execute("select count(id) from [xinxi] where class1="&classid&" and class2="&Nclasslie("id")&"")
              response.write "["&rs(0)&"]"
              Nclasslie.movenext  
              end if
              %>
</TD>  
<TD align=center bgColor=#FFFFFF height="17"><%if not Nclasslie.eof then%><a href=info.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&cnmai=2><font color="#000000"><%=Nclasslie("class2")%></font></a>  
<%
              set rs=conn.execute("select count(id) from [xinxi] where class1="&classid&" and class2="&Nclasslie("id")&"")
              response.write "["&rs(0)&"]"
              Nclasslie.movenext
              end if
              %>
</TD>  
<TD align=center bgColor=#FFFFFF height="17"><%if not Nclasslie.eof then%><a href=info.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&cnmai=2><font color="#000000"><%=Nclasslie("class2")%></font></a>  
<%
              set rs=conn.execute("select count(id) from [xinxi] where class1="&classid&" and class2="&Nclasslie("id")&"")
              response.write "["&rs(0)&"]"
              Nclasslie.movenext
              end if
              %>
</TD>  
<TD align=center bgColor=#FFFFFF height="17"><%if not Nclasslie.eof then%><a href=info.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&cnmai=2><font color="#000000"><%=Nclasslie("class2")%></font></a>  
<%
              set rs=conn.execute("select count(id) from [xinxi] where class1="&classid&" and class2="&Nclasslie("id")&"")
              response.write "["&rs(0)&"]"
              Nclasslie.movenext
              end if
              %>
</TD>  
</TR>
<%
loop               
Nclasslie.Close               
%></TBODY></TABLE></div>
<%
classlie.movenext               
loop  
end if  
classlie.close  
set classlie=nothing  
set Nclasslie=nothing 
closedb
%></TD>
<TD align=left width=38></TD></TR></TBODY></TABLE>
</center>
</div>
<!--#include file="endcnmai.asp"-->
⌨️ 快捷键说明

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