Function PageSplit(objRs,strUrl,cssClass,listSize,cssSep) Dim pgnum,page page=Request("page") objRs.PageSize = listSize pgnum=objRs.Pagecount if page="" or clng(page)<1 then page=1 if clng(page) > pgnum then page=pgnum if pgnum>0 then objRs.AbsolutePage=page If page=1 Then Response.Write " 首 页 | 上一页 | " Else Response.Write " 首 页 | " Response.Write " 上一页 | " End if If objRs.pagecount-page<1 Then Response.Write "下一页 | 尾 页" Else Response.Write "下一页 | " Response.Write "尾 页" End if Response.Write "　　　　　　　　　　　　　　第 "&page&" 页/共 "&pgnum&" 页" End Function 这段分页代码怎么用呢？直接放到我的gonggaolan.asp里就可以自动分页了吗？ 我现在是一页显示所有的通知，呵呵``别笑我！！

';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ';数据分页显示 strUrl 设置成自己本页 ';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Function PageSplit(objRs,strUrl,cssClass,listSize,cssSep) Dim pgnum,page page=Request("page") objRs.PageSize = listSize pgnum=objRs.Pagecount if page="" or clng(page)<1 then page=1 if clng(page) > pgnum then page=pgnum if pgnum>0 then objRs.AbsolutePage=page If page=1 Then Response.Write " 首 页 | 上一页 | " Else Response.Write " 首 页 | " Response.Write " 上一页 | " End if If objRs.pagecount-page<1 Then Response.Write "下一页 | 尾 页" Else Response.Write "下一页 | " Response.Write "尾 页" End if Response.Write "　　　　　　　　　　　　　　第 "&page&" 页/共 "&pgnum&" 页" End Function ';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ';文章分页显示 strUrl 设置成自己本页 ';>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Public Function SplitPage(strContents) Dim Page,PageArray PageArray=SepPosition(strContents) Page=Request("page") pgnum=UBound(PageArray) IF page="" or clng(page)<0 Then page=0 IF Clng(page) > pgnum Then page=pgnum IF pgnum = 0 Then ';只有一页 SplitPage=strContents Exit Function End IF If Page = 0 Then SplitPage=Mid(strContents,1,PageArray(page)-1) ElseIf Clng(Page)=pgnum Then SplitPage=Mid(strContents,PageArray(page-1)+19,Len(strContents)) Else SplitPage=Mid(strContents,PageArray(page-1)+19,PageArray(page)-(PageArray(page-1)+19)) End if End Function Public Function NavPage(strPage) Page=Request("page") IF page="" or clng(page)<0 Then page=0 IF pgnum > 0 Then IF Page = 0 Then Response.Write "上一页 " Else Response.Write "上一页 " End if If pgnum-Clng(Page)<1 Then Response.Write "下一页 " Else Response.Write "下一页" End If Response.Write " 共 " & pgnum + 1 & " 页 当前第 " & page + 1 & " 页" End IF End Function Public Function SepPosition(strContents) Dim intPos,strPos Dim intPageArray,strTemp strTemp = "[PAGE]------[/PAGE]" intPos=Instr(strContents,strTemp) strPos = intPos Do While (intPos) intPos=Instr(intPos+19,strContents,strTemp) strPos=strPos & "," & intPos Loop SepPosition=Split(strPos,",") End Function 这两段是不是要全部放到asp页面内 才可以实现分页功能呢？

呵呵，想了好久 都没想明白  谢谢您了，``呵呵  
我就去试下，不成功再来找您``

不行 嵌套不进去，显示是乱码```
郁闷  似乎很复杂。。。[br][br]-=-=-=- 以下内容由 copyday 在 2007年02月02日 04:48pm 时添加 -=-=-=-
我定义的表名 字段名 属性名 都不一样，怎么能嵌套进去呢？`

NumberOfRecord=Record.RecordCount NumberOfPage=Record.PageCount Numm=1 if Request.QueryString("Page").Count<>0 then iPage=clng(Request.QueryString("Page")) ';response.write(Request.Form("go").Count) if Request.Form("go").Count<>0 then iPage=clng(Request.Form("go")) if iPage=0 then iPage=1 if NumberOfRecord>0 then response.Write("共有" & NumberOfRecord & "封 分" & NumberOfPage & "页 第" & iPage & "页") %> <% Group=(iPage-(iPage) mod 10)/10 if Group>0 then %> ">上10组 <%end if%> <%for i=Group*10+1 to Group*10+10 if i<=NumberOfPage then %> "><%=i%> <%end if Next if NumberOfPage>Group*10+10 then %> ">下10组 <%end if%> 这个是我自己的分页代码，但是只能分出1页来，怎么修改呢？具体改什么地方呢？

我想绕绕  弯路的，看来是不行
还是要系统的学才行````

';strUrl：你用来显示数据列表的网页，如：ShowClass.asp?ID=232

恩，我的是gonggaolan.asp 是不是把strurl全部替换就可以了
换成:
Function PageSplit(objRs,gonggaolan.asp,cssClass,listSize,cssSep)
象这样？？？别笑我。。[br][br]-=-=-=- 以下内容由 copyday 在 2007年02月05日 04:07pm 时添加 -=-=-=-
或者是这样？
Dim pgnum,page
page=Request("page")
strurl=gonggaolan.asp  ';这样写对吗？

呵呵 ，见笑了，基础确实是很差  连基本的原理都不搞清楚。。
恩，我有机会测试下`。。
谢谢了