classlist.asp

二手程序,可是实现会员的等级功能管理,会员可以有上船图片,给信息标题加颜色功能!

<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<title>分类列表</title>
<link rel="stylesheet" type="text/css" href="1.CSS">
<div align="center">
  <center>
      <TABLE cellSpacing=0 cellPadding=0 width=778 bgColor=#EBEBEB border=1 style="border-collapse: collapse" bordercolor="#C0C0C0">
        <TBODY>
        <TR>
          <TD vAlign=middle align=left width=26>　</TD>
          <TD vAlign=middle align=left width=538>
<%
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")%> 　<TABLE cellSpacing=1 width=730 bgColor=#FFFFFF 
            border=0 style="border-collapse: collapse" bordercolor="#111111">
              <TBODY>
              <TR>
                <TD vAlign=middle align=left bgColor=#dbdbdb width="935" colspan="6" height="20"><font face="Wingdings">1</font> <a href=index.asp?class1=<%=classid%>&ijob=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 vAlign=middle align=center bgColor=#dbdbdb width="121" height="25"><%if not Nclasslie.eof then%><a href=index.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&ijob=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 vAlign=middle align=center bgColor=#dbdbdb width="121" height="25"><%if not Nclasslie.eof then%><a href=index.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&ijob=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 vAlign=middle align=center bgColor=#dbdbdb width="121" height="25"><%if not Nclasslie.eof then%><a href=index.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&ijob=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 vAlign=middle align=center bgColor=#dbdbdb width="122" height="25"><%if not Nclasslie.eof then%><a href=index.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&ijob=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 vAlign=middle align=center bgColor=#dbdbdb width="122" height="25"><%if not Nclasslie.eof then%><a href=index.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&ijob=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 vAlign=middle align=center bgColor=#dbdbdb width="122" height="25"><%if not Nclasslie.eof then%><a href=index.asp?class1=<%=classid%>&class2=<%=Nclasslie("id")%>&ijob=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><p>
<%
classlie.movenext               
loop  
end if  
classlie.close  
set classlie=nothing  
set Nclasslie=nothing 
closedb
%>
</TD>
<TD vAlign=middle align=left width=23></TD></TR></TBODY></TABLE></center>
</div>
<!--#include file="copywright.asp"-->