Question

ASP 缺少对象

错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'iRs'
/Adminsg/SystemBoard.asp, 第 372 行

Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs = "select * from SystemBoard"
Rs.Open Rs,Conn,1,3
Rs.addnew
Rs("sBClass") = sBClass
Rs("sBName") = sBName
Rs("sBType") = sBType
Rs("sBOption") = sBOption
Rs("sBImgup") = sBImgup
Rs("sBImgYn") = sBImgYn
Rs("sBImgX") = sBImgX
Rs("sBImgY") = sBImgY
Rs("sBTitle") = sBTitle
Rs("sBIntroYn") = sBIntroYn
Rs("sBIntroXz") = sBIntroXz
Rs("sBIntroLm") = sBIntroLm
Rs("sBVote") = sBVote
Rs("sBAddTime")=tDate
Rs("sBAdmin")=AdminName
Rs("sBUser")=AdminUser
Rs.Update

Rs.Open Rs,Conn,1,3 提示出错
请大师指点
额、～是提示这个出错误了。

Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'Rs'
/Adminsg/SystemBoard.asp, 第 372 行

谢谢各位，原来我太粗心了。

Answer 1

你这个里面当然有问题了。
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs = "select * from SystemBoard"
Rs.Open Rs,Conn,1,3
这两个Rs重名了，ASP执行的时候不知道那个Rs才是你定义的对象。可以改成这样
Set Rs = Server.CreateObject("Adodb.RecordSet")
sql = "select * from SystemBoard"
Rs.Open sql,Conn,1,3
就可以了

Answer 2

我帮你找到原因了..
<script
language="javascript">
function
cg(cs)
var
aa;
aa=cs
document.write
(aa);
</script>
这样写不标准
应该这样
<script
language="javascript">
function
cg(cs)
{
var
aa;
aa=cs
document.write
(aa);
}
</script>
你全部的JS代码都没加{}
function
cg(cs)
{
}
必须要在开始和结束加上{}

Answer 3

Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs_sql = "select * from SystemBoard"
Rs.Open Rs_sql,Conn,1,3
Rs.addnew
Rs("sBClass") = sBClass
Rs("sBName") = sBName
Rs("sBType") = sBType
Rs("sBOption") = sBOption
Rs("sBImgup") = sBImgup
Rs("sBImgYn") = sBImgYn
Rs("sBImgX") = sBImgX
Rs("sBImgY") = sBImgY
Rs("sBTitle") = sBTitle
Rs("sBIntroYn") = sBIntroYn
Rs("sBIntroXz") = sBIntroXz
Rs("sBIntroLm") = sBIntroLm
Rs("sBVote") = sBVote
Rs("sBAddTime")=tDate
Rs("sBAdmin")=AdminName
Rs("sBUser")=AdminUser
Rs.Update

Answer 4

Set Rs = Server.CreateObject("Adodb.RecordSet")
iRs = "select * from SystemBoard"
Rs.Open iRs,Conn,1,3

Answer 5

看看这个
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs = "select * from SystemBoard"
rs.open sql,conn,1,1
Rs.addnew
Rs("sBClass") = sBClass
Rs("sBName") = sBName
Rs("sBType") = sBType
Rs("sBOption") = sBOption
Rs("sBImgup") = sBImgup
Rs("sBImgYn") = sBImgYn
Rs("sBImgX") = sBImgX
Rs("sBImgY") = sBImgY
Rs("sBTitle") = sBTitle
Rs("sBIntroYn") = sBIntroYn
Rs("sBIntroXz") = sBIntroXz
Rs("sBIntroLm") = sBIntroLm
Rs("sBVote") = sBVote
Rs("sBAddTime")=tDate
Rs("sBAdmin")=AdminName
Rs("sBUser")=AdminUser
Rs.Update