艺术迷（fansart.com）

首页

收藏本站

RSS频道

艺术迷首页 -> 网页设计 -> asp实现上一篇下一篇--asp编程技术

2006-4-29　　　作者：　　　来源：互联网　　　点击：1405

页面功能：【评论】【有错就点】【字体：大中小】【打印】【关闭】【收藏本页】

'定义一个thenext函数来找出下一篇的ID，如果当前记录已经是最后一条记录，则输出文字“没有了”
<%
function thenext
newrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from articles where id>"&a1&" order by id"
set newrs=conn.execute(sql)
if newrs.eof then
response.Write("没有了")
else
a2=newrs("id")
response.Write("<a href='view.asp?id="&a2&"'>下一篇</a>")
end if
end function
%>
'定义一个thehead函数来找出下一篇的ID，如果当前记录已经是最前面的一条记录，则输出文字“没有了”
<%
function thehead
headrs=server.CreateObject("adodb.recordset")
sql="select top 1 * from articles where id<"&a1&" order by id desc"
set headrs=conn.execute(sql)
if headrs.eof then
response.Write("没有了")
else
a0=headrs("id")
response.Write("<a href='view.asp?id="&a0&"'>上一篇</a>")
end if
end function
%>
'数据库连接文件

'取得传递过来的ID，显示文章标题作者和内容
<%
id=request("id")
sql="select * from articles where id="&id
set rs=conn.execute(sql)
%>
<% boardid=rs("boardid") %>
<title>文章系统-<% =rs("title") %></title><body leftmargin="0" topmargin="0">

<%
Do While Not rs.EOF
%>
<table width="773" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="576" align="left">
<table width="557" border="0" cellspacing="5" cellpadding="4" align="left">
<tr>
<td colspan="2" align="center"><span style="font-size:9pt color:#efefef"><%= rs("title") %><br>
<div align="right"><span style="font-size:9pt color:#efefef">作者：<%= rs("author") %></span></div>
</span></td>
</tr>
<tr>
<td colspan="2" ><span style="font-size:9pt color:#efefef"><%= replace(server.HTMLEncode(rs("content")),chr(13),"<br>") %></span></td>
</tr>
<% a1=rs("id") %>
<tr>
<td width="269" align="right"><% thehead %></td>
<td width="257" align="right"><% thenext %></td>
</tr>
<% rs.MoveNext%>
<%Loop%>
</table></td>
<td width="217" valign="top" align="left">相关文章：
'根据当前文章的栏目号，找出同一栏目的文章
<%
sql="select * from articles where boardid="&boardid&""
set rs=conn.execute(sql)
%>
<%
Do While Not rs.EOF
%>
<table width="207" border="0" cellspacing="2" cellpadding="2">
<tr>
<td height="20"><a href="view.asp?id=<%=rs("id")%>"><%= rs("title") %></a></td>
</tr>
</table>
<% rs.MoveNext%>
<%Loop%>
</td>
</tr>
</table>

</body>

页面功能：【评论】【有错就点】【字体：大中小】【打印】【关闭】【收藏本页】

声明：本站刊载此文不代表同意其说法或描述，仅为提供更多信息，也不构成任何建议。如有疑问请与站长联系。

相关链接更多...

浅谈自动采集程序及入库2006-4-29
ASP实现对新闻的分页例子2006-4-29
ASP对Cookies操作的详细介绍2006-4-29
ASP实现随机提取数据库记录例程2006-4-29
ASP实现QQ式的信息收发功能2006-4-29
asp实现上一篇下一篇2006-4-29
javascript分割字符串2006-4-29
仿网易新闻的“头图新闻”的图片转换效果2006-4-29
百度中关于site命令和inurl命令之我见2006-4-29
Robots.txt指南2006-4-29

网友评论

目前没有评论!

发表评论

全站精华

图文精彩

【2006-4-26 17:57:18】
经典样本设计欣赏（国人作品）1

【2006-4-26 14:27:13】
新锐CG插画 Monday to Friday

【2006-4-26 13:34:46】
Natascha Roeoesli的人物CG插画作品欣赏(1)

【2006-4-26 9:31:54】
水木清华地产广告欣赏

【2006-4-22 16:46:51】
2006夏日流行时尚，创意无限街头华丽

【2006-4-21 9:08:35】
万科西山庭院.格.沉.尊

【2006-4-20 11:43:23】
泊林花园推广故事绘本（2）

【2006-4-20 11:34:33】
泊林花园推广故事绘本（1）

【2006-4-14 15:56:06】
房地产广告设计-之水墨风格1

【2006-4-14 14:45:57】
溯源居广告欣赏--小红人

【2006-4-14 9:21:18】
cg插画欣赏

【2006-4-13 18:32:29】
yashasi插画作品欣赏

【2006-4-13 9:49:02】
北邦插画欣赏（1）

【2006-4-12 8:58:34】
高傲的玫瑰-温碧霞

【2006-4-11 17:51:33】
国粹京剧脸谱表情

【2006-4-11 16:34:31】
回忆紫禁城里那些逝去的

【2006-4-11 15:59:16】
非常可爱的儿童插画（1）

【2006-4-11 15:49:41】
荷兰著名画家Anton Pieck插画

【2006-4-11 15:37:32】
美国插画师kevindart作品

【2006-4-11 15:34:43】
美国插画师kevindart作品(1)

版权声明：本站部分图文内容取自互联网。您若发现有侵犯您著作权行为，请及时告知，我们将在第一时间删除侵权作品、停止继续传播。
本站作品版权归我站和作者共有，除部分特别声明不要转载文章外，可以自由转载我站点的原创文章，但原作者和来自我站的链接必须保留
（非我站原创的，按照原来自一节，自行链接）。对于被本站转载文章的个人和网站，我们表示深深的谢意。
Copyright 2006-2007，版权所有 www.fansart.com 网站管理:webmaster@fansart.com QQ:44550498
苏ICP备06010621号

asp实现上一篇下一篇--asp编程技术

浅谈自动采集程序及入库

javascript分割字符串