ASP长文章分页,如何从数据库的“内容”表中分页显示
由于刚学ASP网页制作,在网上下了一个“D.SHOME个人文章发布系统”,用那个系统发表了些文章,才发现文章长的话显示使页面一点都不美观,修改了很多次里面的“list.a...
由于刚学ASP网页制作,在网上下了一个“D.S HOME 个人文章发布系统”,用那个系统发表了些文章,才发现文章长的话显示使页面一点都不美观,修改了很多次里面的“list.asp",在网上也找了很多分页代码都未能成功分页。
请教各位ASP高手,帮忙修改一下"list.asp"的代码,使“数据库”里面的“内容”成功显示在“list.asp”页面,并且“分页”显示!
我的邮箱地址是collect865@163.com
有劳大家指教
看了一下下面的答案,我是希望把数据库里面的“Content”的内容通过 “ list.asp"前台显示啊! 展开
请教各位ASP高手,帮忙修改一下"list.asp"的代码,使“数据库”里面的“内容”成功显示在“list.asp”页面,并且“分页”显示!
我的邮箱地址是collect865@163.com
有劳大家指教
看了一下下面的答案,我是希望把数据库里面的“Content”的内容通过 “ list.asp"前台显示啊! 展开
展开全部
在添加新闻里需要分页的地方加一个标记[page]
前台输出:
page=request("page")'当前页数
if page="" then page=1
detail=文章内容'取数据库中的文章内容
ContentArray = Split(detail,"[Page]")
NewsPageCount = UBound(ContentArray) + 1
<!--输出当前页内容-->
<%=ContentArray(page-1)%>
<!--显示分页-->
<%
if NewsPageCount > 1 then
%>
<tr>
<td height="25"><div align="right">本新闻共<font color=red><%=NewsPageCount%></font>页,当前在第<font color=red><%=page%></font>页
<%for j = 1 to NewsPageCount
if page = j then
NewsPageStr = NewsPageStr & "<font color=""red"">" & j & "</font> "
else
NewsPageStr = NewsPageStr & "<a href=""zxshow.asp?id=" & id & "&page="&j&""">" & j & "</a> "
end if
Next
response.Write(NewsPageStr)
%>
前台输出:
page=request("page")'当前页数
if page="" then page=1
detail=文章内容'取数据库中的文章内容
ContentArray = Split(detail,"[Page]")
NewsPageCount = UBound(ContentArray) + 1
<!--输出当前页内容-->
<%=ContentArray(page-1)%>
<!--显示分页-->
<%
if NewsPageCount > 1 then
%>
<tr>
<td height="25"><div align="right">本新闻共<font color=red><%=NewsPageCount%></font>页,当前在第<font color=red><%=page%></font>页
<%for j = 1 to NewsPageCount
if page = j then
NewsPageStr = NewsPageStr & "<font color=""red"">" & j & "</font> "
else
NewsPageStr = NewsPageStr & "<a href=""zxshow.asp?id=" & id & "&page="&j&""">" & j & "</a> "
end if
Next
response.Write(NewsPageStr)
%>
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询