显示上一篇下一篇的代码
来源:互联网 发布:c语言写游戏辅助 编辑:程序博客网 时间:2024/04/28 06:58
<!--程序开始-->
'定义一个thenext函数来找出下一篇的ID,如果当前记录已经是最后一条记录,则输出文字“没有了”
<%
function thenext
newrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from article where id>"&id&" order by id"
set newrs=conn.execute(sql)
if newrs.eof then
response.Write("上一篇:")
response.Write("没有了")
else
a2=newrs("id")
response.Write("上一篇:")
response.Write"<a href='show_info.asp?id="&a2&"'>"
if len(newrs("title"))>18then
response.write(left(newrs("title"),18)&"...")
else
response.write(newrs("title"))
end if
response.Write "</a>"
end if
end function
%>
'定义一个thehead函数来找出下一篇的ID,如果当前记录已经是最前面的一条记录,则输出文字“没有了”
<%
function thehead
headrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from article where id<"&id&" order by id desc"
set headrs=conn.execute(sql)
if headrs.eof then
response.Write("下一篇:")
response.Write("没有了")
else
a0=headrs("id")
response.Write("下一篇:")
response.Write"<a href='show_info.asp?id="&a0&"'>"
if len(headrs("title"))>18 then
response.write(left(headrs("title"),18)&"...")
else
response.write(headrs("title"))
end if
response.Write "</a>"
end if
end function
%>
<!--#include file="inc/dbconn.asp"-->
<!--#include file="inc/ubbcode.asp"-->
<!--#include file="inc/Function.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title></title>
<link href="../inc/style.css" rel="stylesheet" type="text/css" />
</head>
<body >
<!--#include file="top.ASP"-->
<%
dim rs,sql,id
id=request.QueryString("id")
id=checknum(id)
set rs=server.CreateObject("adodb.recordset")
sql="select * from article where id="&id&""
rs.open sql,conn,1
if rs.eof then
return_err"找不到指定记录",""
else
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" style="table-layout:fixed">
<tr>
<td height="10" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="Title"><div align="center"><%=rs("title")%></div></td>
</tr>
<tr>
<td height="57" bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> <table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><%=rs("content")%></td>
</tr>
<tr>
<td height="20"></td>
</tr>
<tr>
<td align="center"><% thehead %> <% thenext %> </td>
</tr>
</table> </td>
</tr>
</table>
<%
end if
rs.close
set rs=nothing
closeconn
%>
</DIV>
<map name="Map" id="Map"><area shape="rect" coords="675,5,765,30" href="join.asp" title="加盟金牌会员指南"/>
</map>
<!--#include file="bottom.ASP"-->
</body>
</html>
- 显示上一篇下一篇的代码
- 新闻中显示上一篇下一篇
- asp显示“上一篇下一篇”
- 上一篇,下一篇过程代码
- 上一篇,下一篇链接代码
- 上一篇下一篇
- 关于新闻的上一篇,下一篇
- 上一篇下一篇的问题
- 实现上一篇,下一篇的效果
- ecshop调用文章显示上一篇下一篇
- jsp页面显示新闻.公告之类的上一篇下一篇
- yourphp文章上一篇下一篇代码分享
- 帝国ECMS教程:上一篇下一篇自定义综合代码
- 文章上一篇,下一篇
- thinkphp 上一篇,下一篇
- mysql 上一篇 下一篇
- id下一篇上一篇
- phpcms 上一篇下一篇
- 电子商务设计师考试
- 用C++输出.dat数据文件里的内容
- Mobile Campus服务端源代码
- java调用informix存储过程
- [原创]介绍几款小巧的Linux发行版
- 显示上一篇下一篇的代码
- 静态成员变量不可以导出??
- 让刷Q币者对爱机你无从下手
- Java程序员的存储过程
- MIME邮件
- 杰伦的成长与成名!
- 杰伦的视频
- JDBC连接各种数据库经验技巧集萃
- linux下JAVA开发环境的安装