分页出有关问题了解决马上给分先多谢大家了

2012-03-28

分页出问题了解决马上给分先谢谢大家了!--#includefile dbconn.asp --!--#includefile fun/reque

分页出问题了解决马上给分先谢谢大家了


<%
getid=getRequest( "id ", "str ", "querystring ")
set rs=server.CreateObject( "adodb.recordset ")
sql= "select * from campusinfo where type= ' "&getid& " ' order by id "
rs.open sql,conn,1,1
function xi(content,i)
if len(content)> i then
content=left(content,i)
response.write (content& "... ")
else
response.write (content)
end if
end function

%>

<HTML lang=gb2312
xmlns= "http://www.w3.org/1999/xhtml "> <HEAD> <TITLE> 北华交易网 </TITLE>
<META http-equiv=Content-Type content= "text/html; charset=gb2312 "> </HEAD>
<BODY>

<TABLE cellSpacing=0 cellPadding=0 width=778 align=center
border=0>
<TBODY>

<TR>
<td class=rconbg width=188 valign= "top " bgcolor= "#FDFDF2 ">
<TABLE cellSpacing=0 cellPadding=5 width=212 border=0 >
<TR>
<TD width= "202 " height=152 colSpan=2 align=middle valign= "top "> <TABLE cellSpacing=0 cellPadding=5 width=202 border=0>
<TBODY>
<TR>
<TD align=middle width=27 height=28> <IMG height=12
src= "Images/dot.gif " width=12> </TD>
<TD width=175> <strong> <font color= "#ff3366 "> 站内导航 </font> </strong> </TD>
</TR>
<TR>
<TD align=middle colSpan=2 >  </TD>
</TR> </TBODY> </TABLE> </td>
</tr>

<TR>
<TD width= "202 " colSpan=2 align=middle valign= "top "> <TABLE cellSpacing=0 cellPadding=0 width= "100% " border=0 >
<TBODY>
<TR>
<TD vAlign=bottom align=middle height=13>

<TABLE cellSpacing=0 cellPadding=2 width= "95% " border=0 >
<TBODY>
<TR>
<TD align=middle width= "15% " bgColor=#e3e0db height=32> <IMG
height=18 src= "Images/lxdot.gif " width=16> </TD>
<TD width= "85% "
bgColor=#e3e0db> <strong> 什么是校园厂家直销 </strong> </TD>
</TR> </TBODY> </TABLE> </TD> </TR>
<TR>
<TD vAlign=top align=middle height=130>
<TABLE class=line2 cellSpacing=1 cellPadding=2 width= "96% "
border=0 bgcolor= "#FFFFFF "> <TBODY>
<TR>
<TD colspan= "2 ">   </TD>
</TR>
<TR>
<TD width= "29% "> <IMG height=31 src= "Images/dh.gif "
width=53> </TD>
<TD width= "71% "> 6655871宋同学 <BR>
13894720410
鄢同学 <BR> </TD>
</TR>
<TR>
<TD> <img src= "Images/msn.gif " width= "53 " height= "31 "> </TD>

<TD> 北华北学校3公寓3515寝 </TD>
</TR> </TBODY> </TABLE> </TD> </TR> </TBODY> </TABLE> </TD>
</TR>

<TR>
<TD align=middle colSpan=2 height=15> </TD>
</TR>

</TABLE>
</td>

<TD vAlign=top width=582> <TABLE class=profin cellSpacing=0 cellPadding=0 width=579 align=center
border=0>
<TBODY>
<TR>
<TD width= "579 " height= "56 ">   </TD>
</TR>
<TR>
<TD height= "281 " background=Images/file/sp6_profin2_gray.gif valign= "top "> <table cellspacing=1 cellpadding=0 width=546 align=center bgcolor=#d8d8d8
border=0>
<form name=form4 method=post>
<tbody>
<tr valign=center align=middle bgcolor=#f0f0f0>
<td class=font width=68 height=21> <font color= "#ff6600 "> 类型 </font> </td>
<td class=font width=183 bgcolor=#f0f0f0 height=25> <font color= "#ff6600 "> 物品 </font> </td>
<td width=74 height=21 class=font> <font color= "#ff6600 "> 价格 </font> </td>
<td width=76 height=21> <font color= "#ff6600 "> 新旧程度 </font> </td>
<td width=68 height=21> <font class=font color=#ff6600> 登记时间 </font> </td>
<td width=70> <font class=font color=#ff6600> 详细信息 </font> </td>

