listnews.asp

旅游路线管理 比较方便的旅游路线管理

<!--===============================================================-->
<!--Mfkiqpl旅行社旅游线路预订程序源代码仅供学习或部分旅行社网站用---->
<!--任何单位或个人不得随意修改、截取其中代码或做不法用途------------->
<!--版权归属:mfkiqpl   http://www.zjjnet.com 所有-------------------->
<!--请务必保留以下版权信息------------------------------------------->
<!--作者:mfkiqpl----------------------------------------------------->
<!--QQ:31827726 mail:[e-mail]--------------------------------->
<!--主页地址:http://www.zjjnet.com----------------------------------->
<!----------------欢迎各位站长与本人小站进行友情链接----------------->
<!--===============================================================-->
<!--#include file="conn.asp"-->
<!--#include file="news_inc.asp"-->
<!--#include file="system/ubb.asp"-->
<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
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)
%>
<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="490" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td height="25" align="center" bgcolor="<%=c2%>"><%=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" bgcolor="<%=c3%>">加入日期：<%=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" bgcolor="<%=c4%>" 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 bgcolor="<%=c2%>">
          <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 bgcolor="<%=c2%>">
          <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="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="4"></td>
  </tr>
</table>
<%
pageend
%>