关于 MOD 和 \ 选择 我常常会用到 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