初学者求救简单asp有关问题在线=

菜鸟求救简单asp问题在线=
ADODB.Recordset 错误 '800a0bcd '

BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
代码：


<html>

<head>

</head>
<%
title=trim(request( "title "))
title=replace(title, " " " ", " ")
title=replace(title, " ' ", " ")
classid=trim(request( "cid "))
content=request( "content ")
img=request( "img ")
bh=request( "bh ")
zt=request( "zt ")
cz=request( "cz ")
gg=request( "gg ")
img1=request( "img1 ")
img2=request( "img2 ")
img3=request( "img3 ")
img4=request( "img4 ")

if not IsNumeric(price) or not IsNumeric(price1) then
response.Write( " <script language= " "JavaScript " "> alert( " "提示：价格类型不正确，请重新填写！ " ");history.back() </script> ")
response.End
end if

sql = "select fid from pclass where id= "&classid
Set rs1 = Server.CreateObject( "ADODB.RecordSet ")
rs1.Open sql,conn,1,2
if rs1.recordcount <> 0 and rs1( "fid ") <> -1 then
fid=rs1( "fid ")
else
fid=classid
end if
rs1.close
set rs1=nothing

if request( "id ")= " " then

sql = "select * from product "
Set rs = Server.CreateObject( "ADODB.RecordSet ")
rs.Open sql,conn,1,2

rs.addnew
rs( "addtime ")=now()
rs( "time1 ")=now()
else

sql= "delete from product_key where p_id= "&request( "id ")
conn.Execute sql
sql = "select * from product where id= "&request( "id ")
Set rs = Server.CreateObject( "ADODB.RecordSet ")
rs.Open sql,conn,1,2
end if
rs( "img1 ")=img1 (61。61。61。6166161616161661616161661616行)
rs( "img2 ")=img2
rs( "img3 ")=img3
rs( "img4 ")=img4
rs( "pname ")=title

rs( "content ")=content
rs( "classid ")=classid
rs( "image ")=img
rs( "fid ")=fid
rs( "bh ")=bh
rs( "zt ")=zt
rs( "gg ")=gg
rs( "cz ")=cz
rs.update
rs.close
set rs=nothing

set rs1 = server.createobject( "adodb.recordset ") '参数列表
rs1.source = "select * from pclass_key where pclass_id= "& classid & " order by pk_id "
rs1.open rs1.source,conn,1,1
if rs1.recordcount <> 0 then
while not rs1.eof
dim valueList
if request( "valueList "& rs1( "pk_id ")) <> " " then
valueList=request( "valueList "& rs1( "pk_id "))
sql= "insert into product_key(p_id,valuename,pk_id) values( "& request( "id ") & ", ' "& valueList & " ', "& rs1( "pk_id ") & ") "
conn.Execute sql
end if
rs1.movenext
wend
end if

Response.Write( " <script language= " "JavaScript " "> alert( " "提示：信息操作成功！ " "); </script> ")
response.redirect "productlist.asp?cid= "&classid
conn.close
set conn=nothing
%>
<body>
</body>
</html>

[解决办法]
要先判断一下是否有记录

If Not rs.Eof Then

End If
[解决办法]
if not rs1.eof and rs1( "fid ") <> -1 then
试试
[解决办法]
If Not rs.Eof Then

End If

加在打开数据表读取之后

例如 rs.open ....... 这行下面。

[解决办法]
发错地方了
[解决办法]
请问提示是哪行出错？

初学者求救简单asp有关问题 在线=

热点推荐

初学者求救简单asp有关问题在线=