<% ' 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>
热门信息
阅读 (161)
1 独特的随机字母阅读 (139)
2 检查和设置IIS服务器正确的权限阅读 (135)
3 存在的文件阅读 (128)
4 随机图像阅读 (124)
5 ASP读取、解析JSON数据