Question

如何在asp网站新闻中添加一个自动分页的代码？

用的是鼎峰的asp建站程序，在新闻里我想每一千个字作为一页，有没有现成的代码？加在什么地方？着急！！

Answer 1

自动分页不好，会打乱网页布局的。手动分页我写了一个。
<%
acticlepage=int(Trim(request("acticlepage")))
if acticlepage="" then acticlepage=0
Set rs_aboutus = Server.CreateObject("ADODB.Recordset")
sql="select Content from Aboutus"
rs_aboutus.open sql,conn,1,3
content=rs_aboutus("content")
contentArry=split(content,"<SPAN id=page></SPAN>")'分页标志,一般在后台添加文章里,手动加到代码里.
%>

<%
if ubound(contentArry)<1 then
response.Write(content)
else
response.Write contentArry(acticlepage)
response.Write("<hr><center>")
if acticlepage=0 then
response.Write "<a href=?Title="&Title&"&acticlepage="&acticlepage+1&">下一页</a>"
else
if acticlepage>=ubound(contentArry) then
response.Write "<a href=?Title="&Title&"&acticlepage="&acticlepage-1&">上一页</a>"
else

response.Write "<a href=?Title="&Title&"&acticlepage="&acticlepage-1&">上一页</a>   "
response.Write "<a href=?Title="&Title&"&acticlepage="&acticlepage+1&">下一页</a>"
end if
end if
response.Write("</center>")
end if%>
<%rs.close
set rs=nothing
rslist.close
set rslist=nothing
%>

注意事项，这是从我用的程序里复制出来的，你要作适当的修改。

Answer 2

这些是程序员要弄的，要修改的地方很多的

Answer 3

要看程序本身有没有了，有的话直接调用标签就好了，没有的话就要写了。
我用的逐浪CMS就有自动分页功能，你可以上官网看看。