asp分页问题?高手请进?

来源:百度知道 编辑:UC知道 时间:2024/05/28 02:22:52
<%
set cnn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cnn.open"Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/a.mdb")
sql="select * from p"
rs.open sql,cnn,1,3
%>
<%rs.pagesize=2
tt=rs.pagecount
page=request.QueryString("page")
if page="" then '限制代码
page="1"
end if
rs.AbsolutePage=page
%>
<%if rs.recordcount-page*rs.pagesize < 0 then
pagetotal=rs.recordcount-(tt-1)*rs.pagesize
else
pagetotal=rs.pagesize
end if
for i=1 to pagetotal step 1
response.write rs("user")&"<p>"
if (rs.recordcount-page*rs.pagesize > 0 ) then
rs.movenext()
end if
next%>
下拉菜单:
总的页面数
但无法实现点击那页下拉表单的默认值就显示那页
跳转后,总显示第一页
代码如下:
<%pagenow=request.QueryString("page

你是研究别人的源代码后写的吧?
跳转不对的原因是因为上面还有 一个专门写跳转的javascript 函数。

<%pagenow=request.QueryString("page")%>
<select name=menu1 onChange=location=this.options[this.selectedIndex].value >
<%for pageindex=1 to tt step 1%>
<option value=dsf.asp?page=<%=pageindex%> <%if i=pageindex Then Response.write ("Selected")%>><%=pageindex%></option>
<%next%>
</select>