查询翻页
<script language="javascript">
function putobject(obj_name,parentid)
{
eval("window.opener.document.goodsAdd." + parentid + ".value='" + obj_name + "'");
return window.close();
}
function putobject(obj_name1,city)
{
eval("window.opener.document.goodsAdd." + city + ".value='" + obj_name1 + "'");
return window.close();
}
</script>
<%
dim conn
set conn = server.CreateObject("adodb.connection")
conn.Open Application("connstr")
dim perpage,pagenum,totalpages,recordnum,sql
perpage=2
set rst = Server.CreateObject("adodb.recordset")
strsql= "select id,cs from cs Order By ID "
rst.Open strsql,conn,1,3
rst.PageSize=perpage
totalpages=rst.PageCount
if Request.ServerVariables("content_length")=0 then
pagenum=1
else
pagenum=CInt(Request.Form("pagenum"))
if Request.Form("submit1")="上一页" then
pagenum=pagenum-1
elseif Request.Form("submit2")="下一页" then
pagenum=pagenum+1
end if
if Request.Form("submit3")="首页" then
pagenum=1
end if
if Request.Form("submit4")="尾页" then
pagenum=totalpages
end if
end if
if not(rst.EOF) then
rst.AbsolutePage=pagenum
end if
%>
<html>
<BODY>
<BR>
<form action="" method=post name=queryform>
<table width="95%" border="0" cellspacing=0 cellpadding=0 bordercolor=#cccccc align=center>
<tr>
<td align=center>
<font size="2">城市编号</font> <input type=text size=10 name=cityNo
class=input1 style="WIDTH: 61px; HEIGHT: 19px" >
</td>
<td>
<font size="2">城市名称</font> <input type=text size=10 name=startcity
class=input1 style="WIDTH: 61px; HEIGHT: 19px" >
<a href="#" onclick=javascript:queryform.submit();>查询</a>
</td>
</tr>
</table>
</form><center>
<table width=95% cellpadding=0 cellspacing=0>
<tr bgcolor=Black>
<td align=center>
<table border=1 bordercolor=white cellspacing=0 cellpadding=0 width=600>
<tr bordercolor=black bgcolor=LightSteelBlue>
<tr bgcolor=LightSteelBlue>
<td align=center width=12.5% >
<font size="2"> 城市编号</font></td>
<td align=center width=12.5%>
<font size="2">城市名称</td></font>
</tr>
<%
for recordnum=1 to rst.PageSize
%>
<td align=center width=150 bgColor=#ddffdd class=row>
<font size="2"><a href="#"
onclick="javascript:putobject('<%=trim(rst("cs"))%>','<%=Request.querystring("objectname")%>');"><%=trim(rst("id"))%>
</font></td>
<td align=center width=150 bgColor=#ddffdd class=row>
<font size="2">
<a href="#"
onclick="javascript:putobject('<%=trim(rst("cs"))%>','<%=Request.querystring("objectname")%>');"><%=trim(rst("cs"))%>
</font></a></td>
</tr>
<%
rst.MoveNext
if rst.EOF then
exit for
end if
next
rst.Close:conn.close
set rst=nothing:set conn=nothing
%>
</table>
</table>
<table>
<form action="<%=Request.ServerVariables("script_name")%>" method="post" id=form1 name=form1>
<input type="hidden" name="pagenum" value="<%=pagenum%>">
<%if pagenum<>1 then%>
<input type="submit" name="submit3" value="首页">
<%end if
if pagenum>1 then%>
<input type="submit" name="submit1" value="上一页">
<%end if
if pagenum<totalpages then%>
<input type="submit" name="submit2" value="下一页">
<%end if
if pagenum<>totalpages then%>
<input type="submit" name="submit4" value="尾页">
<%end if%>
</form>
<p><center>[第<font color="#CC0033"><%=pagenum%></font>页,共
<font color="#CC0033"><%=totalpages%></font>页]
</center>
</p>
</table>
</body>
</html>
没有查询的翻页已经可以了,可是查询后翻页无从下手,请大虾们帮忙改一下,谢谢了