Public Sub ShowPage()Dim str_tmpint_totalRecord=XD_RS.RecordCountIf int_totalRecord<=0 Then str_error=str_error & "总记录数为零，请输入数据" Call ShowError()End IfIf int_totalRecord="" Then int_TotalPage=1Else If int_totalRecord mod PageSize =0
创建一个ASP通用分页类(8)
Public Sub ShowPage()Dim str_tmpint_totalRecord=XD_RS.RecordCountIf int_totalRecord<=0 Then str_error=str_error & "总记录数为零，请输入数据" Call ShowError()End IfIf int_totalRecord="" Then int_TotalPage=1Else If int_totalRecord mod PageSize =0
内容版权声明：除非注明，否则皆为本站原创文章。