我想要从一个.asp页面打开另一个.asp页面,单击按钮以下是我完成的代码,但出现错误
错误到来,因为“当对象关闭时不允许操作”。
以下是代码
Dim dbconn, objCmd, objParam, rs, EmailID, Password, connString, RecordCount
connString = "Connectionstring"
dbconn = Server.CreateObject("ADODB.Connection")
dbconn.Open(connString)
rs = Server.CreateObject("ADODB.RecordSet")
objCmd = Server.CreateObject("ADODB.Command")
objCmd.ActiveConnection = dbconn
objCmd.CommandText = "sp_Name"
objCmd.CommandType = &H0004
objParam = objCmd.CreateParameter("@EmailID",200,1,"100",Session("EmailID"))
objCmd.Parameters.Append(objParam)
objParam = objCmd.CreateParameter("@Password",200,1,"100",Session("Password"))
objCmd.Parameters.Append(objParam)
rs = objCmd.Execute(Session("EmailID"),Session("Password"))
do while not rs.eof ------->here comes error
EmailID = rs(0)
Password = rs(1)
'response.Write EmailID & "," & Password & "<br">
rs.MoveNext
loop
发布于 2013-03-01 22:07:48
尝试使用下面的代码。
SET rs = objCmd.Execute(Session("EmailID"),Session("Password"))
在%s之前添加集合
发布于 2013-09-21 03:05:05
这是我的建议。
在我的例子中,来自Command.Execute()的RecordSet对象既不支持.BOF也不支持EOF。
因此,我使用RecordSet.Open方法来调用存储过程,如下所示...
Dim dbconn, objCmd, objParam, rs, EmailID, Password, connString, RecordCount
connString = "Connectionstring"
dbconn = Server.CreateObject("ADODB.Connection")
dbconn.Open(connString)
rs = Server.CreateObject("ADODB.RecordSet")
objCmd = Server.CreateObject("ADODB.Command")
objCmd.ActiveConnection = dbconn
objCmd.CommandText = "sp_Name"
objCmd.CommandType = &H0004
objParam = objCmd.CreateParameter("@EmailID",200,1,"100",Session("EmailID"))
objCmd.Parameters.Append(objParam)
objParam = objCmd.CreateParameter("@Password",200,1,"100",Session("Password"))
objCmd.Parameters.Append(objParam)
rs.Open objCmd, dbconn, 1, 1
do while not rs.eof ------->here comes error
EmailID = rs(0)
Password = rs(1)
'response.Write EmailID & "," & Password & "<br">
rs.MoveNext
loop
我希望现在还来得及!
https://stackoverflow.com/questions/15159067
复制相似问题