搜索页面值传递的有关问题

搜索页面值传递的问题


&lt;div id="jobquery" style="height:980px"&gt;
            &lt;ul&gt;
                &lt;li class="cap"&gt;
                
                &lt;div class="bt"&gt;&lt;strong&gt;标题&lt;/strong&gt;&lt;/div&gt;
                &lt;div class="bk"&gt;&lt;strong&gt;时间&lt;/strong&gt;&lt;/div&gt;
                
                &lt;/li&gt;
            &lt;/ul&gt;
            &lt;ul class="queryul" &gt; 
             &lt;%
               dim cnstr,epage,i,count,key
       key=request.form("key")
               cnstr = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("./lianjiang.mdb") 
               dim rs
               set cn = server.CreateObject("adodb.connection")
               cn.Open cnstr
               sql="select * from new where New_Name like '%"&key&"%' order by New_ID desc"
               set rs = server.createobject("adodb.recordset")
               rs.open sql,cn,3
               If (rs.bof And rs.EOF) Then
            response.write "没有所要查询的信息"
            else
               rs.pagesize=25
               '设置每页记录数
               if request("page")&lt;&gt;"" then
                 epage=cint(request("page"))
               '取当前的页数
               if epage&lt;1 then epage=1
               '若当前页数小于1则置为1
               if epage&gt;rs.pagecount then epage=rs.pagecount
               '若当前页数大于最大页数值则置为最大页数
               else 
 
                 epage=1
               '否则页数为默认值1
               end if
               rs.absolutepage=epage
               '记录定位到当前页
               for i=0 to rs.pagesize-1
               '循环显示本页记录
                if rs.bof or rs.eof then exit for 
                '若已经到记录末尾或没有数据则退出循环
                count = count+1
                response.Write "&lt;li&gt;"
                response.write "&lt;div class='bt'&gt;&lt;a href='neirong.asp?id="&rs("New_ID")&"' target='right'&gt;"&rs("New_Name")&"&lt;/a&gt;&lt;/div&gt;"
                response.write "&lt;div class='bk'&gt;"&rs("New_Stime")&"&lt;/div&gt;"
                response.Write "&lt;/li&gt;"
                rs.movenext
               next   
               end if  



            %&gt;
            &lt;/ul&gt; 
            &lt;/div&gt;
            
            
            &lt;div id="showpages"&gt;
                  &lt;div id="pagesinfo"&gt;共&lt;% =rs.RecordCount %&gt;个 每页15个 页次：&lt;%=epage%&gt;/&lt;%=rs.pagecount%&gt;&lt;/div&gt;
                  &lt;div id="pages"&gt;&lt;ul&gt;&lt;li class="pbutton"&gt;&lt;a href="search.asp?page=1" target="_self"&gt;首页&lt;/a&gt;&lt;/li&gt;
&lt;li class="pbutton"&gt;&lt;a href="search.asp?page=&lt;%=epage-1%&gt;" target="_self"&gt;上一页&lt;/a&gt;&lt;/li&gt;
&lt;li class="pbutton"&gt;&lt;a href="search.asp?page=&lt;%=epage+1%&gt;" target="_self"&gt;下一页&lt;/a&gt;&lt;/li&gt;
&lt;li class="pbutton"&gt;&lt;a href="search.asp?page=&lt;%=rs.pagecount%&gt;" target="_self"&gt;尾页&lt;/a&gt;&lt;/li&gt;&lt;/ul&gt;&lt;/div&gt;
                &lt;%rs.close
conn.close 
        set rs=nothing
set conn=nothing%&gt;

这里点击首页上一页下一页和尾页 KEY的值就不能传递下去了请问要怎么改
[解决办法]
看红色部分

<div id="jobquery" style="height:980px">
<ul>
<li class="cap">

<div class="bt"><strong>标题</strong></div>
<div class="bk"><strong>时间</strong></div>

</li>
</ul>
<ul class="queryul" >
<%
dim cnstr,epage,i,count,key
key=request("key")
cnstr = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("./lianjiang.mdb")
dim rs
set cn = server.CreateObject("adodb.connection")
cn.Open cnstr
sql="select * from new where New_Name like '%"&key&"%' order by New_ID desc"
set rs = server.createobject("adodb.recordset")
rs.open sql,cn,3
If (rs.bof And rs.EOF) Then
response.write "没有所要查询的信息"
else
rs.pagesize=25
'设置每页记录数
if request("page")<>"" then
epage=cint(request("page"))
'取当前的页数
if epage<1 then epage=1
'若当前页数小于1则置为1
if epage>rs.pagecount then epage=rs.pagecount

'若当前页数大于最大页数值则置为最大页数
else
epage=1
'否则页数为默认值1
end if
rs.absolutepage=epage
'记录定位到当前页
for i=0 to rs.pagesize-1
'循环显示本页记录
if rs.bof or rs.eof then exit for
'若已经到记录末尾或没有数据则退出循环
count = count+1
response.Write "<li>"
response.write "<div class='bt'><a href='neirong.asp?id="&rs("New_ID")&"' target='right'>"&rs("New_Name")&"</a></div>"
response.write "<div class='bk'>"&rs("New_Stime")&"</div>"
response.Write "</li>"
rs.movenext
next
end if

%>
</ul>
</div>

<div id="showpages">
<div id="pagesinfo">共<% =rs.RecordCount %>个每页15个页次：<%=epage%>/<%=rs.pagecount%></div>
<div id="pages"><ul><li

target="_self">下一页</a></li>
<li class="pbutton"><a href="search.asp?page=<%=rs.pagecount%>&key=<%=key%>" target="_self">尾页</a></li></ul></div>
<%rs.close
conn.close
set rs=nothing
set conn=nothing%>

搜索页面值传递的有关问题

热点推荐