[原创]关于新闻的上一条，下一条 - ASP及.net - 5D互动论坛

» 互动论坛 » ASP及.net » [原创]关于新闻的上一条，下一条

跳转到：

每页显示15条 1/1<<<1>>

	主题: [原创]关于新闻的上一条，下一条
mlzboy 职务：普通成员等级：2 金币：2.0 发贴：317	引用 #12004/8/24 13:02:22 我也看到过有人写这个东东，不过这个是我自己早先写给朋友的，大家一起分享一下吧由于一般的新闻的上一条下一条都是通过连续的ID来判断的，如果中间删除了一篇文章就会显示不正确了，以下是我写的代码，大家PP <!--#include file="conn.asp" --> <% 'id为获得的欲显示该文章的参数值,此处为演示方便,在下面预先定义id=4 dim id id=6 if not isnumeric(id) then response.write "非法参数！" response.end end if 'bigclass为大类,smallclass为小类,一般常见于二级分类的新闻系统 dim sql sql="select * from eric where bigclass='校园新闻' and smallclass='校园娱乐' and id=" & id call opendb() set rs=conn.execute(sql) if rs.eof then '判断库中是否有此文章 response.write "非法参数！" response.end else str=rs(0) & "<br>" str=str & rs(1) &"<br>" str=str & "相关新闻:<br>------------------------------------<br>" response.write str call closers() '判断上面是否有与此文章所在类别的文章 sql="select * from eric where bigclass='校园新闻' and smallclass='校园娱乐' and id<" & id & " order by id desc" set rs=conn.execute(sql) if rs.eof then response.write "上面已经没有文章了！<br>" else response.write "上一篇文章:" & rs(1) & "<br>" end if call closers() '判断下面是否有与此文章所在类别的文章 sql="select * from eric where bigclass='校园新闻' and smallclass='校园娱乐' and id>" & id set rs=conn.execute(sql) if rs.eof then response.write "下面已经没有文章了！" else response.write "下一篇文章:" & rs(1) & "<br>" end if call closers() call closedb() end if %> [Ctrl+A 全部选择提示：你可先修改部分代码，再按运行] 这个是主要文件，其它文件和数据库已经打包放在下面的地址，方便大家测试，关键地方我都做了注释相关文件：点这儿打开

主题: [原创]关于新闻的上一条，下一条

mlzboy
职务：普通成员
等级：2
金币：2.0
发贴：317

引用

#12004/8/24 13:02:22

我也看到过有人写这个东东，不过这个是我自己早先写给朋友的，大家一起分享一下吧
由于一般的新闻的上一条下一条都是通过连续的ID来判断的，如果中间删除了一篇文章就会显示不正确了，以下是我写的代码，大家PP

<%
'id为获得的欲显示该文章的参数值,此处为演示方便,在下面预先定义id=4
dim id
id=6
if not isnumeric(id) then
	response.write "非法参数！"
	response.end
end if
'bigclass为大类,smallclass为小类,一般常见于二级分类的新闻系统
dim sql
sql="select * from eric where bigclass='校园新闻' and smallclass='校园娱乐' and id=" & id
call opendb()
set rs=conn.execute(sql)
if rs.eof then
	'判断库中是否有此文章
	response.write "非法参数！"
	response.end
else
	str=rs(0) & " "
	str=str & rs(1) &" "
	str=str & "相关新闻: ------------------------------------ "
	response.write str
	call closers()
	'判断上面是否有与此文章所在类别的文章
	sql="select * from eric where bigclass='校园新闻' and smallclass='校园娱乐' and id<" & id & " order by id desc"
	set rs=conn.execute(sql)
	if rs.eof then
		response.write "上面已经没有文章了！ "
	else
		response.write "上一篇文章:" & rs(1) & " "
	end if
	call closers()
	'判断下面是否有与此文章所在类别的文章
	sql="select * from eric where bigclass='校园新闻' and smallclass='校园娱乐' and id>" & id
	set rs=conn.execute(sql)
	if rs.eof then
		response.write "下面已经没有文章了！"
	else
		response.write "下一篇文章:" & rs(1) & " "
	end if
	call closers()
	call closedb()
end if
%>

[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]
这个是主要文件，其它文件和数据库已经打包放在下面的地址，方便大家测试，关键地方我都做了注释

相关文件：点这儿打开

每页显示15条 1/1<<<1>>

在回复主题:[原创]关于新闻的上一条，下一条

正文：