Function ExportPageInfo(ByRef rs,curpage,i,LinkFile)
Dim retval, j, pageNumber, BasePage

retval = \"第\" & curpage & \"页/总\" & rs.pagecount & \"页 \"
retval = retval & \"本页\" & i & \"条/总\" & rs.recordcount & \"条 \"

If curpage = 1 Then
retval = retval & \"首页 前页 \"
Else
retval = retval & \"<aconfirmDel(<%= adoPageRS(\"id\") %>)\'\'>删除</a></td>
</tr>
<%
adoPageRS.movenext
adoPageRS.eof then
i = i + 1
exit for
End If
next
%>
<tr align=\"center\">
<td colspan=\"3\">
<% = ExportPageInfo(adoPageRS, curpage, i, \"Newsman.asp?\") %>
</td>
</tr>
</table>
</center>
</div>