
<!--#include file="conn.asp"-->
<!--#include file="home.asp"-->

<html>
<head>
<title>3鸟设社网站评测</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="link.css">
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<!--#include file="top.htm"-->

<table width="764" border="0" cellspacing="2" cellpadding="0" align="center" class="9p">
  <tr> 
    <td width="164" valign="top" bgcolor="#EDB7D1"> 
      <table width="100%" border="0" class="9p" cellpadding="0" cellspacing="0" align="center">
        <tr> 
          <td bgcolor="#CC3366" height="22"> 
            <div align="center"><font color="#FFFFFF">类 型 分 类</font></div>
          </td>
        </tr>
        <tr> 
          <td> 
            <table width="90%" border="0" cellspacing="1" cellpadding="2" class="9p" align="center">
              <tr> 
                <td> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=1">电脑网络</a></div>
                </td>
                <td><img src="image/j1.gif" width="9" height="10"> <a href="listtype.asp?type=12">综合网站</a></td>
              </tr>
              <tr> 
                <td> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=2">免费资源</a></div>
                </td>
                <td><img src="image/j1.gif" width="9" height="10"> <a href="listtype.asp?type=11">社会公益</a></td>
              </tr>
              <tr> 
                <td> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=3">休闲娱乐</a></div>
                </td>
                <td><img src="image/j1.gif" width="9" height="10"> <a href="listtype.asp?type=10">科技咨讯</a></td>
              </tr>
              <tr> 
                <td> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=4">文学艺术</a></div>
                </td>
                <td><img src="image/j1.gif" width="9" height="10"> <a href="listtype.asp?type=9">商贸金融</a></td>
              </tr>
              <tr> 
                <td> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=5">游戏世界</a></div>
                </td>
                <td><img src="image/j1.gif" width="9" height="10"> <a href="listtype.asp?type=8">程序设计</a></td>
              </tr>
              <tr> 
                <td> 
                  <div align="left"><img src="image/j1.gif" width="9" height="10"> 
                    <a href="listtype.asp?type=6">音乐天堂</a></div>
                </td>
                <td><img src="image/j1.gif" width="9" height="10"> <a href="listtype.asp?type=7">体育生活</a></td>
              </tr>
              <tr> 
                <td> 
                  <div align="left"></div>
                </td>
                <td>&nbsp;</td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
    <td width="594" valign="top"> 
      <% 
      if Request.QueryString("job")="" then  'b                                                                                                                                                                                                                          
           listlanmu
      elseif  Request.QueryString("job")="list" and Request.QueryString("classid")<>"" then 'b     
           listnote
      elseif  Request.QueryString("job")="new" and Request.QueryString("classid")<>"" then 'b  
           newnote
      elseif  Request.QueryString("job")="edit" and Request.QueryString("id")<>"" then 'b  
           editnote     
      elseif  Request.QueryString("job")="del" and Request.QueryString("id")<>"" and Request.QueryString("classid")<>"" then 'b  
           delnote     
       elseif  Request.QueryString("job")="upnew" and Request.QueryString("classid")<>"" then 'b  
           upnew
       elseif  Request.QueryString("job")="upedit" and Request.QueryString("id")<>"" then 'b  
           upedit
  
      end if  'b                                                                                                                                                                                                                                                                                                                                 
%>
      <%sub listlanmu%>
      <!--#include file="conn.asp"-->
      <%                                                                          
SQL="SELECT * FROM lanmu"                                                                          
Set Rs=conn.Execute(SQL)                                                                          
If Rs.Eof then%>
      <p align="center">没有栏目</p>
      <%else                                                                           
  do while not rs.eof                                                                          
   %>
      <div align="center">ID:<%=RS("id")%> ----- <br>
        <% rs.movenext                                                                                                                                                                                                                                                                                  
 loop                                                                            
  rs.close                                                                        
  end if                                                                        
