引用:
原帖由 gijar 于 2006-10-26 14:04 发表
不知道這是不是不足哦?分頁很完美,只是從第二頁開始就沒有評論了,這樣的分頁是否可以在完美一下?
应该是page变量和评论的page参数重复了
换一个传递参数就好了
Page=Request.QueryString("
CPage")
If isnumeric(Page)=false Then Page=1
If Page<1 Then Page=1
If Page-1>PageCounter Then Page=1
For x=1 To PageCounter+1
xx=x
If CInt(Page)=x Then xx="<font style='color:red;font-weight:bold'>"&x&"</font>"
PageList=PageList&" "&"<a href='?id="&logID&"&
CPage="&x&"'>["&xx&"]</a>"