listnews.asp

一个有用的东西 希望大家喜欢 谢谢大家对本站的支持

<!--#include file="conn.asp"-->
<!--#include file="mfk_body.asp"-->
<!--#include file="news_inc.asp"-->
<!--#include file="system/ubb.asp"-->
<title><%=title1%>--新闻浏览</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%pagestart
dim id
id=replace(trim(request("id")),"'","")
if id="" or not isnumeric(id) then
closeconn
response.Redirect "error.asp?errormsg=<li>传递参数错误！</li><br><li>请确定你从有效链接进入！</li>"
end if
conn.execute("update news set nclick=nclick+1 where id="&id)
set rs=conn.execute("select * from news where id="&id)
if rs.bof or rs.eof then
closers(rs)
closeconn
response.Redirect "error.asp?errormsg=<li>没有找到此新闻！或此新闻刚刚被删除</li><br><li>请确定你从有效链接进入！</li>"
end if
%>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="255" valign="top" bgcolor="<%=c4%>">
<%
call nnews
call ddnews
call clicknews
%></td>
    <td width="500" valign="top"><table width="494" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td width="27"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1.gif"></td>
        <td width="440" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1.gif">&nbsp;</td>
        <td width="27"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1.gif"></td>
      </tr>
    </table>      <table width="494" border="0" align="center" cellpadding="0" cellspacing="0" class="lefttablebox">
      <tr>
        <td><table width="490" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td height="28" align="center"><%=mfkiqpl(rs("ntitle"))%></td>
          </tr>
        </table>
          <table width="490" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td height="1" bgcolor="<%=c1%>"></td>
            </tr>
          </table>
          <table width="490" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td height="22" align="center">加入日期：<%=rs("ndt")%>&nbsp;&nbsp;&nbsp;浏览次数：<%=rs("nclick")%></td>
            </tr>
          </table>
          <table width="490" border="0" align="center" cellpadding="8" cellspacing="0">
            <tr>
              <td height="25" class="table1" style="line-height: 18pt;word-break:break-all;"><%=ubbcode(rs("ntext"))%></td>
            </tr>
          </table>
          <table width="490" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr class="titletable">
              <td width="106" height="26" align="center">上一主题：</td>
              <td width="384" height="26">
                <%
set uprs=conn.execute("select top 1 id,ntitle from news where id>"&id&" order by id desc")
if uprs.eof or uprs.bof then
response.write ("上一主题为空了！")
else
response.write ("<a href='listnews.asp?id="&uprs("id")&"'>"&uprs("ntitle")&"</a>")
end if
closers(uprs)
%>
              </td>
            </tr>
            <tr class="titletable">
              <td height="26" align="center">下一主题：</td>
              <td height="26">
                <%
set dnrs=conn.execute("select top 1 id,ntitle from news where id<"&id&" order by id desc")
if dnrs.eof or dnrs.bof then
response.write ("上一主题为空了！")
else
response.write ("<a href='listnews.asp?id="&dnrs("id")&"'>"&dnrs("ntitle")&"</a>")
end if
closers(dnrs)
%>
              </td>
            </tr>
          </table></td>
      </tr>
    </table>
    <table width="494" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1_1.gif"></td>
        <td width="477" background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1_1.gif">&nbsp;</td>
        <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1_1.gif"></td>
      </tr>
    </table></td>
  </tr>
</table>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="4"></td>
  </tr>
</table>
<%
pageend
%>