news_body.asp

情缘天空美化版 v3.68 强大的公告

<%sub news_body()
dim totalnews,Currentpage,totalpages,i
opennews
sql="select news_id,news_title,news_date from news order by news_date DESC"
if request("type")=1 then
sql="select top 10 news_id,news_title,news_date from news order by news_date DESC"
elseif 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 width="<%=tablewidth%>" border="0" cellspacing="0" cellpadding="0" align="center" background=images/web_bg.gif><tr>
<td colspan="3" height="10" ></td>
</tr>
<tr>
<td width="554" valign="top" align=center >
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="6%" background="images/tablebg.gif"><img src="images/mleft.gif"></td>
<td width=20%  background="images/tablebg.gif" >:::::实事新闻:::::</td>
<td width="68%"  background="images/tablebg.gif" valign=bottom>&nbsp;<iframe name=sina_roll src=http://news.sina.com.cn/o/allnews/input/index.html height=15 width=85% Frameborder=No Border=0 Marginwidth=0 Marginheight=0 Scrolling=No style="background-color: #f1f1f1"></iframe>&nbsp;</td>
<td width="6%" align="right" background="images/tablebg.gif"><img src="images/mright.gif"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0"  cellpadding="0" align="center">
<tr>
<td class="chinese">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="37%" height=40 background=images/anbg.gif style="border-left-style: solid; border-left-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" >
&nbsp;:::::本站新闻列表::::::</td>
<td width="63%" align="right"  background=images/anbg.gif style="border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1">
<%if request("type")=1 then%>
最新的10篇新闻
<%else%>
共有&nbsp;<span class="newshead"><%=rs.recordcount%></span>&nbsp;篇新闻&nbsp;&nbsp;
<%end if%>
</td>
</tr>
</table> </td>
</tr>
</table>

<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center" >
<%
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="4%" height="25" align=center style="border-left-style: solid; border-left-width: 1; border-right-style: solid;border-right-width: 1;">&nbsp;<img src=images/hot.gif border=0>&nbsp;</td>
<td  width="70%">&nbsp;<a href="shownews.asp?news_id=<%=rs("news_id")%>" ><%=rs("news_title")%></a></td>
<td width=26% style="border-left-style: solid; border-left-width: 1; border-right-style: solid;border-right-width: 1;">&nbsp;<%=rs("news_date")%></td>
</tr>
<tr><td height="1" background="images/dotlineh.gif" colspan=3></td></tr>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
<tr>
<td bgcolor="#FFFFFF" colspan="2" height="22" align="center" class="chinese">当前没有新闻！</td>
</tr>
<%end if
end if%>
</table>
<br>
<%if not request("type")=1 then%>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center" class="chinese">
<form name="form1" method="post" action="news.asp">
<tr>
<td align="right">
<%=currentpage%>/<%=totalpages%>页，共有<%=totalnews%>条新闻/每页<%=newsperpage%>篇。
|<%
i=1
showye=totalpages
if showye>10 then
showye=10
end if
for i=1 to showye
if i=currentpage then
%>
<b><font color=#ff0088><%=i%></font></b>
<%else%>
<a href="news.asp?page=<%=i%>"><%=i%></a>
<%end if
next
if totalpages>currentpage then
if request("page")="" then
page=1
else
page=request("page")+1
end if%>
<a href="news.asp?page=<%=page%>" title="下一页">|</a>
<%end if%>
&nbsp;&nbsp;
<input type="text" name="page" class="textarea" size="4">
<input type="submit" name="Submit" value="Go" class="button">
</td>
</tr>
</form>
</table>
<%end if%>
<br>
</td>
<td width="1" background="images/dotlinev.gif"></td>
<td width="205" align="center" valign="top" >
<table width="208" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="40" align="right" background="images/lefttablo_01f.gif"><br>
:::<strong>站内热点新闻</strong>:::&nbsp;&nbsp;&nbsp;</td>
</tr>
</table>
<table width="208" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td height="6" background="images/lefttablo_03.gif"></td>
</tr>
<tr>
<td height="66" class="chinese" align="center" background="images/lefttablo_03.gif">
<table width="90%"><tr><td>
<%set rs = server.createobject("adodb.recordset")
sql="select top 10 news_id,news_title,news_date from news order by news_count DESC"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "很抱歉！内容正在更新之中！"
else
do while not rs.eof
response.write "·<a href=shownews.asp?news_id="&rs("news_id")&">"&rs("news_title")&"</a><br>"
rs.movenext
loop
end if
rs.close
set rs=nothing%>
</td></tr></table>
</td>
</tr>
<tr>
<td valign="bottom"><img src="images/lefttablo_05.gif"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="3" background="images/dotlineh.gif" height="1"></td>
</tr>
</table>
<%end sub%>