end sub%>
        <%sub listnote%>
        <!--#include file="conn.asp"-->
        <%                                                             
               CurrentPage=Request.QueryString("pages")                                                             
 if  CurrentPage="" then                                                            
  CurrentPage=1                                                           
  end if                                                                                                                                                                         
                                                                                                                                                                     
   set rs=server.createobject("adodb.recordset")                                                             
   sql="SELECT * FROM article where lanmuid="&Request.QueryString("classid")&" order by id desc"                                                                                                                                                                                                                                                                                                                                    
 rs.open sql,conn,1,1                                                                                                                                                                                                                                                  
rs.PageSize=35                                                               
%>
        <%if not rs.eof then                                                                                                                                                                                                                                                                               
  rs.AbsolutePage=CurrentPage                                                                                                                                                                                                                                                                                                                                                     
prevCurrentPage=CurrentPage-1                                                                                                                                                                                                                                                                                                                                                                                    
    nextCurrentPage=CurrentPage+1  %>
      </div>
                  <table width="594" border="0" cellspacing="1" cellpadding="2" align="center" bgcolor="#CC3366">
        <tr> 
          <td height="20"> 
            <div align="left"><b><font color="#FFFFFF">·3鸟设社网站评测<font color="#999999"><b> 
              <font color="#FFFFFF">&gt; <%=rs("lanmu")%></font></b></font></font></b></div>
          </td>
        </tr>
        <tr> 
          <td bgcolor="#FFFFFF"> 
            <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr> 
                <td> 
                  <div align="right"> &nbsp; </div>
                  <table width="100%" border="0" cellspacing="2" cellpadding="0" align="center" bordercolorlight="#CE9A00">
                    <%                                                                                                                                                                                                                                                                                                                                                                                            
NumRows=0                                                                                                                                                                                                                                                                                                                                                                                                 
 do while not rs.eof and NumRows < rs.PageSize                                                                                                                                                                                                                                                                                                                                                                                                     
 %>
                    <tr> 
                      <td width="3%" height="11"> 
                        <div align="center">◆</div>
                      </td>
                      <td width="97%" height="11"><font color="#666666"><a href=article.asp?id=<%=rs("id")%>&classid=<%=rs("lanmuid")%> target=_blank><%=rs("title")%></a>[ 
                        <%=rs("date")%> ]</font></td>
                    </tr>
                    <%                                                                                                                                                                                                                                                                                                                                                                                                
 rs.movenext                                                                                                                                                                                                                                                                                                                                                                                                
 NumRows=NumRows+1                                                                                                                                                                                                                                                                                                                                                                                                
 loop                                                                                                                                                                                                                                                                                                                                                                                                
 %>
                  </table>
                  <div align="right"> <font color="#EDB7D1"> 
                    <% if CurrentPage <=1 and   RS.PageCount<>1 then %>
                    上一页&nbsp;<a href="asp.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=nextCurrentPage%>">[下一页]</a> 
                    <% elseif CurrentPage>1 and CLng(CurrentPage) < RS.PageCount then %>
                    <a href="asp.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=prevCurrentPage%>">[上一页]</a> 
                    &nbsp; <a href="asp.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=nextCurrentPage%>">[下一页]</a> 
                    <% elseif (CLng(CurrentPage) = RS.PageCount) and RS.PageCount<>1 then %>
                    <a href="asp.asp?job=list&classid=<%=Request.QueryString("classid")%>&pages=<%=prevCurrentPage%>">[上一页]</a>&nbsp;下一页 
                    <% end if%>
                    &nbsp;页次：<%=CurrentPage%>/<%=RS.PageCount%>页&nbsp; <%=Rs.PageSize%>条记录/页&nbsp; 
                    </font></div>
                  <font color="#EDB7D1"> 
                  <%else%>
                  <%end if%>
                  <%                                                                                                                                                                                                                                                                                                                                                                                                        
                                                                                                                                                                                                                                                                                                                                                                                
rs.close                                                                                                                                                                                                                                                                                                                                                                                    
   set rs=nothing                                                                                                                                                                                                                                                                                                                                                                       
conn.close                                                                                                                                                                                                                                                                                                                            
set conn=nothing                                                                                                                                                                                                                                                                                                                                                                                                        
 %>
                  <%end sub%>
                  </font></td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<!--#include file="bottom.htm" -->
</body>                                                                              
</html>                                                                              
