news_body.asp

一个不错的企业网站

<%sub news_body()
dim totalnews,Currentpage,totalpages,i
sql="select news_id,news_title,news_date from news order by news_date DESC"
if request("type")=2 then
sql="select news_id,news_title,news_date from news order by news_date DESC"
elseif request("type")=3 then
sql="select news_id,news_title,news_date from news order by news_date ASC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<TABLE bgcolor="#ffffff" align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="<%=border%>" frame=vsides rules=none>
  <!--DWLayoutTable-->
  <TBODY>
    <TR> 
      
    <td width="756" height="93" align="center" valign="middle" background="img/index_news.gif"> 
      <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="758" height="114">
        <param name="movie" value="img/logo/top1.swf">
          <param name="quality" value="high">
          <embed src="img/logo/top1.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="758" height="114"></embed><param name="wmode" value="transparent"></object></TD>
    </TR>
    <TR> 
      <td height="36" align="right" valign="top"> &nbsp;<img src=img/none.gif border=0><img src=img/link2.gif border='0'>&nbsp;<a href="?type=2">按时间降序排列</a>&nbsp;<img src=img/none.gif border=0><img src=img/link2.gif border='0'>&nbsp;<a href="?type=3">按时间升序排列</a>&nbsp;&nbsp; 
      </TD>
    </TR>
    <tr> 
      <td height="3" background="img/menu_bg2.gif"></td>
    </tr>
  </TBODY>
</TABLE>
<TABLE align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="<%=border%>" frame=vsides rules=none>
<TBODY>
<TR>
<td width=204 align=left vAlign=top background=img/left_bg.gif>
<TABLE width=100% border=0 align=center cellPadding=0 cellSpacing=0>
<TBODY>
<TR><td width=204><img src=img/left_top.gif usemap="#Map" border="0"><map name="Map"><area shape="rect" coords="41,11,67,24" href="book.asp?page=1" title="留言本"><area shape="rect" coords="114,11,140,24" href="admin.asp" title="后台管理"></map></td></tr>
</table>
<TABLE width=196 border=0 align=left cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
              
          <td align=center height="61"><img src="img/two/sm.jpg" width="197" height="91"></td> 
</tr>
<TR>
          <td>
            <%call br%>　　本站的大部分资料，文章都来<%call br%>自网上收集，其版权归作者本人所<%call br%>有，如果有任何侵犯您权益的地方，<%call br%>请联系我们，我们将马上进行整理，<%call br%>谢谢。<%call br%><%call br%>
            </td>
</tr>
</table>
</TD>
<td width=1 height="190" background="img/xu.gif"></TD>
<td width=553 align=left vAlign=top bgcolor="#ffffff"><%call br%>
<table width='530' height="25" border='0' align="center" cellpadding='2' cellspacing='0' background="img/mainbg.gif">
              <tr> 
                <td>&nbsp;&nbsp;<img src="img/biao.gif" align="absmiddle">&nbsp; 
            <%if request("type")=1 then%>
            最新的10篇新闻 
            <%else%>
            共有<span class="newshead"><%=rs.recordcount%></span>篇新闻 
            <%end if%></td>
</tr>
</table>
      <table width="530" border="1" align="center" cellspacing="0" cellpadding="3" bgcolor="#FFFFFF" bordercolor="#C0C0C0" style="border-collapse: collapse">
        <tr> 
          <td bgcolor="#ECECEC" width="73%" align="center" height="22">新闻列表</td>
          <td bgcolor="#ECECEC" width="27%" align="center">更新时间</td>
        </tr>
        <%
if not rs.eof then
rs.movefirst
rs.pagesize=newsperpage
if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rs.pagecount then
      currentpage=rs.pagecount
   end if
else
   currentpage=1
end if
   totalnews=rs.recordcount
   if currentpage<>1 then
       if (currentpage-1)*newsperpage<totalnews then
	       rs.move(currentpage-1)*newsperpage
		   dim bookmark
		   bookmark=rs.bookmark
	   end if
   end if
   if (totalnews mod newsperpage)=0 then
      totalpages=totalnews\newsperpage
   else
      totalpages=totalnews\newsperpage+1
   end if
i=0
do while not rs.eof and i<newsperpage
%>
        <tr> 
          <td width="73%" height="22">&nbsp;<img src=img/none.gif border=0><img src=img/i1.gif border='0'>&nbsp;<a href="javascript:news('shownews.asp?news_id=<%=rs("news_id")%>')"><%=rs("news_title")%></a></td>
          <td width="27%" align="center"><%=rs("news_date")%>　</td>
        </tr>
        <%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
        <tr> 
          <td colspan="2" height="22" align="center">当前没有新闻！</td>
        </tr>
        <%end if
end if
if not request("type")=1 then%>
<form name="form1" method="post" action="news.asp">
<tr> 
<td align="right" bgcolor="#ECECEC" colspan="2">
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR> 
<TD align=middle width="35%" height=25><IMG height=14 src="img/cha.gif" width=14 align=absMiddle> 共[<font color="#FF6666"><%=totalnews%></font>]个作品　分[<font color="#FF6666"><%=totalpages%></font>]页</TD>
<TD width="40%" align=middle bgcolor="#e6e6e6"><IMG height=11 src="img/lt.gif" width=11 align=absMiddle>
<%
if CurrentPage<2 then
response.write "<font color='999966'>首页 上一页</font> "
else
response.write "<a href=news.asp?page=1>首页</a> "
response.write "<a href=news.asp?page="&CurrentPage-1&">上一页</a> "
end if
if totalpages-currentpage<1 then
response.write "<font color='999966'>下一页 尾页</font>"
else
response.write "<a href=news.asp?page="&(CurrentPage+1)
response.write ">下一页</a> <a href=news.asp?page="&totalpages&">尾页</a>"
end if
%>
 <IMG height=11 src="img/gt.gif" width=11 align=absMiddle></TD>
<form name="form1" method="post" action="news.asp">
<TD align=middle width="25%">
<select name="page" class="lanyu">
<%
i=1
for i=1 to totalpages
if i=currentpage then
%>
<option value=<%=i%> selected>第<%=i%>頁</option> 
<%else%>
<option value=<%=i%>>第<%=i%>頁</option> 
<%end if
next%>
</select><input type="submit" name="Submit2" value="轉向" class="button"> </TD>
</TR>
</FORM>
</TABLE>          
</td>
          </tr>
        </form>
      </table>
      <%end if%>
      <br>
      <br>
    </TD>
</TR>
</TBODY>
</TABLE>
<%
rs.close
set rs=nothing
end sub%>