</tr>
<%

Dim RowCount
RowCount =3
papercount=3

PageSize=2
Dim TotalPage '总页数
Dim PageNo '当前显示的是第几页
Dim RecordCount '总记录条数
rs.PageSize= PageSize
RecordCount = rs.RecordCount
TotalPage = INT(RecordCount / PageSize * -1)*-1
PageNo = Request.QueryString ( "PageNo ")
'直接输入页数跳转；
If Request.Form( "PageNo ") <> " " Then PageNo = Request.Form( "PageNo ")
'如果没有选择第几页，则默认显示第一页；
If PageNo = " " then PageNo = 1
If RecordCount <> 0 then
rs.AbsolutePage = PageNo
End If

'获取当前文件名，使得每次翻页都在当前页面进行；
Dim fileName,postion
fileName = Request.ServerVariables( "script_name ")
postion = InstrRev(fileName, "/ ")+1
'取得当前的文件名称，使翻页的链接指向当前文件；
fileName = Mid(fileName,postion)
'公共翻页模块结束 '每页显示的记录条数
If Not rs.eof then
Do while Not rs.eof and RowCount> 0
%>
<tr valign=center align=middle bgcolor=#ffffff>
<td class=font height=21> <%=rs( "type ")%> </td>
<td height=21> <%call xi(rs( "prodname "),18)%> </td>
<td height=21 class=font> <%=rs( "price ")%> </td>
<td class=font height=21> <%=rs( "old ")%> </td>
<td class=font height=21> <%=formatdatetime(rs( "date "),vbShortDate)%> </td>
<td class=font> <div align= "center "> 进入 </div> </td>
</tr>
<%

RowCount = RowCount - 1
rs.MoveNext
Loop
End If

%>
<tr valign=center align=right bgcolor=#ffe7ce>

<td class=font bgcolor=white colspan=7 height=28> <div align= "center "> 总页数： <font color=#ff3333> <%=TotalPage%> </font> 页   
当前第 <font color=#ff3333> <%=PageNo%> </font> 页     每页 <font color=#ff3333> <%=papercount%> </font> 件商品     共 <font color=#ff3333> <%=RecordCount%> </font> 件商品
<%If RecordCount = 0 or TotalPage = 1 Then
Response.Write "首页|上一页|下一页|末页 "
Else%>
<a href= " <%=fileName%> ?PageNo=1&id= <%=rs( "type ")%> "> 首页| </a>
<%If PageNo - 1 = 0 Then
Response.Write "上一页| "
Else%>
<a href= " <%=fileName%> ?PageNo= <%=PageNo-1%> &id= <%=rs( "type ")%> "> 上一页| </a>
<%End If

If PageNo+1 > TotalPage Then
Response.Write "下一页| "
Else%>
<a href= " <%=fileName%> ?PageNo= <%=PageNo+1%> &id= <%=rs( "type ")%> "> 下一页| </a>
<%End If%>

<a href= " <%=fileName%> ?PageNo= <%=TotalPage%> &id= <%=rs( "type ")%> "> 末页 </a>
<%End If%>
<%If TotalPage = 1 Then%>
<%Else%>

<%End If%>
</div> </td>
</tr>
</form>
</table> </TD>
</TR> </TABLE> </TD>

</TR> </TBODY> </TABLE>

<CENTER>
</CENTER>
</BODY> </HTML>
问题: 我点下一页的时候报错如下
ADODB.Field (0x80020009)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
这到底是怎么回事呀请大家帮忙

[解决办法]
晕代码太多了
[解决办法]
我也晕了，最怕看见这么长的代码了。

热点排行

ASP

分页出有关问题了 解决马上给分 先多谢大家了

分页出有关问题了解决马上给分先多谢大家了