Question

ADODB.Recordset 错误 '800a0e78' 对象关闭时如何解决？ 行 52

<%
sub connet
Dim objCryptTest1
Set objCryptTest1 = Server.CreateObject("Ssqlinfo.ConnectDB")
remark = objCryptTest1.getsqlinfo("remark")
oldremark = objCryptTest1.getsqlinfo("oldremark")
str = objCryptTest1.getsqlinfo("172.23.1.2","rstarbasic")
Set objCryptTest1 = Nothing
end sub

sub setverify
verify="1"
if not Session("barno")="" then
if Session("type")="学生网页" then m_type="stu"
if Session("type")="家长网页" then m_type="par"
if Session("type")="教师网页" then m_type="tea"
if Session("type")="自费卡" then m_type="zfk"
if Session("type")="" then
Session("barno")=""
response.write "网页过期!!"
response.end
end if
Dim objCryptTest1
Dim objCryptTest
Set objCryptTest1 = Server.CreateObject("Ssqlinfo.ConnectDB")
Str = objCryptTest1.getsqlinfo("172.23.1.2","rstarbasic")
St = objCryptTest1.getsqlinfo("172.23.1.2","starbasic")
'canteen = objCryptTest1.getsqlinfo("canteen")
ibmyp = objCryptTest1.getsqlinfo("172.23.1.2","remark_mpy")
remark = objCryptTest1.getsqlinfo("172.23.1.2","remark")
Set objCryptTest = Server.CreateObject("PwdInfo.Password")
tname = objCryptTest.LockPwd(Session("barno"), Session("passwd"))
Set objCryptTest1 = Nothing
Set objCryptTest = Nothing
m_barno=Session("barno")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open str
'Set conn1 = Server.CreateObject("ADODB.Connection")
'conn1.Open canteen
Set rs = Server.CreateObject("ADODB.recordset")
strsql="select * from sqlsql where sql_ownr='02' and sql_name='"+m_type+"_pass'"
rs.open strSQL,conn,1,3
Set rs1 = Server.CreateObject("ADODB.recordset")
mm=InStr(rs("sql_sql"),"m_barno")
strsql1=left(rs("sql_sql"),mm-1)+m_barno+right(rs("sql_sql"),len(rs("sql_sql"))-mm+1-7)
if Session("barno")>"8000000" then
'rs1.open strSQL1,conn1,1,3
else
rs1.open strSQL1,conn,1,3
end if
if not rs1.eof then
if Session("type")="家长网页" then tname=rs1("st_password")
if trim(tname)<>trim(rs1("st_password")) then
Session("barno")="无数据"
response.write "密码或条形码不对!!"
response.end
else
verify="0"
if Session("barno")>"1010000" and Session("barno")<"1100000" then
session("t_name")=rs1("st_name")
session("t_sex")=rs1("st_sex")
session("t_dept")=rs1("st_dept")
session("t_grade")=""
session("t_class")=""
session("t_type")=rs1("st_post")
else
else
if Session("barno")>"1100000" and Session("barno")<"8000000" then
session("t_name")=rs1("st_name")
' session("t_sex")=rs1("st_sex")
' session("t_dept")=rs1("st_dept")
session("t_grade")=rs1("st_grade")
session("t_class")=rs1("st_class")
session("t_type")="学生"
else
else
session("t_name")=rs1("st_name")
session("t_sex")=""
session("t_dept")=rs1("st_dept")
session("t_grade")=""
session("t_class")=""
session("t_type")=rs1("c_type")
end if
end if
end if
else
Session("barno")="无数据"
response.write "查无此人!!"
response.end
end if
else
response.write "网页过期!!"
response.end
end if
end sub

%>

Answer 1

if Session("barno")>"8000000" then
'rs1.open strSQL1,conn1,1,3 '这一行被你注释掉了,当条件为真时,实际没有句语执行,也就会造成后面无法访问rs1对象的错误.
else
rs1.open strSQL1,conn,1,3
end if

追问

如何去掉注释，就成了这个错误

ADODB.Recordset 错误 '800a0bb9'
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/verify.asp，行 48

追答

conn1, 是这个对象没有被创建的关系.

追问

那应该怎么创建这个对象呢？能否帮助下？

追答

和你的conn创建方法相同,但
if Session("barno")>"8000000" then
rs1.open strSQL1,conn1,1,3
else
rs1.open strSQL1,conn,1,3
end if
这两个open语句只有这个参数不同,所以,这两个对象的数据库链接字符串应该是不一样的.要不然就没有必要做这个判断了.