asp实现内容过长时分页

最新推荐文章于 2025-12-03 13:04:04 发布

转载最新推荐文章于 2025-12-03 13:04:04 发布 · 563 阅读

文章标签：

#asp #function #数据库 #测试

asp 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一种使用VBScript实现的简单数据库文章内容分页显示方法。通过定义字符串变量存储文章内容，并设置每页显示的字符数量，可以将长篇文章按需分割成多页展示。此外，还提供了页面导航功能以便于用户浏览。

<% str="数据库文章内容测试内容哈哈" function page(str,fontnum) if len(str)>fontnum then if len(str) mod fontnum>0 then '计算总页数 pagecontent=len(str)/fontnum+1 else pagecontent=len(str)/fontnum end if Dim arr() ReDim arr(pagecontent) for m = 1 to pagecontent if m <>pagecontent then arr(m)= mid(str,(m*fontnum-fontnum+1),fontnum) else arr(m)= mid(str,(m*fontnum-fontnum+1),len(str)) end if next if Request.QueryString("page") <>"" then Response.Write(arr(Request.QueryString("page"))) else Response.Write(arr(1)) end if Response.Write(" <br>") for i = 1 to pagecontent Response.Write(" <a href="?page=" mce_href="?page=""&i&">"&i&" </a> ") next else Response.Write(str) end if end function call page(str,5) %>