一个文章分页问题

Question

提交的时候用strip_tags处理一下再算

Answer 1

原理：在文章中插入特殊字符，例如"[---分页---]"，读取文章时在特殊字符出分开保存到数组中
部分代码：
NewsID=Request.QueryString("NewsID")
Page=Request.QueryString("page")

if page="" then
page=1
elseif not IsNumeric(page) then
response.write "<script>alert('非法参数');history.back()</script>"
response.end
end if

page=int(page) arr_Content=split(News_Content,"[---分页---]")
MaxPages=ubound(arr_Content) Response.Write arr_Content(Page-1) url="readnews.asp?newsid="&newsid
if MaxPages >0 then
Response.write "<a class=black href='" & Url & "&page=1' title='第1页'>首页</a> "
if Page-1 > 0 then
Prev_Page = Page - Response.write "<a class=black href='" & Url & "&page=" & Prev_Page & "' title='第" & Prev_Page & "页'>上一页</a> 
end if
for PageCounter=0 to MaxPages
PageLink = PageCounter+1
if PageLink <> Page Then
Response.write "<a class=black href='" & Url & "&page=" & PageLink & "'>[" & PageLink & "]</a> "
else
Response.Write "<font color='#FF0000'><B>["& PageLink &"]</B></font> "
end if
If PageLink = MaxPages+1 Then Exit for
Next
if page <= Maxpages then
bdd_Page = Page + 1
Response.write "<a class=black href='" & Url & "&page=" & bdd_Page & "' title='第" & bdd_Page & "页'>下一页</A>"
end if
Response.write " <A class=black href='" & Url & "&page=" & Maxpages+1 & "' title='第"& Maxpages+1 &"页'>尾页</A>"
end if