搜索页面值传递的问题
<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.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")<>"" 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 class="pbutton"><a href="search.asp?page=1" target="_self">首页</a></li>
<li class="pbutton"><a href="search.asp?page=<%=epage-1%>" target="_self">上一页</a></li>
<li class="pbutton"><a href="search.asp?page=<%=epage+1%>" target="_self">下一页</a></li>
<li class="pbutton"><a href="search.asp?page=<%=rs.pagecount%>" target="_self">尾页</a></li></ul></div>
<%rs.close
conn.close
set rs=nothing
set conn=nothing%>
'若当前页数大于最大页数值则置为最大页数
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%>
