rs = aa.Login(username, password)这样可以吗??
为什么我给了rs之后他始终为nothing
If TextBox1.Text = "" Then
            Response.Write("<script>alert('用户名不能为空!')</script>")
        ElseIf TextBox2.Text = "" Then
            Response.Write("<script>alert('密码不能为空!')</script>")
        Else            Dim username As String
            Dim password As String
            username = TextBox1.Text
            password = TextBox2.Text            Dim aa As CZYGL.CZY            Dim rs As ADODB.Recordset
                       rs = Server.CreateObject("ADODB.Recordset")
            aa = Server.CreateObject("CZYGL.CZY")
                                   rs = aa.Login(username, password)            If rs Is Nothing Then                 Response.Write("<script>alert('帐号或密码错误!!');</script>")            Else
                Response.Redirect("index.aspx")            End If
        End If
这个是我的完整的程序