28,391
社区成员
发帖
与我相关
我的任务
分享
<%
set rs=server.createobject("adodb.recordset")
exec="select * from ly order by id desc"
rs.open exec,conn,1,1
if rs.eof then
else
rs.PageSize =9999999 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
%>
<%
set rs=server.createobject("adodb.recordset")
exec="select * from ly order by id desc"
rs.open exec,conn,1,1
if rs.eof then
else
rs.PageSize =9999999 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
%>
<%
for i=1 to rs.pagesize
j=i
if j mod 2=0 then
bg="#F1F5F8"
else
bg="#FFFFFF"
end if
%>
<tr>
<td height="25" align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("id")%></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("title")%></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("name")%></td>
<td width="95" align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("qq")%></td>
<td width="121" align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("mail")%></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%=rs("data")%></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input class="sc" type="button" name="Submit" value="删除" onclick="javascript:if(confirm('确定删除?删除后不可恢复!')){window.location.href='?id=<%=rs("id")%>&del=ok';}else{history.go(0);}" /></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%>
<%
end if
%>