<!--#include file="inc/conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<link href="style.css" type="text/css" rel="stylesheet" />
<style type="text/css">
select,Input
{
BACKGROUND-COLOR: #FFFDFB;
BORDER-BOTTOM: #89a5e6 1px solid;
BORDER-LEFT: #89a5e6 1px solid;
BORDER-RIGHT: #89a5e6 1px solid;
BORDER-TOP: #89a5e6 1px solid;
COLOR: #205064;
HEIGHT: 18px;
border-color: #B2C2D7 #B2C2D7 #B2C2D7 #B2C2D7; font-size: 9pt
}
</style>
</head>
<body>
<table width="1003" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="21" background="images/leftbg.gif"> </td>
<td width="647" valign="top"><table width="63%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="14" background="images/hy_22.gif"> </td>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="190" valign="top" bgcolor="#f1f1f1"><p>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from culturek"
rs.open sql,conn,3,1
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
n=1
rs.pagesize=3
rs.AbsolutePage=pagecount
filename="GuardHy.asp"
%>
</p>
<form action="<%= filename %>" method="get">
<table width="609" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="7" align="left"> </td>
</tr>
<tr>
<td width="69" align="center"> </td>
<% do while not rs.eof %>
<td width="414" align="center"><a href="GuardShow.asp?id=<%= rs("id") %>"><img src="<%=rs("counter")%>" border="0" /></a></td> <%
if n mod 3=0 then response.write "</tr><tr>"
rs.movenext
n=n+1
if n>rs.pagesize then exit do
loop
%>
<td width="126" align="center"> </td>
</tr>
<tr>
<td colspan="3" align="center">共
<% =rs.recordcount %>
条记录.页次:
<% =pagecount %>
/
<% =rs.pagecount %>
<% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>
<a href="<%=filename%>?page=<%=cstr(pagecount+1)%>" class="a">[下一页]</a>
<% end if %>
<% if rs.pagecount>1 and rs.pagecount=pagecount then %>
<a href="<%=filename%>?page=<%=cstr(pagecount-1)%>" class="a"> [上一页]</a>
<%end if%>
<% if pagecount<>1 and rs.pagecount<>pagecount then%>
<a href="<%=filename%>?page=<%=cstr(pagecount-1)%>" class="a"> [上一页]</a> <a href="<%=filename%>?page=<%=cstr(pagecount+1)%>" class="a"> [下一页]</a>
<% end if%>
直接到
<select name="page" >
<%for i = 1 to rs.pagecount %>
<option value="<%= i %>"><%= i %></option>
<% next %>
</select>
<input type="submit" name="Go" id="Go" value="go" /></td>
</tr>
</table>
</form>
<p> </p></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="9" background="images/hy_24.gif"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table></td>
<td width="319" valign="top" bgcolor="#C6CBCE"></td>
<td width="16" background="images/rightbg.gif"> </td>
</tr>
</table>
</body>
</html>
asp分页技术(二)
最新推荐文章于 2025-04-19 16:33:14 发布