新微赢技术网

标题: 数据库连接问题 [打印本页]

作者: lala 时间: 2010-1-13 00:30
标题: 数据库连接问题
错误类型：
Microsoft VBScript 运行时错误 (0x800A01BE)
对象不支持已命名参数: 'rs.ActiveConnection'

Set rs.ActiveConnection = Conn 这句怎么会有错？

作者: ☆冬虫草☆ 时间: 2010-1-13 00:30

<%
If IsEmpty(Session("Passed")) Then
Session("Passed") = False
End If

If Session("Passed") = False Then
UserName = Request.Form("UserName")
UserPwd = Request.Form("UserPwd")

If UserName = "" or UserPwd = "" Then
   Errmsg = "请输入用户名或密码"
Else
   Set rs = Server.CreateObject("ADODB.Connection")
   Set rs.ActiveConnection = Conn
   rs.CursorType = 3
   rs.Open "SELECT * FROM Users WHERE UserName='" & UserName & "'"
   If rs.EOF Then
   Session("Errmsg") = "用户名不存在"
   Else
   If UserPwd <> rs.Fields("UserPwd") Then
   Session("Errmsg") = "用户密码不正确"
Else '登陆成功
   Errmsg = ""
Session("Passed") = True
   Session("UserName") = rs.Fields("UserName")
   Session("UserId") = rs.Fields("UserId")
   Session("Errmsg") = ""
End If
   End If

这是那个文件的全部代码

作者: 風過aiq無痕 时间: 2010-1-13 00:30
conn文件帖出来吧

作者: 〢●●〢 时间: 2010-1-13 00:30
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("data/discuss.mdb")
Conn.Open
%>

作者: 30左右结次婚 时间: 2010-1-13 00:30
Set rs = Server.CreateObject("ADODB.Connection") Set rs.ActiveConnection = Conn 注意这两句话首先应该是ADODB.RecordSet才对吧？还有就是创建了rs对象以后直接rs.ActiveConnection=Conn不用Set了。修改后为： Set rs = Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = Conn 改完再试试？

作者: ゛， 时间: 2010-1-13 00:30
Set 是用来在VB里显示创建对象用的方式一般对象以创建就不用Set了，除了将对象销毁时用Set rs=Nothing。

作者: ♀〓♂♀〓♂ 时间: 2010-1-13 00:31

Set rs = Server.CreateObject("ADODB.Connection") Set rs.ActiveConnection = Conn 注意这两句话首先应该是ADODB.RecordSet才对吧？还有就是创建了rs对象以后直接rs.ActiveConnection=Conn不用Set了。修改后为： Set rs = Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = Conn 改完再试试？

就是这里错了一时粗心

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)