我的代码是这样的,请问那分页的"下一页"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]]