初学者求救简单asp有关问题 在线=
日期：2014-05-18 浏览次数：20467 次
菜鸟求救简单asp问题 在线=
ADODB.Recordset 错误 '800a0bcd '
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
代码：
<!--#include file = ../admin_check.asp -->
<!--#include file= "../Include/conn.asp " -->
<html>
<head>
<!--#include file = ../Include/language.asp -->
</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
ADODB.Recordset 错误 '800a0bcd '
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
代码：
<!--#include file = ../admin_check.asp -->
<!--#include file= "../Include/conn.asp " -->
<html>
<head>
<!--#include file = ../Include/language.asp -->
</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
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
