|
|
| 党 员 名 册 |
<%SQL="Select * from type order by id desc"
Set rs=server.CreateObject("ADODB.RecordSet")
rs.Open SQL,con,1,1
%>
<%
if rs.eof and rs.bof then
response.write ""
else
on error resume next
rs.PageSize = 10
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
rs.AbsolutePage = Page
i=page+(page-1)*9
For iPage = 1 To rs.PageSize
%>
|
<%
rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next
%>
<% end if %>
|
|
|
