session("start")=rs.absoluteposition 返回值？

lk_cool 2003-09-28 08:54:40

session("start")=rs.absoluteposition 返回值
为什么是 -1
怎样做

...全文

71 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

angelheavens 2003-09-28

打赏
举报

<%
set dbconn=server.createobject("adodb.connection")
dbconn.open"xinwen"
commandtext="select bh,bt,rq from addgengduoxw"
set rs=server.createobject("adodb.recordset")
rs.open commandtext,dbconn,1,1
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>tuit</title>
</head>

<body bgcolor="#8B8DD3" topmargin="0" leftmargin="0">
<%
if rs.recordcount>0 then
%>
<table width="96%" border="0" cellspacing="0" cellpadding="3" align="center">
<%
'每一页显示的记录条数
rs.pagesize=10

'接收页号,判断输入的页号是字母,字符,数字的处理情况,
'以保证程序在极端条件下也能正常运行
temppage=request("page")
if not isnumeric(temppage) then
page=1
else
page=abs(cLng(temppage))
end if

if page="" or page<1 then page=1
if page>rs.pagecount then page=rs.pagecount

rs.Absolutepage=page
for i=1 to rs.pagesize
%>
<tr>
<td width="47%" height="85">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td bgcolor="#e0f5e0" width="110" height="60" class="td">
<div align="center"><a

href="product_detail_info.asp?id=<%=trim(rs("product_id"))%>"><img

src="/images/product/<%=trim(rs("product_pic"))%>" width="<%=trim(rs("picwidth"))%>"

height="<%=trim(rs("picheight"))%>" border="0"></a></div>
</td>
<td width="10" height="60"> </td>
<td width="160" height="60"><a

href="product_detail_info.asp?id=<%=trim(rs("product_id"))%>"><%=trim(rs("product_name"))%></a><br>
<br>
价格:<%=trim(rs("price"))%><br>
规格:<%=trim(rs("feture"))%><br>
产品编号:<%=trim(rs("product_code"))%> </td>
</tr>
<tr>
<td colspan="3" height="1">
<hr class="hr">
</td>
</tr>
</table>
</td>
</tr>
<%
end if
rs.movenext
if rs.eof then exit for
next
if i=1 then
%>
<td width="6%" height="10"> </td>
<td width="47%" height="10">
</td>
</tr>
<%end if%>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<div align="center">
<%if page<>1 then%>
|<a href="products.asp?page=1">首页</a>| <a href="products.asp?page=<%=page-1%>">

上一页</a>|
<%end if%>
<%if page<>rs.pagecount then%>
<a href="products.asp?page=<%=page+1%>">下一页</a>|
<a href="products.asp?page=<%=rs.pagecount%>">未页</a>|
<%end if%>
<font color="#007900">当前第</font><%=page%><font

color="#007900">页,共</font><%=rs.pagecount%><font color="#007900">页,转到第</font>
<select name="page" onChange="splitpage(this.options[this.selectedIndex].value)">
<option value="none">选页号</option>
<%for j=1 to rs.pagecount%>
<option value="products.asp?page=<%=j%>" <%if page=j then

response.write("selected")%>><%=j%></option>
<%next%>
</select>
<font color="#007900">页</font></div>
</td>
</tr>
</table>
<p style="line-height: 150%; margin-left: 10; margin-right: 2"><%
else
response.write "<br><br><br><br><center><font color=#339966>该系列下无产品!!!</font></center>"
end if
%>
</td>
</tr>
<tr>
<td width="100%" background="images/hua-2.gif" height="20"></td>
</tr>
</table>
</td>
<td width="10" height="550">　</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
</body>

</html>

lk_cool 2003-09-28

打赏
举报

我试试

avonqin 2003-09-28

打赏
举报

你是不是要记录当前页第一条记录的位置，和当前页最后一条记录的位置呀？
……
rs.pagesize=20 '每页20条记录
TotalPages = rs.PageCount
rs.AbsolutePage =CurrentPage

'#循环取的当前页20条数据
'#session("start")=int(rs.PageSize)*int(CurrentPage)-(rs.pagesize)+1
'#session("end")=(rs.PageSize)*int(CurrentPage)

For x = int(rs.PageSize)*int(CurrentPage)-(rs.pagesize)+1 to (rs.PageSize)*int(CurrentPage)
……
next

不知道你是不是这个意思？

lk_cool 2003-09-28

打赏
举报

该怎样做？

angelheavens 2003-09-28

打赏
举报

原来是要分页
这样是不支持的
rs.absoluteposition

lk_cool 2003-09-28

打赏
举报

<%
response.write"<center>"
response.write"<br>记录总条数: "&session("num")&" "
if (rs.eof) or (session("end")>=rs.recordcount) then
response.write"[<a href=""query2.asp?method=previous"">上一页</a>|"
response.write"下一页]"
elseif (rs.bof) or (session("start")=1) then
response.write"[上一页|"
response.write"[<a href=""query2.asp?method=next"">下一页</a>]"
end if
response.write"开始记录:"&session("start")&", 结束记录:"&session("end")&""
set dbconn=nothing
%>
新手:详细一点

lk_cool 2003-09-28

打赏
举报

'记录开始时，当前指针在recordset对象的位置
session("start")=rs.absoluteposition

for j=0 to session("flag")-1
response.write"<tr>"
'response.write"<td>"&rs.absoluteposition&"</td>"

session("end")=rs.absoluteposition
for i=0 to rs.fields.count-1
Response.Write"<td>"&rs(i).value &"</td>"
next
Response.Write"<tr>"

'移到下一条记录，如果不是表尾，把数据指针移到表头
rs.movenext
if rs.eof then
rs.moveprevious
exit for
end if

next
Response.Write"</table>"

%>

lk_cool 2003-09-28

打赏
举报

分几次给你：
<%

set dbconn=server.createobject("adodb.connection")
dbconn.open"xinwen"

commandtext="select bh as 编号,bt as 标题,rq as 日期 from addgengduoxw"
set rs=server.createobject("adodb.recordset")
rs.open commandtext,dbconn,1,1

session("num")=rs.RecordCount

response.write"<center><table border=3>"
response.write"<tr>"

for i=0 to rs.fields.count-1

'显示表的各个数据字段名称
response.write"<td>"&rs(i).name&"</td>"
next
response.write"</tr>"