<td width="14%" align="center"><strong>删 除</strong></td>
</tr>
<%do while not rs.eof%>
<tr>
<td width="12%" height="7">
<p align="center"><%=rs("articleid")%>
</td>
<td width="13%" height="7">
<div align="center"><%=rs("type")%></div>
</td>
<td width="47%" height="7"><a href="viewarticle.asp?id=<%=rs("articleid")%>"><%=rs("title")%></a></td>
<td width="14%" align="center" height="7"><a href="edit.asp?id=<%=rs("articleid")%>">修 改</a></td>
<td width="14%" align="center" height="7"><a href="delete.asp?id=<%=rs("articleid")%>">删 除</a></td>
</tr>
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
</table>
<p><%
end sub
sub showpages()
dim n
if (totalPut mod MaxPerPage)=0 then
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if
if n=1 then
response.write "<p align='left'><a href=add.asp>添加信息</a>"
response.write "</p>"
exit sub
end if
dim k
response.write "<p align='left'>>> 信息分页 "
for k=1 to n
if k=currentPage then
response.write "[<b>"+Cstr(k)+"</b>] "
else
response.write "[<b>"+"<a href='manage.asp?page="+cstr(