ADODB.Recordset 错误 '800a0e78' 对象关闭时,不允许操作。 /baomingkaoshi/check.asp,行 27 急求指教啊
程序是这样的<%@language="vbscript"%><%Response.buffer="True"%><!--#includefile="conn.asp"--...
程序是这样的
<% @language="vbscript" %>
<%Response.buffer="True"%>
<!--#include file="conn.asp"-->
<%
dim rs
dim sql
dim sfzh
dim pwd
sfzh=request.form("sfzh")
pwd=request.form("pwd")
set rs=Server.CreateObject("Adodb.Recordset")
sql="select sfzh,pwd,rname from member where sfzh='"&sfzh&"'"
rs.open sql,conn,1,1
If rs.eof Then
response.write "<script>alert('无此考生名,请返回首页登记新考生!');history.back();</Script>"
response.end
End If
dim dbpwd
dim rname
dbpwd=rs("pwd")
rname=rs("rname")
conn.close
set conn=nothing
rs.close
set rs=nothing
If dbpwd<>pwd Then
response.write "<script>alert('密码错误,请返回从新填写!');history.back();</Script>"
response.end
Else
Response.cookies("member")=true
Response.cookies("sfzh")=sfzh
Response.cookies("rname")=rname
Response.redirect"user_ctrl_panel.asp"
End If%> 展开
<% @language="vbscript" %>
<%Response.buffer="True"%>
<!--#include file="conn.asp"-->
<%
dim rs
dim sql
dim sfzh
dim pwd
sfzh=request.form("sfzh")
pwd=request.form("pwd")
set rs=Server.CreateObject("Adodb.Recordset")
sql="select sfzh,pwd,rname from member where sfzh='"&sfzh&"'"
rs.open sql,conn,1,1
If rs.eof Then
response.write "<script>alert('无此考生名,请返回首页登记新考生!');history.back();</Script>"
response.end
End If
dim dbpwd
dim rname
dbpwd=rs("pwd")
rname=rs("rname")
conn.close
set conn=nothing
rs.close
set rs=nothing
If dbpwd<>pwd Then
response.write "<script>alert('密码错误,请返回从新填写!');history.back();</Script>"
response.end
Else
Response.cookies("member")=true
Response.cookies("sfzh")=sfzh
Response.cookies("rname")=rname
Response.redirect"user_ctrl_panel.asp"
End If%> 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询