link_list.asp

本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流

<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0 class=page>
  <TBODY>
    <TR> <td><!--#include file="top.asp"-->

<TABLE width=760 border=0 align=center cellSpacing=0 cellPadding=0>
  <TBODY>
    <TR> 
   
      <TD vAlign=top><%
Set rs = Server.CreateObject("ADODB.Recordset") 
sql="Select * from links order by id desc"
rs.open sql,conn,1,1
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
End if
rs.pagesize =32
total  = rs.RecordCount
'mypagesize=rs.pagesize
rs.absolutepage = page
%>
 

         <div align="center">

        <TABLE cellSpacing="1" cellPadding=0 width="100%" border=0  bgcolor="#C0C0C0">
          <TBODY>
          
                    <TR> 
                      <TD align="left" height=25 bgcolor="#E4F4E1" background="img/bg.gif">
						&nbsp;<img border="0" src="images/news.gif" width="15" height="15">
						友情连接</TD>
                 
            </TR>
            <TR>               <TD bgcolor="#FFFFFF"> 
     
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" >
                    <tr> 
                      <td>
					
                        <table width="100%" border="0" cellspacing="0" cellpadding="0" >
                          <%for j=1 to (rs.pagesize\4)%>
                          <tr> 
                            <%for i=1 to 4%>
                            <td  align="center"> 
							<table width="100%" border="0" cellspacing="0" cellpadding="0" >
                                <tr> 
                                                    <td height="20">
													<a href=linkurl.asp?id=<%=rs("id")%> target="_blank"><%=rs("title")%></a></td>
                                                  </tr>
                              </table></td>
                            <% 
rs.movenext 
if rs.eof then 
exit for 
end if 
next 
%>
                          </tr>
                          <% 
if rs.eof then 
exit for 
end if 
next 
%>
                        </table>
                        <table width="100%" border="0" cellspacing="0" cellpadding="5" >
                          <form name="form2" method="post" action="link_list.asp">
                            <tr> 
                              <td align="right">共<font color=#FF9966><b><%=rs.pagecount%></b></font>页<font color=#FF9966><b><%=total%></b></font>个
								连接 当前第<font color=#FF9966><b><%=page%></b></font>页 
                                <%if page>1 then%>
                                <a href=link_list.asp?page=<%=page-1%>>前一页</a> 
                                <%else%>
                                <a href=#>前一页</a> 
                                <%end if%>
                                <%if page<rs.pagecount   then%>
                                <a href=link_list.asp?page=<%=page+1%>>后一页</a> 
                                <%else%>
                                <a href="#">后一页</a> 
                                <%end if%>
                                <select name="page" class="input">
                                  <%for i=1 to rs.pagecount%>
                                  <option value=<%=i%>
					  <%
					  if i=page then
					  response.write" selected"
					  end if
					  %>
					  >第<%=i%>页</option>
                                  <%next%>
                                </select> <input type="submit" name="Submit2" value="转向"> 
                              </td>
                            </tr>
                          </form>
                        </table></td>
                    </tr>
                  </table></TD>
            </TR>
          </TBODY>
        </TABLE>
      </div>
      </TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="bottom.asp"-->      </TD>
    </TR>
  </TBODY>
</TABLE>
<%
conn.Close
Set conn=Nothing
%>