ASP实现上一篇,下一篇过程代码

发布网友 发布时间：2022-04-30 04:59

我来回答

共2个回答

懂视网 时间：2022-04-14 16:28

daoImpl实现的方法： public News nextPage(News news){try{String queryString=from News d where d.id? order by id desc;Q【本文来自鸿网互联 (http://www.68idc.cn)】uery queryObject=getSession().createQuery(queryString);queryObject.setLong(0,new

daoImpl实现的方法：

public News nextPage(News news){
		try{
			String queryString="from News d where d.idpublic News nextPage(News news) {
		try {
			String queryString = "from News d where d.id>? order by id asc";
			Query queryObject = getSession().createQuery(queryString);
			queryObject.setLong(0,news.getId());
			queryObject.setFirstResult(0);
			queryObject.setMaxResults(1);
			return (News)queryObject.list().get(0);
		} catch (RuntimeException re) {

			throw re;
		}
		
	}

return (News)queryObject.list().get(0);}catch(RuntimeException re){throw re;}}

热心网友 时间：2022-04-14 13:36

　　
-
Rem==上一篇==
Rem======================================================
Rem=
参数说明:
Rem=
pid当前ID,prame:栏目前辍(如一般web_news表,字段时一般为wn_**,prame就代表wn)
Rem=
ptable(表前辍.如一般表名是:站点名_表名(shenzhe_news)
ptable:就代表shenzhe)
Rem=
说明:采用上面命名法,可使该过程达到通用
Rem=====================================================
Function
GetPre(pid,prame,ptable)
id
=
prame&"_id"
title
=
prame&"_title"
table
=
"city_"&ptable
url
=
"show_"&ptable
sql
=
"SELECT
TOP
1
"&id&","&title&"
FROM
"&table&"
WHERE
"&id&"<"&pid&"
ORDER
BY
"&id&"
DESC"
set
rs
=
Conn.Execute(sql)
If
rs.eof
or
rs.bof
Then
pre
=
"上一篇:没有新闻了"
Else
pre
=
"<a
href="&url&".asp?"&id&"="&rs(0)&">"&rs(1)&"</a>"
End
If
GetPre
=
pre
End
Function
Rem
=
下一篇
Rem=============
Rem=
参数函意和上过程一样
Rem==========
Function
GetNext(nid,nrame,ntable)
id
=
nrame&"_id"
title
=
nrame&"_title"
table
=
"city_"&ntable
url
=
"show_"&ntable
sql
=
"SELECT
TOP
1
"&id&","&title&"
FROM
"&table&"
WHERE
"&id&">"&nid&"
ORDER
BY
"&id&"
"
set
rs
=
Conn.Execute(sql)
If
rs.eof
or
rs.bof
Then
nnext
=
"下一篇:没有新闻了"
Else
nnext
=
"<a
href="&url&".asp?"&id&"="&rs(0)&">下一篇:"&
rs(1)&"</a>"
End
If
GetNext
=
nnext
End
Function
实现代码:
偶数据库里有表:
city_active
city_date
city_note
city_active主要字段有:
ca_id,cd_title
city_date主要字段有:
cd_id,cd_title
city_note主要字段有:
cn_id,
cn_title
这样引用就可:
在show_note.asp?cn_id=4里引用上一篇下一篇
<%=GetPre(cn_id,"cn","note")%>
'
上一篇
<%=GetNext(cn_id,"cn","note")%>
'
下一篇