|
#2
yms1232010-12-26 11:20
 程序代码：<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" 最简单的分页代码"http://www.> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <!--#include file="CONDB.inc"--> <!--引用数据库连接文件--> <!--#include file="Cls\WebSiteSetInf.asp"--> <% '声明数据库记录集对象 Dim rsano Dim oWebI '创建数据库记录集对象 Set rsano=Server.CreateObject("ADODB.Recordset") '设定数据库记录集游标类型 rsano.cursortype=3 '打开记录集对象 rsano.Open "select * From ANOUCE ORDER BY AnnounceTheDate DESC",con '设定每页显示记录数 rsano.pagesize=25 '得到请求的页号 page=clng(request("page")) IF request("page")<>"" then page=clng(request("page")) Else page=1 End IF IF page<1 Then page=1 If page>rsano.pagecount Then page=rsano.pagecount rsano.absolutepage=page '网页样式初始化代码 %> <title>网站公告页面</title> <STYLE type=text/css> A { TEXT-TRANSFORM: none; TEXT-DECORATION: none } UNKNOWN { TEXT-DECORATION: underline } .style22 {font-size: 12px} .style16 {font-size: 14px} BODY { background-color: <%=PageStyleT.BackGround%>; } </STYLE> </head> <BODY> <table width="294" height="46" border="0" cellspacing="0"> <tr> <td width="338"><div align="center" class="style22">公告标题</div></td> <td width="95"><div align="center" class="style22">发布日期</div></td> </tr> <% '定义循环变量 dim iPage For iPage=1 to rsano.Pagesize 'recno=(page-1)*rsano.pagesize+ipage记录编号计算公式 Response.Write("<tr>") Response.write("<td><span class=style16><a href=announceview.asp?anbh="&rsano.Fields(0).Value&" target=_self>"&rsano.Fields(1).Value&"</a></span></td>") Response.Write("<td><span class=style22>"&FormatDateTime(rsano.Fields(4).Value,2)&"</span></td>") Response.Write("</tr>") rsano.MoveNext IF rsano.EOF Then Exit For End If Next %> </table> <table width="293" border="0"> <tr> <% '翻页控制代码 IF page<>1 Then Response.Write("<td><span class=style22><a href=announce.asp?page=1>第一页</a></span></td>") Response.Write("<td><span class=style22><a href=announce.asp?page="&(page-1)&">上一页</a></span></td>") Else Response.Write("<td><span class=style22>第一页</span></td>") Response.Write("<td><span class=style22>上一页</span></td>") End IF IF page<>rsano.pagecount then Response.Write("<td><span class=style22><a href=announce.asp?page=" & (page+1) & ">下一页</a></span></td>") Response.Write("<td><span class=style22><a href=announce.asp?page=" & rsano.pagecount & ">最后一页</a></span></td>") Else Response.Write("<td><span class=style22>下一页</span></td>") Response.Write("<td><span class=style22>最后一页</span></td>") End IF %> <td><span class=style22>共<%=rsano.pagecount%>页</span></td> <td><span class=style22>当前第<%=page%>页</span></td> </tr> </table> <% '网页对象析构代码 rsano.Close con.Close Set rsano=Nothing Set con=Nothing %> </body> </html> |
天天在论谈看贴子学习，但还是学不太会
以上这代码我要 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>
