当你在处理更大的数据库时,在一段时间内提供浏览很多数据库规则的能力而不是把整个数据库一下弄到浏览器这是必需的。下面的脚本会显示50个州,但是限制了在一段时间内每个显示不超过4个州的页面。整个13个页面能动态地创建下拉菜单输入或者引导起初的或者接下来的页面的按钮。这个脚本能很容易地适应数据库搜索工具。
<% ' Grabs the contstant for cursorlocation %>
<!--#include file="adovbs.inc" -->
<%
p=request.form("p")
‘检查页面值和确定它不是无效值
‘如果找到一个无效值,那么1要放到它的位置
if p = "" then
p=1
end if
accessdb="state_info"
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)
set rs = server.createobject("ADODB.Recordset")
sql = "select statename from states "
' ***********************************
'执行来自adovbs.inc的值
rs.cursorlocation=aduseclient
' *************************************
rs.cachesize=5
rs.open sql,cn
rs.movefirst
' 设置4个页面当中最大的规则数量
rs.pagesize=4
maxcount=cint(rs.pagecount)
rs.absolutepage=p
%>
<table border="0">
<tr><td valign=top><b>State</b></td></tr>
<%do while not rs.eof and numofobs<rs.pagesize%>
<tr><td valign=top><%=rs("statename")%></td></tr>
<%
rs.movenext
'计算出当前页面的规则数量
numofobs=numofobs+1
loop
%>
</table>
<form method='post' action='<%= request.servervariables("script_name")%>'>
<select name='p' size='1'>
<%
' 开始从页面的一到最大值的循环
Starts loop from one to the maximum number of pages
for counter=1 to cint(rs.pagecount)
%>
<option<%
'这会选择下拉菜单的当前页面
if cint(p) = cint(counter) then
response.write " selected "
end if
%> value="<%= counter %>">Page <%= counter %> of <%= cint(rs.pagecount) %></option>
<% next %>
</select>
<input type="submit" value="Go"</p>
</form>
<br>
<%
if p <> 1 then
%>
<form method='post' action='<%= request.servervariables("script_name")%>'>
<input type = "hidden" name="p" value="<%= p-1 %>">
<input type = "submit" value="<"> Previous Page
</form>
<% end if %>
<%
if cint(p) < cint(rs.pagecount) then
%>
<form method='post' action='<%= request.servervariables("script_name")%>'>
<input type = "hidden" name="p" value="<%= p+1 %>">
Next Page <input type = "submit" value=">">
<% end if %>
<p>
<%= numofobs &" states on displayed this page<br>" %>
<% ' Grabs the contstant for cursorlocation %>
<!--#include file="adovbs.inc" -->
<%
p=request.form("p")
‘检查页面值和确定它不是无效值
‘如果找到一个无效值,那么1要放到它的位置
if p = "" then
p=1
end if
accessdb="state_info"
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)
set rs = server.createobject("ADODB.Recordset")
sql = "select statename from states "
' ***********************************
'执行来自adovbs.inc的值
rs.cursorlocation=aduseclient
' *************************************
rs.cachesize=5
rs.open sql,cn
rs.movefirst
' 设置4个页面当中最大的规则数量
rs.pagesize=4
maxcount=cint(rs.pagecount)
rs.absolutepage=p
%>
<table border="0">
<tr><td valign=top><b>State</b></td></tr>
<%do while not rs.eof and numofobs<rs.pagesize%>
<tr><td valign=top><%=rs("statename")%></td></tr>
<%
rs.movenext
'计算出当前页面的规则数量
numofobs=numofobs+1
loop
%>
</table>
<form method='post' action='<%= request.servervariables("script_name")%>'>
<select name='p' size='1'>
<%
' 开始从页面的一到最大值的循环
Starts loop from one to the maximum number of pages
for counter=1 to cint(rs.pagecount)
%>
<option<%
'这会选择下拉菜单的当前页面
if cint(p) = cint(counter) then
response.write " selected "
end if
%> value="<%= counter %>">Page <%= counter %> of <%= cint(rs.pagecount) %></option>
<% next %>
</select>
<input type="submit" value="Go"</p>
</form>
<br>
<%
if p <> 1 then
%>
<form method='post' action='<%= request.servervariables("script_name")%>'>
<input type = "hidden" name="p" value="<%= p-1 %>">
<input type = "submit" value="<"> Previous Page
</form>
<% end if %>
<%
if cint(p) < cint(rs.pagecount) then
%>
<form method='post' action='<%= request.servervariables("script_name")%>'>
<input type = "hidden" name="p" value="<%= p+1 %>">
Next Page <input type = "submit" value=">">
<% end if %>
<p>
<%= numofobs &" states on displayed this page<br>" %>
</p>
简单生活,希望对大家有用!要觉得本文有价值请分享给您的朋友,生活就是人来人往,分享越多!收获越多!作者:天天ASP家园