为什么在与数据库连接中出现：连接无法用于执行此操作。上下文中它可能已被关闭或无 - ASP技术论坛

问题点数：0 回复次数：4

为什么在与数据库连接中出现：连接无法用于执行此操作。上下文中它可能已被关闭或无

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<title>登录</title>
</head>
<body>
<div align=center>
<%
dim strUserName
dim strPassword

strUserName = Request.Form("txtUserName")
strPassword = Request.Form("txtPassword")

call tackleEmpty(strUserName)
call tackleEmpty(strPassword)
call tacklePrime(strUserName)
call tacklePrime(strPassword)
call tackleOverLen(strUserName,15)
call tackleOverLen(strPassword,15)
call openDB()
sql="select USER_NAME from UserInfo where(USER_NAME='"&strUserName&"'"_
&"and PASSWORD='"&strPassword&"')"
rs.open.sql,conn,1,1 ////这里总是提示上面的错误，连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。不知原因何在
if not rs.eof then
session("UserName")=strUserName
showMsg("登录成功!<a href='default.asp'>返回首页</a></br>")
else
showMsg("登录失败！")
end if
call closeDB()
%>
</div>
</body>
</html>

搜索更多相关主题的帖子: quot　数据库　 strUserName　meta　head　

第 2 楼

得分:0

所包含的数据库文件 conn_SQLServer.asp
<%
dim sql,rs,conn
'on error resume next
sub openDB()
set conn=server.createobject("ADODB.Connection")
conn.open "Driver={SQL Server};"_
&"Server=TY;" _
&"Database=company;" _
&"Uid=sa;" _
&"Pwd=101"
set rs=server.createobject("ADODB.Recordset")
end sub

sub closeDB()
If IsObject(conn) Then
if not(conn is nothing) then
set rs=nothing
conn.close
set conn=nothing
end if
End If
end sub
%>