ASP实现长文章分页

　　<%

　　'处理接收分页得参数,显示页数 也就默认第一页

　　'page这个参数就是让变量pagenum去显示第一也得值:0

　　if Request("page")="" then

　　pageNum=0

　　'下面就是page接参数

　　else

　　pageNum=Request("page")

　　if not isnumeric(pageNum) then

　　Call DH.Alert("操作错误！","-1")

　　else

　　pageNum=clng(pageNum)

　　end if

　　end if %>

　　<%

　　'这里就是关键了 把你得内容字段赋给 ConTentStr

　　ConTentStr=Replace((rs("dhsl_Content")),"|||"," ||| ")

　　%>

　　<%

　　'使用函数splist取出分段存入ConTentStr中

　　ConTentStr=split(ConTentStr,"|||")

　　'下面就是url取得得页面变量

　　for i = pageNum to pageNum

　　%>

　　'然后显示内容

　　<%=ConTentStr(i)%>

　　<% Next %>

　　本文章共分:

　　<%

　　for p = 0 to ubound(ConTentStr)

　　%>

　　<a href="内容页面名称.asp?传递的参数=<%=Request("接受的参数")%>&page=<%=p%>"class="text"><%=p+1%></a>

　　<% next %>页