<!--#INCLUDE FILE="../function/db.asp" --> <!--#INCLUDE FILE="../function/control.asp" --> <% dim master_rs dim staff_id dim sql dbf_connection() staff_id = cf_check_login_staff_id if Request.QueryString("hd_has_search") = "1" then staff_id = "Has Search" end if Set conn = Server.CreateObject("ADODB.Connection") conn.Properties("Connect Timeout") = 300 conn.Open gots Set master_rs = Server.CreateObject("ADODB.Recordset") sql = "select * from network_frozen_master order by create_date desc" master_rs.Open sql, conn, 1 %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title></title> <style type="text/css"> body{ width:960px;} table tr{ background-color:#FFFFFF; text-align:center;} </style> <script type="text/javascript"> </script> </head> <body> <form action="network_frozen_index.asp"> <table width="100%"> <tr><td><h2>Network Frozen</h2></td></tr> <tr><td><hr style="width:85%; text-align:left;" /></td></tr> </table> <fieldset> <legend>List All Case</legend> <table style="width:80%"><tr><td> <input type="button" value="Add New" style="float:right; width:120px;" onclick="javascript:window.location.href='./network_frozen_detail.asp?type=new'" /></td></tr><tr><td> <table style="width:100%;margin-left:5px;background-color:#2C6193;" border="0" cellspacing="1" cellpadding="0"> <tr style=" background-color:#D0D0D0; height:25px;"><th>Case No.</th><th>Create Staff</th><th>Create Date</th><th>Action</th></tr> <% dim page dim b_color page = 1 master_rs.PageSize = 10 if not IsEmpty(Request("Page")) then page = CInt(Request("Page")) if page > master_rs.PageCount then master_rs.AbsolutePage = master_rs.PageCount elseif page <= 0 then page = 1 else master_rs.AbsolutePage = page end if end if if master_rs.bof and master_rs.eof then %> <tr><td colspan="4">No Data!</td></tr> <% end if for i=1 to master_rs.PageSize if i mod 2 = 0 then b_color = "style='background-color:#D0D0D0'" else b_color = "" end if if master_rs.eof then exit for end if %> <tr <%=b_color %> > <td><%=master_rs.Fields("nf_master_id") %></td> <td><%=master_rs.Fields("create_by") %></td> <td><%=master_rs.Fields("create_date") %></td> <td><a href='network_frozen_detail.asp?type=view&id=<%=master_rs.Fields("nf_master_id") %>'>View</a></td> </tr> <% master_rs.MoveNext next %> </table> </td></tr> <tr><td> <p align="center"> <%if request("Page")>1 then%> <a href="network_frozen_index.asp?Page=<% = 1%>">首页</a> <a href="network_frozen_index.asp?Page=<% =page -1 %>">上一页</a> <%end if %> <% if page > master_rs.pagecount then page = master_rs.pagecount %> <%if page<>master_rs.pagecount then %> <a href="network_frozen_index.asp?Page=<% = page + 1%>">下一页</a> <a href="network_frozen_index.asp?Page=<% = master_rs.PageCount%>">尾页</a> <% end if %> <br /> <label>Current Page:<%=page %></label> <label>Total Page:<%=master_rs.PageCount %></label> </td></tr> </table> </fieldset> <input type="hidden" name="hd_staff_id" value="<%=staff_id %>" /> <input type="hidden" name="hd_has_search" value="1" /> </form> </body> </html>
工作中利用ASP的RecordSet实现分页效果
