<% dim pagecount,page,Spage,Epage,recordcount,i page = request.querystring("page") if page = "" or IsNull(page) then page = 1 if not IsNumeric(page) then page = 1 page = Cint(page) set rs = server.CreateObject ("Adodb.recordset") ProduceTypeId = request.querystring("ProduceTypeId") If ProduceTypeId = "" Or IsNull(ProduceTypeId) then sql="SELECT ProduceInfo.*, ProduceType.ProduceTypeName FROM ProduceInfo left JOIN ProduceType ON ProduceInfo.ProduceTypeId = ProduceType.ProduceTypeId order by ProduceInfo.producename desc " Else sql="SELECT ProduceInfo.*, ProduceType.ProduceTypeName FROM ProduceInfo left JOIN ProduceType ON ProduceInfo.ProduceTypeId = ProduceType.ProduceTypeId where ProduceInfo.ProduceTypeId = " & ProduceTypeId & " order by ProduceInfo.producename desc " End If rs.open sql,conn,1,1 recordcount = RS.RecordCount RS.PageSize = PAGESIZE pagecount = RS.PageCount if page < 1 then page = 1 elseif page > pagecount then page = pagecount end if %>
<% if Not RS.EOF then if recordcount > 0 then RS.AbsolutePage = page j = 1 %> <% for i = 1 to PAGESIZE %> <% if (j mod 3) = 2 then %> <% If Not RS.EOF Then %> <% Else %> <%End If %> <% elseif (j mod 3) = 1 then %> <% If Not RS.EOF Then %> <% Else %> <%End If %> <%else%> <% If Not RS.Eof Then %> <% Else %> <%End If %> <% If j < PAGESIZE Then %> <%End If %> <% end if j = j + 1 If Not RS.EOF then RS.MoveNext() End If next end if %>
    P 11678
 
    P 12828
 
    P 13043
 

<% if Not RS.EOF then if recordcount > 0 then RS.AbsolutePage = page j = 1 %> <% for i = 1 to PAGESIZE %> <% if (j mod 3) = 2 then %> <% If Not RS.EOF Then %> <% Else %> <%End If %> <% elseif (j mod 3) = 1 then %> <% If Not RS.EOF Then %> <% Else %> <%End If %> <%else%> <% If Not RS.Eof Then %> <% Else %> <%End If %> <% If j < PAGESIZE Then %> <%End If %> <% end if j = j + 1 If Not RS.EOF then RS.MoveNext() End If next end if %>
    P 13155,13189
 
    P 13176
 
    P 13193
 

<% if Not RS.EOF then if recordcount > 0 then RS.AbsolutePage = page j = 1 %> <% for i = 1 to PAGESIZE %> <% if (j mod 3) = 2 then %> <% If Not RS.EOF Then %> <% Else %> <%End If %> <% elseif (j mod 3) = 1 then %> <% If Not RS.EOF Then %> <% Else %> <%End If %> <%else%> <% If Not RS.Eof Then %> <% Else %> <%End If %> <% If j < PAGESIZE Then %> <%End If %> <% end if j = j + 1 If Not RS.EOF then RS.MoveNext() End If next end if %>
    P 13255
 
    P 13376
 
    P 13452
 
<<< 1 2 3 4 5 6 >>>