错误类型：
Microsoft VBScript 运行时错误 (0x800A01BE)
对象不支持已命名参数: 'rs.ActiveConnection'

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

<!-- #include file="Conn.asp"-->
<%
 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

这是那个文件的全部代码

conn文件帖出来吧

<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("data/discuss.mdb")
Conn.Open
%>

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 改完再试试？

Set 是用来在VB里显示创建对象用的方式一般对象以创建就不用Set了，除了将对象销毁时用Set rs=Nothing。

[QUOTE] 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 改完再试试？ [/QUOTE] 就是这里错了 一时粗心