请求版主们或高手帮忙搞成码分页显示
天天在论谈看贴子学习，但还是学不太会以上这代码我要 1页显示10条 并有最前一页和最后一页
实在不行搞得最简单的也行，也好给我这种新手学习！
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<title>清空所有会员——复选框批量删除+确定删除</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="inc/admin.css" type="text/css">
<SCRIPT language=JavaScript type=text/JavaScript>
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
</SCRIPT>
</head>
<body>
<div>
<form name="del" action="del_skins.asp" method="post">
<table width="70%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#3399CC">
<tr>
<td width="5%" height="25" align="center"><font color="red">ID号</font></td>
<td width="10%" height="25" align="center"><font color="red">用户</font></td>
<td width="10%" height="25" align="center"><font color="red">皮肤名称</font></td>
<td width="10%" height="25" align="center"><font color="red">文件名</font></td>
<td width="10%" height="25" align="center"><font color="red">皮肤路径</font></td>
<td width="5%" height="25" align="center"> </td>
<td width="5%" align="center"><font color="red">删除</font></td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from upfile"
rs.open sql,conn,1,3
do while not rs.eof
%>
<tr>
<td align="center"><input align="center" name="-" type="text" class="input1" id="-" value="<%=rs("id")%>" size="10" maxlength="100" disabled></td>
<td align="center"><input align="center" name="username" type="text" class="input1" id="username" value="<%=rs("username")%>" size="15" maxlength="100"></td>
<td align="center"><input name="fileremark" type="text" class="input1" id="fileremark" value="<%=rs("fileremark")%>" size="15" maxlength="100"></td>
<td align="center"><input name="filename" type="text" class="input1" id="filename" value="<%=rs("filename")%>" size="15" maxlength="100"></td>
<td align="center"><input name="fileurl" type="text" class="input1" id="look" value="<%=rs("fileurl")%>" size="15" maxlength="100"></td>
<td height="25" align="center"><label>
<input type="checkbox" name="id" value="<%=rs("id")%>">
</label></td>
<td align="center">删除</td>
</tr>
<%
rs.movenext
loop
%>
<tr>
<td height="25" align="center"> </td>
<td height="25" align="center"><label>
<input name="chkall" type="checkbox" id="chkall" value="select" onclick=CheckAll(this.form)>
</label></td>
<td align="center">选中全部</td>
</tr>
<tr>
<td height="25" colspan="3" align="center"><label>
<input type="submit" name="Submit" value="删除所选" onclick="{if(confirm('确定要删除皮肤及文件吗?')){return true;}return false;}" />
<input type="reset" name="Submit2" value="重置" />
</label></td>
</tr>
</table>
</form>
</body>
</html>
程序代码：
