📄 classlist.asp

📁 一套现成的分类信息网站发布系统
💻 ASP
字号:
<!--#include file="conn1.asp"-->
<!--#include file="config.asp"-->
<title><%=title%>-详细分类列表</title>
<link href="inc_style.css" rel="stylesheet" type="text/css">
<body topmargin="0">
<!--#include file=top.asp-->
<!--#include file=bar.asp-->
<div align="center">
<center>
<TABLE cellSpacing=0 cellPadding=0 width=755 bgColor=#F5F5F5 border=1 style="border-collapse: collapse" bordercolor="#FFF0D9">
<TBODY>
<TR>
<TD vAlign=middle align=left width=41>　</TD>
<TD vAlign=middle align=left width=667>
<%
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=666 bgColor=#FFFFFF 
            border=0 style="border-collapse: collapse" bordercolor="#111111" height="40">
<TBODY>
<TR>
<TD align=left bgColor=#FFFFFF width="662" colspan="6" height="20"><font face="Wingdings">1</font> <a href=info.asp?class1=<%=classid%>&cnmai=1><u><font color="#990033"><%=classlie("class1")%></font></u></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 width="116" 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 width="111" 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 width="117" 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 width="106" 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 width="102" 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 width="96" 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 vAlign=middle align=left width=42></TD></TR></TBODY></TABLE></center>
</div>
<!--#include file="end.htm"-->
⌨️ 快捷键说明

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