页面中“上一页”和“下一页”的链接不能作用

lizhuohua 2002-03-23 04:38:39

页面中“上一页”和“下一页”的链接不能作用，好像参数intcurpage有问题，可是我不知道具体怎么该，请大家看看！

<html>
<body><a href="productbeginpage.htm">返回总目录</a>
<center>

<%
set conn=server.createObject("ADODB.Connection")
address=server.mappath("weldsDb.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&_
address
set rs=server.createobject("adodb.recordset")
rs.open "气保护不锈钢药芯焊丝 " ,conn ,3 '打开记录集

rs.pagesize=1

if not isempty(request("topage")) then
topage=CInt(request("topage"))
if topage>rs.pagecount then
rs.Absolutepage=rs.pagecount
elseif topage <=0 then
rs.Absolutepage=1
else
rs.Absolutepage=topage
end if
end if

intCurpage=rs.Absolutepage

'********************************************
%>

<p>此类产品共有
<font size=4 color=red><b><%=rs.recordcount%></b></font>个型号。
<p>现在位于第<font size=4 color=red><b><%=rs.absolutepage%></b></font>页
<table bgcolor=Lightyellow bordercolor=blue border=3>
<tr bgcolor=deepskyblue>
<%
for i=1 to rs.fields.count-1
%>

<td align=center><b><%=rs.fields(i).name %></b></td>

<%
next
%>
</tr>

<%
for j=1 to rs.pagesize
if rs.eof then
exit for
end if
%>

<tr>
<%
for i=1 to rs.fields.count-1
%>
<td align=left><%=rs(rs.fields(i).name)%></td>
<%
next
%>
</tr>
<%
rs.movenext
next
%>

<tr>
<%
if intCurpage<>1 then
%>
<td><a href=resultproduct.asp?topage=<%=1%>>第一页</a></td>
<td><a href=resultproduct.asp?topage=<%=intCurpage-1%>>上一页</td>
<%
end if

if intCurpage<>rs.pagecount then
%>
<td><a href=resultproduct.asp?topage=<%=intcurpage+1%>>下一页</td>
<td><a href=resultproduct.asp?topage=<%=rs.pagecount%>>最后一页</td>
<%
end if

'***************************************************************
%>
<td><form action=resultproduct.asp method=post>
到
<input type="text" name=topage style="height:25px;width:40px" value=<%=intcurpage%>>
页
<input type="submit" value=go>
</form>
</td>
</tr>
</table>
</center>
<br>
<a href="productbeginpage.htm">返回总目录</a>
</body>
</html>

...全文

80 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

tonnycncn 2002-03-23

打赏
举报

我给你我的程序吧，
照着修改就行了，<%@ Language=VBScript %>
<%
function getFormObject ()
if Request.ServerVariables("REQUEST_METHOD") = "GET" then
set getFormObject=Request.QueryString
else
set getFormObject=Request.Form
end if
end function
set oFormVars=GetFormObject()
if inStr(UCase(oFormVars("Action")),"索") > 0 then
session("xinxisearch")="select * FROM xxx where Feed_Title like ''%"&Request.Form ("name")&"%'' ORDER BY Feed_Date DESC"
session("search")=Request.Form ("name")
end if
%>
<HTML><HEAD><TITLE>信息网</TITLE>

<META content=text/html;charset=gb2312 http-equiv=Content-Type>
<STYLE type=text/css>TD {FONT-FAMILY: 宋体; FONT-SIZE: 9pt}
P {FONT-FAMILY: 宋体; FONT-SIZE: 9pt}
DIV {FONT-FAMILY: 宋体; FONT-SIZE: 9pt}
BODY {BACKGROUND-COLOR: #ffffff; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; MARGIN-LEFT: 0px; MARGIN-TOP: 0px}
A {COLOR: #0000aa; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; TEXT-DECORATION: underline}
A:active {COLOR: #ff8019; TEXT-DECORATION: underline}
A.top { COLOR: #ffffff; FONT-SIZE: 9pt}
A.ns {FONT-SIZE: 12pt}
TD.p16 {FONT-SIZE: 16pt}
TD.p8 {FONT-SIZE: 1pt}
TD.p9 {FONT-SIZE: 9pt}
TD.p20 {FONT-SIZE: 20pt}
TD.p12 {FONT-SIZE: 12pt}
.f11 {FONT-SIZE: 14px}
.f1_v {FONT-SIZE: 9pt; FONT-WEIGHT: 200}
.f2_V { FONT-SIZE: 9pt}
.f3_V { FONT-SIZE: 12pt}
.f4_V { FONT-SIZE: 13.5pt}
.f6_V { FONT-SIZE: 18pt}
A:hover {COLOR: #ff6666; TEXT-DECORATION: none}
.unnamed1 {FONT-SIZE: 9pt}
</STYLE>
</HEAD>
<BODY aLink=#ff9900 bgColor=#ffffff leftMargin=0 link=#003399 text=#000000
topMargin=0 vLink=#000000 MARGINHEIGHT="0" MARGINWIDTH="0">
<hr color="black" size="1">
<img height=16 src="../images/xian.jpg" width=776><br>
<table width="73%">
<tr>
<td> <b>信息检索</b>：</td>
<form method="post" action="text.asp">
<td>
<input class=textfield type="text" name="name" size="20" maxlength="50">
<input class=botton type="submit" name="Action" value="搜索">
</td>
</form>
<form method="post" action="day.asp">
<td>
<select class=textfield name="Days" size=1 style="WIDTH: 130px" width="130">
<option value="1" SELECTED>最近一天</option>
<option value="2">最近两天</option>
<option value="5">最近五天</option>
<option value="7">最近一星期</option>
<option value="14">最近两星期</option>
<option value="30">最近一个月</option>
<option value="60">最近两个月</option>
<option value="120">最近四个月</option>
<option value="365">最近一年</option>
</select>
<input class=botton type="submit" name="Action" value="搜索">
</td>
</form>
</tr>
</table>
<div align="left"> </div>
</CENTER></DIV>
<table width="100%" border="0">
<tr>
<td width="29%"><a href=../index.asp><font size="3" color="#8080C0"><img src="images/0022.gif" width="23" height="8" border="0">回首页</font></a></td>
<td width="39%"> 你搜索的关键字为“<%=session("search")%>”.</td></tr>
<tr>
<td width="29%" valign="top"><a href="index.asp"><img src="images/a000.jpg" width="224" height="300" align="texttop" alt="信息窗栏目首页" border="0"></a><br>
</td>
<td colspan="2" valign="top"> <%
If Request("Page")=Empty Then
Page=1
Else
Page=cint(Request("Page"))
End If
''创建ADO对象
If InStr (Search,"[") <> 0 Or InStr(Search,Chr(39))<>0 then ''若发现不安全字符,则停止执行
Response.Write("<script language=''JavaScript''>history.go(-1)</script>")
Response.End
End If
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionTimeOut = 15
Conn.CommandTimeOut = 30
Conn.Open "ccisn", "", ""Set rs=Server.CreateObject("ADODB.RecordSet")
''sqlstr="select * FROM xxxx where Feed_Title like ''%"&search&"%'' ORDER BY Feed_Date DESC"
''session("xinxisearch")="select * FROM xinxi where Feed_Title like ''%"&type1&"%'' ORDER BY Feed_Date DESC"
rs.open session("xinxisearch"), conn, adOpenStaticIf rs.Recordcount=0 then
rs.close
conn.close
response.write "目前没有您要找的信息！"
response.end
End If
rs.PageSize=30 ''设置每页的记录数
tcount=rs.RecordCount ''取得所有记录的总数
tpage=rs.PageCount ''取得页面的总数
If Not rs.eof Then
RS.AbsolutePage = PAGE
End If
%>
共有<font color=red><%=tcount%></font>条信息，当前为第<font color=red><%=page%></font>页,共<font color=red><%=tpage%></font>页

<%''以下为上一页和下一页的设置
If page>1 Then
Response.write "<a href=text.asp?page="&page-1&">上一页</a>　"
End If
Response.write "页 <font face=Arial><b>"&pagecount&" / "
Response.write page &"</b></font>　"
For j=1 to tpage
IF J <> page THEN
response.write "<a href=text.asp?page="&j&">"&j&"</a>　"
End If
Next
If page<tpage Then
Response.write "<a href=text.asp?page="&page+1&">下一页</a>"
End Ifpagecount=rs.pagecount
I=1
do until rs.EOF or I > RS.PageSize
%>
<br>
<li> <a href="reads.asp?MsgID=<%=RS.Fields(0).Value%>" target="_blank">
<% Response.Write RS.Fields(1).Value%>
</a> <font color="#FF0000"><b>(
<% Response.Write RS.Fields(3).Value%>
)</b></font> ——类别：<%=RS.Fields(2).Value%>
<% rs.MoveNext ''移到下一个记录
I=I+1
loop
rs.close
conn.close
%>
<p><a href=<%=return_to%> >返回</a>
<p>注意：如果您检索时出错，请您在检索时不要用回车，要用鼠标点击搜索按钮！ </td>
</tr></table>
<HR align=center color=#008080 width="95%">
</BODY></HTML>

taglis2002 2002-03-23

打赏
举报

建议使用我的方法：
http://www.csdn.net/expert/topic/594/594192.xml?temp=.2210199
很好用的！

8988 2002-03-23

打赏
举报

rs.open "气保护不锈钢药芯焊丝 " ,conn ,3 '打开记录集
以下是分页部分：
rec=rs.RecordCount

Maxline=12 '设置每页12个记录

page=request.form("page") '读取当前页数
if page="" then page=1
page=cint(page)

if rec>0 then
rs.PageSize=Maxline
pages=rs.PageCount
if page>pages then page=pages
rs.AbsolutePage=page
else
pages=0
page=0
end if

一个高效率的struts分页算法遵循mvc开发的规范。便捷好维护