学步园

我常常会用到

        Dim 总数 As Int16 = 10
        Dim 记录数 As Int16 = 6

        '得到要分几页
        If 总数 / 记录数 = 总数 \ 记录数 Then
            Response.Write(总数 / 记录数)
        Else
            Response.Write(总数 \ 记录数 + 1)
        End If

一位同事的做法，看起来舒服些

If intTotalRec mod intPageSize = 0 Then
        n= intTotalRec \ intPageSize
    Else
        n= intTotalRec \ intPageSize+1
    End If