查询翻页的问题

lqin97 2003-10-17 02:10:27

</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>
大家看看有什么问题嘛?
...全文
50 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
faib920 2003-10-17
  • 打赏
  • 举报
回复
读别人的程序太难了

<%
rs.open "SELECT...",,1,1
rs.pagesize=10
if request("Page")="" then
page=1
else
page=request("Page")
end if
rs.absolutepage=page

response.write "10篇/页 "&page&"/"&rs.recordcount
'首页上一页
if cint(page)>1 then
response.write "<a href='***.asp?Page=1'>首页</a>|<a href='***.asp?Page="&page-1&"'>上一页</a>|"
else
response.write "首页|上一页|"
end if
'列出页号
for i=1 to rs.pagecount
if i<>rs.absolutepage then
response.write "<a href=***.asp?Page="&i&" class=a2>"&i&"</a> "
else
response.write i&" "
end if
next
'末页下一页
if cint(page)<rs.pagecount then
response.write "|<a href='***.asp?Page="&page+1&"'>下一页</a>|<a href='***.asp?Page="&rs.pagecount&"'>末页</a>"
else
response.write "|下一页|末页"
end if
'用列表框
%>
<select name="page" onChange="location=this.options[this.selectedIndex].value">
<%for i=1 to rs.pagecount
if i=rs.absolutepage then
response.write "<option value=***.asp?Page="&i&" selected>"&i&"</option>"
else
response.write "<option value=***.asp?Page="&i&">"&i&"</option>"
end if
next%>
</select>
<%
...
...
rs.close
%>
lqin97 2003-10-17
  • 打赏
  • 举报
回复
不是啊!我就剩下10分了!我也不想的,拜托了
jnyezhi 2003-10-17
  • 打赏
  • 举报
回复
不看,这么长的代码就给10分,太抠门了,坚决不看!

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