谢谢斑竹能否帮个忙!! (改个小程序)

05-05-25 kangyiaaaaaa
这是个页面显示7条留言的留言本我想让他仅仅显示3条,可否帮帮改一下!!非常谢谢!!

' set the record count

Recordset1_total = Recordset1.RecordCount

' set the number of rows displayed on this page

If (Recordset1_numRows < 0) Then

Recordset1_numRows = Recordset1_total

Elseif (Recordset1_numRows = 0) Then

Recordset1_numRows = 1

End If

' set the first and last displayed record

Recordset1_first = 1

Recordset1_last = Recordset1_first + Recordset1_numRows - 1

' if we have the correct record count, check the other stats

If (Recordset1_total <> -1) Then

If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total

If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total

If (Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total

End If

%>

<%

谢谢!!!!!!!!!!!!!!!!!!!!

猜你喜欢