查询翻页的问题
</table>
<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>
<script language="vbs">
sub handle
dim page,page1
if isnumeric(document.frf.page.value) then
if replace(document.frf.page.value," ","")<>"" and cint(document.frf.page.value) <= cint(DOCUMENT.FRF.TOP.VALUE) and cint(document.frf.page.value) > 0 then
page1=document.frf.page.value
location.href="city.asp?page=" & page1 & "&" & "objectname=" & document.frf.objectname.value
end if
end if
end sub
</script>
<html>
<BODY>
<%
Dim RecordPerPage, absPageNum, TotalPages, absRecordNum,flage
flage=0
RecordPerPage =2 '每页显示的记录数
If Request.QueryString("page") = "" Then
absPageNum = 1
Else
flage=1
absPageNum = Request.QueryString("page")
select case Request.QueryString("direction")
case 1
absPageNum = 1
case 2
if absPageNum = 1 then
absPageNum = 1
else
absPageNum = absPageNum - 1
end if
case 3
if absPageNum =session("TotalPages") then
absPageNum =session("TotalPages")
else
absPageNum = absPageNum + 1
end if
case 4
absPageNum = session("TotalPages")
End select
if request.querystring("page") = "" and replace(request.form("page")," ","") = "" then
dim conn,strsql,rst
set conn = server.CreateObject("adodb.connection")
conn.Open Application("connstr")
set rst = Server.CreateObject("adodb.recordset")
strsql ="select * from cs "
session("rst").Open strsql,conn,1,3
end if
if Request.Form("submit")="查询" then
absPageNum = 1
if Request.querystring("cityno")<>"" and Request.querystring("startcity") = "" then
strsql="select id,cs from cs where id like '%" + Request.querystring("cityno")+"%'"
else
strsql="select * from cs"
session("rst").Open strsql,conn,1,3
session("rst").PageSize=perpage
totalpages=session("rst").PageCount
if session("rst").RecordCount=0 then
%>
<script language = "vbscript">
alert("无符合要求记录")
</script>
<%
else
session("rst").CacheSize = RecordPerPage
session("rst").PageSize = RecordPerPage '设置每一页的记录数
session("TotalPages") = session("rst").PageCount
if flage=1 then
If Not(session("rst").EOF) Then
session("rst").AbsolutePage = absPageNum
End If
end if
%>
<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" >
<input type="submit" name="submit" value="查 询" >
</td>
</tr>
</table>
</form>
<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 absRecordNum=1 to session("rst").PageSize
%>
<td align=center width=150 bgColor=#ddffdd class=row>
<font size="2"><a href="#"
onclick="javascript:putobject('<%=trim(session("rst")("cs"))%>','<%=Request.querystring("objectname")%>');"><%=trim(session("rst")("id"))%>
</font></td>
<td align=center width=150 bgColor=#ddffdd class=row>
<font size="2">
<a href="#"
onclick="javascript:putobject('<%=trim(session("rst")("cs"))%>','<%=Request.querystring("objectname")%>');"><%=trim(session("rst")("cs"))%>
</font></a></td>
</tr>
<%
session("rst").MoveNext
If session("rst").EOF Then
session("rst").movefirst
End If
Next
session("rst").Close:conn.close
set session("rst")=nothing:set conn=nothing
%>
</table>
<tr bgcolor=#eef7ff>
<td colspan="6">
<table width='100%'>
<tbody>
<tr>
<Form Action = "" Method="Post" name="frf">
<td>
<input type="button" class="f0" name="gotopage" value="转到" class="buttonred" onclick="vbscript:handle">
<input type="text" name="page" class="f0" size="4" maxlength="3">
<Input Type="Hidden" Name="TOP" Value="<%=session("TotalPages")%>">
<input type="hidden" name="objectname" value="<%=request.querystring("objectname")%>">
</td>
<td align='right'>
<a href="city.asp?direction=1&page=<%=absPageNum%>&objectname=<%=request.querystring("objectname")%>">>|</a>
<a href="city.asp?direction=2&page=<%=absPageNum%>&objectname=<%=request.querystring("objectname")%>">></a>
<%=absPageNum%>/<%=session("TotalPages")%>
<a href="city.asp?direction=3&page=<%=absPageNum%>&objectname=<%=request.querystring("objectname")%>"><</a>
<a href="city.asp?direction=4&page=<%=absPageNum%>&objectname=<%=request.querystring("objectname")%>"><|</a>
</td>
</form>
</tr>
</tbody>
</table>
</td>
</tr>
</body>
</html>
</body>
</html>
大家看看有什么问题嘛?