sortnew.asp

以前企业建网站

<!--#include file="top.asp"-->
<table width="780" bgcolor=
<%sql="select * from sys"
rs.open sql,conn,3,3%>
<%=rs("sys_color")%>
<%rs.close%>
 border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="1" bgcolor=<%sql="select * from sys"
rs.open sql,conn,3,3%>
<%=rs("sys_color2")%>
<%rs.close%>>　</td>
<td width="146" valign="top" align=center> 
<!--#include file="newleft.asp"-->
</td>
<td width="1" bgcolor=<%sql="select * from sys"
rs.open sql,conn,3,3%>
<%=rs("sys_color2")%>
<%rs.close%>></td>
<td bgcolor="#FFFFFF" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<form name="form2" method="post" action="jump.asp">
<td bgcolor=<%sql="select * from sys"
rs.open sql,conn,3,3%>
<%=rs("sys_color")%>
<%rs.close%>> 
                  <%newsclass_id=trim(request("newsclass_id"))
      if newsclass_id=empty then
          response.redirect "index.asp"
      end if
	        page=request.querystring("page")
      if page="" then page=1
      if not(isnumeric(page)) then page=1
      if page<1 then page=1
      page=int(page)
      sql="select * from news where newsclass_id='"&newsclass_id&"' order by news_id DESC"
      rs.open sql,conn,3,3
      if rs.eof then
          response.write "您所选的类别没有动态"
          response.end
      else
          rs.pagesize=10
          totalrec=rs.recordcount
          totalpage=rs.pagecount
          if page>totalpage then page=totalpage
          rs.absolutepage=page
          rs.cachesize=rs.pagesize
          i=0
          dim news_id(),news_title(),news_date()
          do while not rs.eof and (i<rs.pagesize)
          i=i+1
          redim preserve news_id(i),news_title(i),news_content(i),news_date(i)
           news_id(i)=rs("news_id")
           news_title(i)=rs("news_title")
           news_content(i)=rs("news_content")
           news_date(i)=rs("news_date")    
           rs.movenext
          loop
      end if
      rs.close
          %>
<div align="right">
共<font color="red"><%=totalpage%></font>页 第<%=page%>页 <font color="666666">       
                    <%if page-1>0 then%>
 <a href="sortnew.asp?newsclass_id=<%=newsclass_id%>&amp;page=<%=page-1%>">上一页</a>        
                    <%else%>       
 上一页        
                    <%end if%> 
                    <% dim tmppage,z       
					z=10 
					if totalpage>z then 
					 else z=totalpage 
					 end if %> 
                    <% for tmppage=1 to z %>       
 <a href="sortnew.asp?newsclass_id=<%=newsclass_id%>&amp;page=<%=tmppage%>">      
                    <% =tmppage %>
                    </a>&nbsp; <%next %>      
                    <%if page+1<=totalpage then%>      
 <a href="sortnew.asp?newsclass_id=<%=newsclass_id%>&amp;page=<%=page+1%>">下一页</a>        
                    <%else%>       
 下一页        
                    <%end if%> 
 </font><input type="hidden" name="newsclass_id" value="<%=newsclass_id%>"> 跳转到 <input type="text" name="jump" size="3" class="ipt">       
页<font color="666666"> &nbsp;&nbsp;</font>      
</div>
</td>
                    </form>
</tr>
<tr>
<td>
<table width="97%" border="0" cellspacing="1" cellpadding="3" align="center" bgcolor="#CCCCCC">
<tr bgcolor="#FFFFFF">
<td width="32%" align="center">标 题</td>
<td align="center" width="46%">内 容</td>
<td width="19%" align="center">
<div align="center">
&nbsp;时 间</div>
</td>
</tr>
                    <%
      for i=1 to ubound(news_id)
      %>
<tr bgcolor="#FFFFFF">
<td width="32%">
<a href="newsweb.asp?idd=<%=news_id(i)%>" target="_blank"><%=news_title(i)%></a></td>
<td width="46%"> 
          <%if len(news_content(i))>25 then
          news_content(i)=left(news_content(i),25)
          response.write news_content(i)
          response.write "……"
          else
          response.write news_content(i)
          end if
          %>
</td>
<td width="19%">
<div align="center">
　<%=news_date(i)%></div>
</td>
</tr>
                    <%next%>
</table>
</td>
</tr>
<tr>
                    <form name="form3" method="post" action="jump.asp">
<td bgcolor=<%sql="select * from sys"
rs.open sql,conn,3,3%>
<%=rs("sys_color")%>
<%rs.close%>>
<div align="right">
共<font color="red"><%=totalpage%></font>页 第<%=page%>页 <font color="666666">      
                    <%if page-1>0 then%>
 <a href="sortnew.asp?newsclass_id=<%=newsclass_id%>&amp;page=<%=page-1%>">上一页</a>       
                    <%else%>      
 上一页       
                    <%end if%> 
                    <% for tmppage=1 to z %>      
 <a href="sortnew.asp?newsclass_id=<%=newsclass_id%>&amp;page=<%=tmppage%>">     
                    <% =tmppage %>
                    </a>&nbsp; <%next %>     
                    <%if page+1<=totalpage then%>    
 <a href="sortnew.asp?newsclass_id=<%=newsclass_id%>&amp;page=<%=page+1%>">下一页</a>       
                    <%else%>      
 下一页       
                    <%end if%> 
 </font><input type="hidden" name="newsclass_id" value="<%=newsclass_id%>"> 跳转到 <input type="text" name="jump" size="3" class="ipt">      
页<font color="666666"> &nbsp;&nbsp;</font>     
</div>
</td>
</form>
</tr>
</table>
<br>
</td>
</tr>
</table>
</td>
<td width="1" bgcolor=<%sql="select * from sys"
rs.open sql,conn,3,3%>
<%=rs("sys_color2")%>
<%rs.close%>></td>
</tr>
</table>
<!--#include file="copy.asp"-->