关于分页请求帮助.........
我的代码是这样的,请问那分页的"下一页"URL怎么写<%
Dim ftime,ttime,Type1
ftime=Trim(request("ftime"))
ttime=Trim(request("ttime"))
Type1=Trim(request("Type1"))
%>
<%
dim rs,sql
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from T_Depot where Type='" & Type1 & "' and AddDate between '" & ftime & "'and '" & ttime & "' order by AddDate desc" rs.open sql,conn,1,1
pagecounter=15
%>
<td width="59"><div align="center" class="STYLE8">类型</div></td>
<td width="57"><div align="center" class="STYLE8">日期</div></td>
<td width="172"><div align="center" class="STYLE8">对方单位</div></td>
<td width="60"><div align="center" class="STYLE8">旧单号</div></td>
<td width="191"><div align="center" class="STYLE8">备注</div></td>
</tr>
<%
pageno=request.QueryString("pageno") '使用request.QueryString集合取得参数pageno的值
rs.pagesize=pagecounter '把页面记录数赋值给Recordset对象的pagesize属性，即一页所包含的记录数
page=rs.pagecount 'rs对象包含的数据页面
if pageno="" or pageno<1 then '当取到的当前页为空或者小于1时，把页面定位在第一页
pageno=1
end if
if rs.eof or rs.bof then
response.Write"<font color=""ff0000"">此数据表没有记录!</font>"
else
rs.absolutepage=Cint(pageno) '当页面不为空时，定位到pageno页面
position=rs.PageSize*pageno '计算到当前页面总的记录数
pagebegin=position-rs.PageSize+1 '当前页面开始的记录数
if position < rs.RecordCount then
pagend=position
else
pagend= rs.RecordCount
end if
e=1
do while not rs.eof and e<=rs.pagesize '在页面中循环显示22条记录
e=e+1
%>
<tr>
<td><div align="center"><%=rs("Type")%></div></td>
<td><div align="center"><%=rs("AddDate")%></div></td>
<td><div align="center" style="width: 170; height: 9" class=coffee onMouseOver="this.style.filter='glow(color=#FFCC00, strength=6)'" onMouseOut='this.style.filter=""'><a href='billshow.asp?BillCode=<%=rs("BillCode")%>'><%=rs("CustName")%></a></div></td>
<td><div align="center"><%=rs("OldBill")%></div></td>
<td><div align="center"><%=rs("memo")%></div></td>
</tr>
<%
rs.movenext
loop
pagecounter=pagecounter-1
end if
%>
<tr>
<td colspan="5"><div align="center"><span class="font2">页次：[<%=Cint(pageno)%>/<%=page%>]
记录：[<%=Cint(pagebegin)%>至<%=pagend%>条]
<%if Cint(pageno)>1 then%>
<a href="Searchshow.asp?Type=<%=Type1%>&ftime=<%=ftime%>&ttime=<%=ttime%>&pageno=<%=(pageno-1)%>">[上一页]</a> //这里的URL怎么改?我试了下,这样不行的
<%end if%>
<%if page>1 and Cint(pageno)<Cint(page) then%>
<a href="Searchshow.asp?Type=<%=Type1%>&ftime=<%=ftime%>&ttime=<%=ttime%>&pageno=<%=(pageno+1)%>">[下一页]</a>
<%end if%>
<%
rs.close '关闭记录集对象
set rs=nothing '释放记录集对象
conn.close '关闭数据库的连接
set conn=nothing '释放Connection对象
%>
初学,请高手指点........
[[it] 本帖最后由 bons 于 2008-9-6 23:26 编辑 [/it]]
