海量查询 以下代码为何只显示一个页面信息 点击下一页都是第一个页面的信息哦

[xuxinqiujiao123]

<div id="jicontent">
<%
pz=25 '分页大小
pgcount=0
page=clng(request.QueryString("page")) '第几页

topx=pz
topy=(pz-1)*page

Dim StrServer,StrUid,StrSaPwd,StrDbName
StrServer="211.147.221.34"
StrUid="famliyeducation"
StrSaPwd="hnsdjjzx"
StrDbName="famliyeducation"
Dim Conn
Dim StrDSN
Dim Rs
StrDSN="driver={SQL server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
set Conn = Server.CreateObject("ADODB.Connection")
set Rs=Server.CreateObject("ADODB.RecordSet")
Conn.Open StrDSN
if request.QueryString("leib")="grade" then
sql="select * from [message] where grade like '%"&trim(request.QueryString("keyword"))&"%' order by addtime desc,bian desc"
elseif request.QueryString("leib")="pro" then
sql="select * from [message] where pro like '%"&trim(request.QueryString("keyword"))&"%' order by addtime desc,bian desc"
elseif request.QueryString("leib")="subject" then
sql="select * from [message] where subject like '%"&trim(request.QueryString("keyword"))&"%' order by addtime desc,bian desc"
elseif request.QueryString("leib")="jsex" then
sql="select * from [message] where jsex like '%"&trim(request.QueryString("keyword"))&"%' order by addtime desc,bian desc"
elseif request.QueryString("leib")="info_statu" then
sql="select * from [message] where stat like '%"&trim(request.QueryString("keyword"))&"%' order by addtime desc,bian desc"
else
sql="select top "&topx&" * from [message] where id not in(select top "&topy&" id from [message]) order by addtime desc,bian desc"
end if

sqlcount="select count(id) as H from [message]"
rs.open sqlcount,conn,1,1
pgcount=clng(rs("H"))
rs.close

allpage=cint(pgcount/pz)
if (pgcount mod pz)>0 then
allpage=allpage+1
end if

if page>allpage then
page=allpage
end if

if page<1 then
page=1
end if

rs.open sql,conn,1,1
if (rs.eof and rs.bof) then
response.Write("<center><br/><br/><br/><br/>对不起，暂时没有任何家教信息！<br/><br/><br/><br/></center>")
else
%>
<font size="2" color="#000000"><font size="2" color="#333333">

</font></font>
<table width="940" border="0" cellspacing="0" cellpadding="0">
<div style="position:relative;left:50px; margin-top:-5;"><font size="2" color="#333333"><form action="jinfo.asp" target="_blank" method="get" name="sousuo"><strong>搜索家教信息:<input name="keyword" type="text" style="width:200px;"/>  <select name="leib">
<option value="grade" selected="selected">年级</option>
<option value="pro">就读学校</option>
<option value="subject">辅导科目</option>
<option value="jsex">老师性别</option>
<option value="info_statu">信息状态</option>

</select>  <input name="Input" type="submit" value="搜索" align="absmiddle"/></form></font></div>
<tr align="center" valign="middle" height="26">
<td width="140" background="skin/css1/sd_img/j2_title.gif"><font size="2" color="#000000"><strong>信息编号</strong></font></td>
<td width="150" background="skin/css1/sd_img/j2_title.gif" ><font size="2" color="#000000"><strong>学生年级</strong></font></td>
<td width="150" background="skin/css1/sd_img/j2_title.gif"><font size="2" color="#000000"><strong>辅导内容</strong></font></td>
<td width="150" background="skin/css1/sd_img/j2_title.gif"><font size="2" color="#000000"><strong>辅导时间</strong></font></td>
<td width="150" background="skin/css1/sd_img/j2_title.gif"><font size="2" color="#000000"><strong>辅导地点</strong></font></td>
<td width="120" background="skin/css1/sd_img/j2_title.gif"><font size="2" color="#000000"><strong>可提供价格</strong></font></td>
<td width="80" background="skin/css1/sd_img/j2_title.gif"><font size="2" color="#000000"><strong>老师性别</strong></font></td>
</tr>
<%

while not(rs.eof or rs.bof)
%>
<tr>
<td class="jlie"><font size="2"><a target =_blank href="jinfo1.asp?id=<%=rs("id")%>"><%=rs("bian")%></a><%response.write"<font color='#009900'>["&rs("stat")&"]</font>"%></font></td>
<td class="jlie"><font size="2"><%=rs("grade")%></font> </td>
<td class="jlie" align="left"><font color=#ff0000 size="2"><%if len(ujie(rs("subject")))>10 then response.write left(rs("subject"),8)&"..." else response.write rs("subject") end if%></font></td>
<td class="jlie" align="left"><font size="2"><%if len(ujie(rs("ftime")))>10 then response.write left(rs("ftime"),7)&"..." else response.write rs("ftime") end if%></font></td>
<td class="jlie" align="left"><font size="2"><%if len(ujie(rs("didian")))>10 then response.write left(rs("didian"),8)&"..." else response.write rs("didian") end if%></font></td>
<td class="jlie" align="left"><font size="2"><%if len(ujie(rs("price")))>10 then response.write left(rs("price"),8)&"..." else response.write rs("price") end if%></font></td>
<td class="jlie"><font size="2">[<%=rs("jsex")%>]</font></td>
</tr>
<%
rs.movenext
wend
%>
<tr><td colspan="8" height="40" align="center"><font size="2" color="#000000"><form action="jinfo.asp" method="get">
当前页码:<font color="#FF0000"><%=page%></font>/<%=allpage%>页    < <a href="jinfo.asp?page=1&leib=<%=request.QueryString("leib")%>&keyword=<%=request.QueryString("keyword")%>">首页</a>  <a href="jinfo.asp?page=<%=(page-1)%>&leib=<%=request.QueryString("leib")%>&keyword=<%=request.QueryString("keyword")%>">上一页</a>  <a href="jinfo.asp?page=<%=(page+1)%>&leib=<%=request.QueryString("leib")%>&keyword=<%=request.QueryString("keyword")%>">下一页</a>  <a href="jinfo.asp?page=<%=rs.pagecount%>&leib=<%=request.QueryString("leib")%>&keyword=<%=request.QueryString("keyword")%>">尾页</a> >   跳转到 <input name="page" type="text" class="in1"/> 页  <input name="" type="submit" value="提交" /></form></font></td></tr>
</table>
<font size="2" color="#333333">
</font>
<%
end if
rs.close
set rs=nothing
set conn=nothing
%>
</div>