hiwebasp.asp

三鸟个人网站源码。

      <!--#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>