首 页建站教程源码中心网站建设与网上创业处世绝学炫彩Qzong游客留言在线日历QQ诱惑
您当前的位置:海鸿源码网建站教程ASP → 建站内容 退出登录 用户管理
本类热门文章
海鸿源码网推荐
实现网站底部上一条下一条代码
作者:海仅拥虾  来源:本站原创  发布时间:2007-10-25 22:38:10

减小字体 增大字体

<tr>
     <td height="10" align="left" class="c">
	<%set rs=server.CreateObject("Adodb.recordset")
	rs.open "select top 1 * from zs_news where m_classid="&classid&" and m_id<"&newsid&" order by m_id desc",conn,1,1
	if not rs.eof then
		response.Write("<a href=show-news.asp?news_id="&rs("m_id")&"&classid="&rs("m_classid")&" class=b><span class=standard_font>上一条:"&rs("m_title")&"</span></a>")
	else
		response.Write("<span class=standard_font>上一条:没有了</span>")
	end if%>
	</td>
</tr>
<tr>
     <td height="10" align="left" class="c"><%set rs=server.CreateObject("Adodb.recordset")
	rs.open "select top 1 * from zs_news where m_classid="&classid&" and m_id>"&newsid&" order by m_id asc",conn,1,1
	if not rs.eof then
		response.Write("<a href=show-news.asp?news_id="&rs("m_id")&"&classid="&rs("m_classid")&" class=b><span class=standard_font>下一条:"&rs("m_title")&"</span></a>")
	else
		response.Write("<span class=standard_font>下一条:没有了</span>")
	end if%>
	</td>
</tr>
[] [返回上一页] [打 印]
建站评论 (评论内容只代表网友观点,与本站立场无关!)

用户名: 查看更多评论

分 值:100分 85分 70分 55分 40分 25分 10分 0分

内 容:

         (注“”为必填内容。) 验证码: 验证码,看不清楚?请点击刷新验证码

关于本站 - 网站帮助 - 广告合作 - 下载声明 - 友情连接 - 网站地图 -