实现自动分页功能其实很简单

bucuo123

   

实现自动分页功能其实很简单 我改的已经太多了，对大家不适用，只能将这一小段代码贴出来，能看懂的就用吧； 注重：请将(Page)中的"("替换为"["和")"替换为","不包括引号 Refresh/function.asp文件。找到if IsNull(NewsContent) then NewsContent = ""这一行 if IsNull(NewsContent) then NewsContent = "" '自动分页开始 Dim PageCount,Content,PageContent if NewsContent "" and InStr(1,NewsContent,"Application("WordNum") 0 then PageCount=Int(Len(NewsContent)/Application("WordNum")) Content=left(NewsContent,Application("WordNum"))&"(Page)" for i=1 to PageCount if i = PageCount then PageContent=Mid(NewsContent,Application("WordNum")*i 1,Application("WordNum")) else PageContent=Mid(NewsContent,Application("WordNum")*i 1,AApplication("WordNum")) &"(Page)" end if Content = Content & PageContent next NewsContent = Content else NewsContent = NewsContent end if '自动分页结束这段代码你们复制过去也不能使用。主要是因为我将每页字符数WordNum存入了Application对象。你们可以直接在Inc/Const.asp中加入这一行 Const WordNum = 3000 ...

   

内容已隐藏,请关注公众号输入验证码查看

               
验证码 

  

本帖支持关注公众号查看

【无套路  无套路  无套路 扫描二维码关注公众号发送【验证码】收到验证码 在上面输入点击提交查看即可显示隐藏内容】