Question

asp+access做的网页，有时候添加新闻内容太长了，怎么能自动分页显示呢

具体代码如下：<table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><table width="700" border=0
cellpadding=4 cellspacing=0 bordercolor=#111111 style="BORDER-COLLAPSE: collapse">
<tbody>
<tr>
<td width="100%" height="25" align="center" bgcolor="#FFFFFF" class="blk">(<%=rst("new_date")%>) 浏览人数： <%=rst("new_ckcs")%></td>
</tr>
<tr>
<td align="center" valign="top" bgcolor="#FFFFFF"><%if rst("new_pic")<>"" then%>
<img name="" src="<%=rst("new_pic")%>" alt="">
<%end if%></td>
</tr>
<tr>
<td width="100%" height="109" valign="top" bgcolor="#FFFFF0"><span class="blk"><%=rst("content") %></span></td>
</tr>
</tbody>
</table>
<%
rst.close '关闭数据库联结
Set rst=Nothing
%></td>
</tr>
</table>

分不多了，请大家帮帮忙谢谢了
单篇新闻内容太长了，
<td width="100%" height="109" valign="top" bgcolor="#FFFFF0"><span class="blk"><%=rst("content") %></span></td>
这是新闻内容显示的主体部分
按照下面说的保存代码，在调用，还是不行啊，只是显示
总页数：0 首页 上一页下一页 末页
网页内容还是老样子。

Answer 1

<%
dim articleStr,CurrentPage,Maxlen,totalLen,i,j,n
articleStr = rs("content") '从数据库中读取的内容
Maxlen = 1000 '初始化每页显示的字数
totalLen = len(articleStr)
if totalLen mod Maxlen = 0 then
pageCounts = fix(totalLen/Maxlen)
else
pageCounts = fix(totalLen/Maxlen)+1
end if
CurrentPage = Request("page")
if CurrentPage = "" then
CurrentPage = 1
end if
if Clng(CurrentPage) > pageCounts then CurrentPage = pageCounts
i = (CurrentPage-1)*Maxlen+1
j = Maxlen
Response.write mid(articleStr,i,j)&"<br>" '内容显示

'分页代码开始
Response.write "总页数："&pageCounts&" "
if CurrentPage < 2 then
Response.write "首页 上一页"
else
Response.write "<a href='?id="&request("id")&"&page=1'>首页</a> <a href='?id="&request("id")&"&page="&Cint(CurrentPage)-1&"'>上一页</a>"
end if
if CurrentPage > 3 then Response.write"..."

for n = CurrentPage - 3 to CurrentPage + 3
if n > 0 and Clng(n) <= pageCounts then
Response.write"<a href='?id="&request("id")&"&page="&n&"'>["&n&"]</a> "
end if
next
if CurrentPage + 3 < pageCounts then Response.write"..."
if Clng(CuttentPage) = pageCounts then
Response.write "下一页 末页"
else
Response.write "<a href='?id="&request("id")&"&page="&Cint(CurrentPage)+1&"'>下一页</a> <a href='?id="&request("id")&"&page="&Cint(pageCounts)&"'>末页</a>"
end if
%>
把以上代码保存成某个asp文件，然后在内容页里通过include调用就可以了。具体设置可以自己改，有注释

Answer 2

你是内容长，还是新闻多啊，
问的不清楚 ，