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")%> ' 下一篇
上一篇,下一篇过程代码
2019-10-18 11:10asp代码网 ASP教程
上一篇,下一篇过程代码,有需要的朋友可以参考一下.
延伸 · 阅读
- 2019-10-18asp中创建多级目录的两段代码
- 2019-10-17phpcms新手初级教程最完美的GET标签实现上一篇下
- 2019-10-16支持权重的无组件ASP广告显示代码
- 2019-10-15java连接MySQl数据库实例代码
- 2019-10-14CMSPRESS 10行代码搞定 PHP无限级分类2
- 2019-10-14ASP对网页进行保护的简单代码 ip
精彩推荐
- ASP教程
ASP+Access数据库安全设置方法小结
1.首先,我们需要过滤所有客户端提交的内容,其中包括?id=N一类,另外还有提交的html代码中的操作数据库的select及asp文件操作语法,大家可以把提交的字符转...
- ASP教程
asp又一个分页的代码例子
asp又一个分页的代码例子...
- ASP教程
发一个ASP的ADODB类代码
反正我现在用这个做了很多站,自己觉得还是满有用的,所以拿出来和大家分享一下。支持三种数据库连接:MSSQL2000,MSSQL2005,ACCESS ...
- ASP教程
ASP Crazy 模版操作类(最简单的模板类、仅提供交流)
ASP Crazy 模版操作类 最简单的模板类需要的朋友可以参考下。...
- ASP教程
GetPaing 函数之asp采集函数中用到的获取分页的代码
GetPaing 函数之asp采集函数中用到的获取分页的代码 ...
- ASP教程
asp连接access、sql数据库代码及数据库操作代码
asp连接access、sql数据库代码及数据库操作代码,需要的朋友可以参考下...
- ASP教程
关于asp+access的安全问题分析
众所周知, asp + access 最大的 安全 隐患在于access数据库可以被别人 下载,而现在提供的很多asp空间都是只支持access数据库,这样一来, asp+access的安全问题...
- ASP教程
asp MYSQL出现问号乱码的解决方法
用asp读取MYSQL数据库出现乱码,读取到的汉字都是???? ...