news_inc.asp

来自「一个有用的东西 希望大家喜欢 谢谢大家对本站的支持」· ASP 代码 · 共 120 行

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%sub nnews%>
<table width=255 border=0 cellspacing=0 cellpadding=0>
  <tr>
<td width=29 height=22 align=center><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle.gif"></td>
<td width=195 background="skins/mfk_skin(<%=skin%>)/mfk_midtitle.gif"> 最 新 新 闻</td>
<td width=31><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle.gif"></td>
</tr></table><table width=255 border=0 cellspacing=0 cellpadding=0><tr><td height=1></td></tr></table>
<table width=255 border=0 cellspacing=0 cellpadding=0><tr><td>
<table align="center" width=251 border=0 cellspacing=0 cellpadding=0 class="tablebox1">
<%
set nnewrs=conn.execute("select top 6 ntitle,id,ndt from news order by ndt")
if nnewrs.eof and nnewrs.bof then
%>
<td align=center>未找到相关记录！</td>
<%
closers(nnewrs)
else
i=0
while not nnewrs.eof and i<6
ntitle=nnewrs("ntitle")
if len(ntitle)>19 then
ntitle=left(ntitle,18)&"..."
end if
%>
<tr><td align=center width=15 height=22><img src=images/mfk4.gif></td><td width=238 height=24><a href=listnews.asp?id=<%=nnewrs("id")%>><%=ntitle%></a></td>
</tr>
<%
nnewrs.movenext
i=i+1
wend
closers(nnewrs)
end if
%>
</table></td></tr></table>
<table width=255 border=0 cellspacing=0 cellpadding=0>
  <tr><td height=4></td></table>
<%end sub
sub ddnews
%>
  

<table width=255 border=0 cellspacing=0 cellpadding=0>
  <tr>
<td width=29 height=22 align=center><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle.gif"></td>
<td width=195 background="skins/mfk_skin(<%=skin%>)/mfk_midtitle.gif"> 重 点 新 闻</td>
<td width=31><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle.gif"></td>
</tr></table><table width=255 border=0 cellspacing=0 cellpadding=0><tr><td height=1></td></tr></table>
<table width=255 border=0 cellspacing=0 cellpadding=0><tr><td>
<table align="center" width=251 border=0 cellspacing=0 cellpadding=0 class="tablebox1">
<%
set dnewrs=conn.execute("select top 6 ntitle,id,ndt from news where ntop=1 order by ndt")
if dnewrs.eof and dnewrs.bof then
%>
<td align=center>未找到相关记录！</td>
<%
closers(dnewrs)
else
i=0
while not dnewrs.eof and i<6
ntitle=dnewrs("ntitle")
if len(ntitle)>19 then
ntitle=left(ntitle,18)&"..."
end if
%>
<tr><td align=center width=15 height=22><img src=images/mfk4.gif></td><td width=238 height=24><a href=listnews.asp?id=<%=dnewrs("id")%>><%=ntitle%></a></td>
</tr>
<%
dnewrs.movenext
i=i+1
wend
closers(dnewrs)
end if
%>
</table></td></tr></table>
<table width=255 border=0 cellspacing=0 cellpadding=0>
  <tr><td height=4></td></table>
<%
end sub
sub clicknews
%>

<table width=255 border=0 cellspacing=0 cellpadding=0>
  <tr>
<td width=29 height=22 align=center bgcolor=<%=c5%>><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle.gif"></td>
<td width=195 background="skins/mfk_skin(<%=skin%>)/mfk_midtitle.gif"> 人 气 排 行</td>
<td width=31 ><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle.gif"></td>
</tr></table><table width=255 border=0 cellspacing=0 cellpadding=0><tr><td height=1></td></tr></table>
<table width=255 border=0 cellspacing=0 cellpadding=0><tr><td>
<table align="center" width=251 border=0 cellspacing=0 cellpadding=0 class="tablebox1">
<%
set dnewrs=conn.execute("select top 6 ntitle,id,nclick from news order by nclick desc")
if dnewrs.eof and dnewrs.bof then
%>
<td align=center>未找到相关记录！</td>
<%
closers(dnewrs)
else
i=0
while not dnewrs.eof and i<6
ntitle=dnewrs("ntitle")
if len(ntitle)>19 then
ntitle=left(ntitle,18)&"..."
end if
%>
<tr><td align=center width=15 height=22><img src=images/mfk4.gif></td><td width=238 height=24><a href=listnews.asp?id=<%=dnewrs("id")%>><%=ntitle%></a></td>
</tr>
<%
dnewrs.movenext
i=i+1
wend
closers(dnewrs)
end if
%>
</table></td></tr></table>
<table width=255 border=0 cellspacing=0 cellpadding=0>
  <tr><td height=4></td></table>
<%
end sub
%>