asp带查询的分页例子

来源：互联网发布：高性能网络库编辑：程序博客网时间：2024/05/17 17:42

<%'判断权限if session("amdin")="" thenresponse.Redirect("timeout.htm")response.End()end ifd1 = request("d1") '开始日期d2 = request("d2") '结束日期con = trim(request("con")) '内容if d1<>"" and d2<>"" thenif cdate(d1)>cdate(d2) thenresponse.Write("＜script>alert('查询的开始日期必须小于结束日期！');history.back(-1);</script>")response.End()end ifend ifif d1 = "" then d1 = showToday()if d2 = "" then d2 = showToday()%><form name="form1" method="post" action="VVVVVV.asp" id="form1"><table border="0" align="center" cellpadding="0" cellspacing="0" > <tr> <td style="height: 24px"> 发送日期： <input type="text" style="border:1px solid #cccccc;" mce_style="border:1px solid #cccccc;" size="10" id="d1" value="<%=d1%>" name="d1"/> 至 <input type="text" style="border:1px solid #cccccc;" mce_style="border:1px solid #cccccc;" size="10" id="d2" value="<%=d2%>" name="d2" /> 短信内容： <input name="con" type="text" maxlength="10" id="con" style="width:145px;" /> <input type="submit" name="Search" value="查询" id="Search"/> </td></tr></table><table border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="10%" align="center">ID</td> <td width="70%" align="center">Content</td><td width="20%" align="center">Date</td> </tr><%set Recordrs=server.CreateObject("adodb.recordset")if con="" thenif d1 = d2 thenRecordsql="select XXXXXXXXX where [date]='" & d1 & "' and [user]='" & session("admin") & "' order by id desc"elseRecordsql="select XXXXXXXXX where [user]='" & session("admin") & "' and [date] between '" & d1 & "' and '" & d2 & "' order by id desc"end ifelseif d1 = d2 thenRecordsql="select XXXXXXXXX where [user]='" & session("admin") & "' and [date]='" & d1 & "' and [con] like '%" & con & "%' order by id desc"elseRecordsql="select XXXXXXXXX where [user]='" & session("admin") & "' and [con] like '%" & con & "%' and [date] between '" & d1 & "' and '" & d2 & "' order by id desc"end ifend ifRecordrs.open Recordsql,conn,1,3if Recordrs.recordcount=0 then%> <tr> <td align="center" colspan="4">无记录</td> </tr><%elseRecordrs.pagesize=20 '指定每页显示20条记录if request.querystring("page") <> empty and request.querystring("page") <> 1 then page=request.querystring("page") Recordrs.absoluteposition=(page-1)*Recordrs.pagesizeelse page=1 Recordrs.absoluteposition=1 '记录指针移动到第1条end iffor i=1 to recordrs.pagesizeif recordrs.eof then exit for%> <tr> <td align="center"><%=Recordrs("id")%></td> <td align="center"><div id="mess_box" style="height:50px;width:96%;OVERFLOW-y:auto;"><%=Recordrs("con")%></div></td> <td align="center"><%=Recordrs("date")%></td> </tr><%Recordrs.movenextnextend if%> <tr> <td colspan="9" align="right"><div style="float:right;" mce_style="float:right;"><%if cint(page) <> 1 then response.write "<a href="?d1=" & d1 & "&d2=" & d2 & "&con=" & con & "&page=1" mce_href="?d1=" & d1 & "&d2=" & d2 & "&con=" & con & "&page=1">首页</a> " response.write "<a href="?d1=" & d1 & "&d2=" & d2 & "&con=" & con & "&page="&page-1&"" mce_href="?d1=" & d1 & "&d2=" & d2 & "&con=" & con & "&page="&page-1&"">上一页</a> "else response.write "首页上一页 "end ifif cint(page) <> Recordrs.pagecount then response.write " <a href="?d1=" & d1 & "&d2=" & d2 & "&con=" & con & "&page="&page+1&"" mce_href="?d1=" & d1 & "&d2=" & d2 & "&con=" & con & "&page="&page+1&"">下一页</a> " response.write " <a href="?d1=" & d1 & "&d2=" & d2 & "&con=" & con & "&page="&Recordrs.pagecount&"" mce_href="?d1=" & d1 & "&d2=" & d2 & "&con=" & con & "&page="&Recordrs.pagecount&"">尾页</a>"else response.write "下一页尾页 "end ifresponse.write "　" & page & "/" & Recordrs.pagecount %></div> </td> </tr></table></form><%function showToday()showToday = year(now) & "-" & month(now) & "-" & day(now)end function%>