求救啊,错误类型:ADODB.Field (0x80020009)BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。

panwenjie0921 2006-11-29 06:45:13
<!--#include file="config.asp"-->
<!--#include file="main_menu.asp"-->
<%
if session("user")="" then
conn.close
set conn=nothing
response.redirect "login.asp?error_inf=请登陆后再进行购物清算!&come=shop"
end if
%>

<%
if request("order_number")="all" then
sql="select * from 订单表 where 用户名='"&session("user")&"' order by 订单ID"
else
sql="select * from 订单表 where 用户名='"&session("user")&"' and 订单ID='"&request("order_number")&"' order by 订单ID"
end if
set rs_order=server.createobject("adodb.recordset")
rs_order.open sql,conn,1,1
if rs_order.recordcount=0 then
response.Redirect("order_search.asp?error_inf=您查找的订单不存在,请重新输入订单号!")
end if
pagesize=3
if request("page")="" or request("page")<=0 then
page=1
else
page=request("page")
end if
recordall=rs_order.recordcount
if recordall<>0 then
rs_order.PageSize = Cint(pagesize)
pageall=INT(recordall / pagesize * -1)*-1
therecord=recordall-((page-1)*pagesize)
rs_order.absolutepage=CInt(page)
end if
%>
<html>
<head>
<title>417CD购物网</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style/index.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<style type="text/css">
<!--
.line {
line-height: 20px;
}
-->
</style>
</head>

<body background="images/index_bg.gif" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="205" rowspan="3"><img src="images/index_logo.gif" width="205" height="91"></td>
<td width="286" height="20"><img src="images/index_banner.gif" width="572" height="66"></td>

</tr>
<tr>
<td colspan="2" bgcolor="#0C5F00"><img src="images/Spacer.gif" width="1" height="4"></td>
</tr>
<tr>
<td height="20" colspan="2" align="right" bgcolor="#79B43D" class="menu"><%=main_menu%></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#E2E2E2"><img src="images/Spacer.gif" width="1" height="4"></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="172" valign="top" bgcolor="#79B43D"><!--#include file="left_menu.asp"--></td>
<td width="606" valign="top"> <table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/order_01.gif" width="236" height="44"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td><img src="images/index_pro01111.gif" width="573" height="41"></td>
</tr>
<tr>
<td align="center" valign="top" background="images/index_pro03.gif">
<%
for i=1 to pagesize
if rs_order.eof then
exit for
end if
%>
<table width="90%" border="0" cellpadding="5" cellspacing="0" class="fenlei">
<tr>
<td width="47%" bgcolor="#FFFFFF"><strong>订单号:<%=rs_order("订单ID")%></strong></td>
<td width="34%" bgcolor="#FFFFFF">日期:<%=rs_order("订单日期")%></td>
<td width="19%" align="right" bgcolor="#FFFFFF">
<%
if rs_order("是否处理")=1 then
%>
<font color="#FF6600">已处理</font>
<%
else
%>
<font color="#0033FF">未处理</font>
<%end if%>
</td>
</tr>
<tr>
<td colspan="3" class="line"><table width="100%" border="0" cellpadding="3" cellspacing="0" class="rightA">
<tr>
<td width="5%" bgcolor="#FFFFFF"> </td>
<td width="61%" bgcolor="#FFFFFF">订购物品</td>
<td width="17%" bgcolor="#FFFFFF">数量</td>
<td width="17%" bgcolor="#FFFFFF">单价</td>
</tr>
<%
sql_order_product="select * from 订单产品 where 订单ID='"&rs_order("订单ID")&"'"
set rs_order_product=server.createobject("adodb.recordset")
rs_order_product.open sql_order_product,conn,1,1
for j=1 to rs_order_product.recordcount
%>
<tr>
<td <%if (j mod 2)=0 then%>bgcolor="#FFFFFF"<%end if%>><img src="images/index_title.gif" width="19" height="12"></td>
<td <%if (j mod 2)=0 then%>bgcolor="#FFFFFF"<%end if%>>
<%
sql_product="select * from 产品表 where 产品ID="&rs_order_product("产品ID")
set rs_product=server.createobject("adodb.recordset")
rs_product.open sql_product,conn,1,1
if rs_product.recordcount<>0 then
%> <a href="product.asp?productID=<%=rs_order_product("产品ID")%>" target="_blank"><%=rs_product("商品名称")%></a> <%
end if
%> </td>
<td <%if (j mod 2)=0 then%>bgcolor="#FFFFFF"<%end if%>><%=rs_order_product("订购数量")%></td>
<td <%if (j mod 2)=0 then%>bgcolor="#FFFFFF"<%end if%>><%=rs_product("零售价")%></td>
</tr>
<%
rs_order_product.movenext
next
%>
<tr>
<td colspan="4" class="fenlei"><img src="images/Spacer.gif" width="1" height="5"></td>
</tr>
</table></td>
</tr>
</table>
<%
rs_order.movenext
next
%>
<table width="90%" border="0" cellpadding="8" cellspacing="0" class="fenlei">
<tr>
<td width="35%">第<%=page%>页/共<%=pageall%>页</td>
<td width="32%"> </td>
<td width="33%" align="right">
<%if Cint(page-1)<=0 then
response.write "上一页"
else%>
<a href="your_order.asp?order_number=all&page=<%=page-1%>">上一页</a>
<%end if%>
 / 
<%if Cint(page+1)>Cint(pageall) then
response.write "下一页"
else%>
<a href="your_order.asp?order_number=all&page=<%=page+1%>">下一页</a>
<%end if%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="images/index_pro02.gif" width="573" height="46"></td>
</tr>
</table></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#62A537"><img src="images/Spacer.gif" width="1" height="9"></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td background="images/index_hengxuxian.gif"><img src="images/Spacer.gif" width="1" height="1"></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="30"><img src="images/index_min_logo.gif" width="97" height="29"></td>
<td width="748"><div align="center">长沙417 CD销售有限公司 版权所有 ©2006</div></td>
</tr>
</table>
</body>
</html>
...全文
287 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
panwenjie0921 2006-11-30
  • 打赏
  • 举报
回复
不好意思,我是菜鸟,麻烦你们能详细一点吗?谢谢!!!
atmo 2006-11-29
  • 打赏
  • 举报
回复
显然是没记录
萤火架构 2006-11-29
  • 打赏
  • 举报
回复

if rs_order.eof then
response.write("没有找到信息")
end if
判断一下

28,390

社区成员

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

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