看看那里的问题,搞了1天多了没有解决
ADODB.Field 错误 '80020009'
BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。 /shopping.asp,行0
<%case "ok"
function HTMLEncode2(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode2 = fString
end function
if session("xiadan")<>second(now) then
dim shijian,dingdan
shijian=now()
dingdan=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from book where BookID in ("&BookID&") order by BookID ",conn,1,1
dingdan=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)
do while not rs2.eof
set rs=server.CreateObject("adodb.recordset")
sql="select * from [Order]"
rs.open sql,conn,1,3
rs.addnew
rs("UserName")=trim(session("UName"))
rs("BookID")=trim(session("BookID"))
rs("bookname")=trim(session("bookname"))
rs("InputTime")=shijian
rs("bookcount")=CInt(Request("ckxp"&rs2("BookID")))
rs("IsOk")=1
rs("OrderID")=dingdan
rs("Address")=trim(request("Or_address"))
rs("Post")=int(request("Or_post"))
rs("Sex")=int(request("Sex"))
rs("Note")=HTMLEncode2(trim(request("liuyan")))
rs("Price")=rs2("BookCase2")*CInt(Request("ckxp"&rs2("BookID")))
rs("email")=trim(request("email"))
rs("Phone")=trim(request("Or_Phone"))
rs.update
rs.close
set rs=nothing
conn.execute "delete from [Order] where UserName='"&session("UName")&"' and BookID in ("&BookID&") "
rs2.movenext
loop
rs2.close
set rs2=nothing
session("xiadan")=second(now)
else
response.Write "<center>您不能重复提交!</center>"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
sql1="select book.bookid,book.bookname,book.bookcase1,book.bookcase2,[order].sex,[order].username,[order].email,[order].orderid,[order].post,[order].note,[order].phone,[order].address,[order].or_zonghe,[order].bookcount from [order] inner join book on book.bookid=[order].bookid where [order].username='"&session("uname")&"' and [order].isok=1 and [order].orderid='"&dingdan&"' "
rs.open sql1,conn,1,1
%>
<table >
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="2">
<table width="100%" border="0" >
<tr>
<td >
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td height="18" bgcolor="#EFF5FE">
<div align="center">恭喜,您已成功的提交了此订单!详细信息如下:</div>
</td></tr>
<tr> <td height="18" >订单号:<%=rs("OrderId")%></td>