分页可能是代码有误 请高手帮忙下！谢谢了

[xiqing46]

if jishu mod 1 =0 then rstr=rstr & "</tr>"
jishu=jishu+1
rs.movenext
iItem = iItem - 1
Loop
jishu=jishu-1
if jishu mod 1 <> 0 then
for i= 1 to 1-(jishu mod 1)
rstr=rstr & "<td width='10%'> </td>"
if i = 1-(jishu mod 1) then rstr=rstr & "</tr>"
next
end if
strPage = "<div class='pagination'> <li class='disablepage'>共" & rs.pageCount & "</strong>页</li>"
strPage = strPage & " <li class='disablepage'>当前第<strong>" & Page & "</strong>页</li>"
if Rs.PageCount > 1 then
isslh=false
for iWooo = 1 to rs.pageCount
if iWooo = page then
strPage = strPage & " <li class='currentpage'>" & iWooo & "</li>"
else
if iWooo>8 || iWooo<rs.pageCount-8 then
if iWooo = 1 then
strPage = strPage & " <li><a href='10"&classid&".htm'>" & iWooo & "</a></li>"
else
strPage = strPage & " <li><a href='10"&classid&"_" & iWooo & ".htm'>" & iWooo & "</a></li>"
end if
else
if isslh then strPage = strPage & "..."
end if
end if
next
end if

[leiziaitudou]

<script language="VB" runat="server">
'定义若干页面级变量和常量,主要用来分页
Dim conn As OleDbConnection '数据库连接对象变量
Dim PageSize As Integer '每行显示多少条记录
Dim StartPosition As Integer '从第几条记录开始显示
Dim CurrentPage As Integer '当前显示第几页
Dim TotalPage As Integer '该变量用来表示总共多少页

Sub Page_Load(Sender As Object, E As EventArgs)
'建立Connection对象
conn= New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("guest.mdb"))
'从web.Config文件中读取数据
PageSize=ConfigurationSettings.AppSettings("PageSize")

'如果没有提交表单，就执行下面的绑定函数
If Not Page.IsPostBack Then
'下面调用函数，绑定数据
Call BindData()
End If
End Sub

'数据绑定过程，供其它函数调用
Sub BindData()
'在绑定数据之前，先计算得到有关变量**************************************************************

'先调用函数，返回总共有多少页
TotalPage=GetTotalPage()

'计算当前要显示的页
If Request.QueryString("commandname")<>"" Then
'这种情况表示选择了上一页或下一页，因此从Session中读取，并根据具体情况加1或减1
Select Case Request.QueryString("commandname")
Case "first"
CurrentPage=1
Case "prev"
CurrentPage=CInt(Session("CurrentPage"))-1
If CurrentPage<1 Then CurrentPage=1 '如果小于1，当然应该显示第1页
Case "next"
CurrentPage=CInt(Session("CurrentPage"))+1
If CurrentPage>TotalPage Then CurrentPage=TotalPage '如果大于总数，就显示最后页
Case "last"
CurrentPage=TotalPage
End Select
'选择完毕，重新将页码保存到Session中
Session("CurrentPage")=CurrentPage
ElseIf Not (Session("CurrentPage") Is Nothing) Then
'这种情况表示没有选择下面的页码，但也不是刚打开页面，可能是提交了表单，或者从回复和删除页面返回。
'此时应该从Session中读取。（当然，如果要考虑复杂，还可以细分各种情况）
CurrentPage = Session("CurrentPage")
Else
'这种情况表示刚刚打开页面，还没有提交或选择页码，因此另其为1
CurrentPage=1
Session("CurrentPage")=CurrentPage
End If

'下面开始绑定数据***********************************************************************************
Dim adp As New OleDbDataAdapter("select * from guest order by submit_date Desc", conn) '建立DataAdapter对象
Dim ds As New DataSet() '建立DataSet对象

'计算从第几条记录开始显示，应该是当前页的第1条记录，请仔细理解其中的数学计算
'注意记录索引从0开始

StartPosition=(CurrentPage-1)*PageSize

'这里的Fill方法有4个参数，第2个表示从第几行开始，第3个表示总共要多少行
adp.Fill(ds,StartPosition,Pagesize,"guest") '填充DataSet对象

MyRepeater.DataSource=DS.Tables("guest").DefaultView '指定数据源
MyRepeater.DataBind() '执行绑定

'下面设置有关显示总页数和当前显示页数信息*************************************************************
theCurrentPage.Text=CurrentPage.Tostring
theTotalPage.Text=TotalPage.Tostring
End Sub

'该函数用来返回总共有多少页
Function GetTotalPage()
'下面先返回总共有多少条记录
Dim TotalRecord As Integer
Dim strsql As String = "select count(*) as total From guest"
Dim cmd As New OleDbCommand(strsql, conn)
conn.Open()
Dim dr As OleDbDataReader = cmd.ExecuteReader
If dr.Read() Then
' intCount = Int32.Parse(dr.Item("total").ToString)
TotalRecord = dr.Item("total")
Else
TotalRecord = 0
End If
Conn.Close()
'下面计算总共有多少页
If (TotalRecord Mod PageSize)=0 Then
'如果能整除，则
GetTotalPage=TotalRecord/PageSize '返回函数值
Else
'如果不能整除，则用整除\并+1
GetTotalPage=TotalRecord\PageSize+1 '返回函数值
End If
End Function

看看这个

[junshanhudazhaxi]

有错误你不说什么错误？代码也贴一半？还是这种无格式的代码！