set rs=server.CreateObject("ADODB.recordset")
            sql="select * from login where user='"&user&"' and pwd='"&pwd&"'"
            rs.open sql,conn,1,1
    if not rs.eof then
               rs.close
               response.Write(index_loginmsgd)
               response.End()
        else
               rs.close
               rs.open "select * from login",conn,1,3
               rs.addnew
               rs("user")=user
               rs("pwd")=pwd
               rs("username")=username
               rs("tel")=tel
               rs.update
               rs.close
               rs=nothing
               rs=nothing
               response.Write(index_loginmsge)
    end if

没有发现多出了一行rs=nothing吗？

1.set rs=nothing
2.包含的sql语句内不能使用同一个变量rs。内部的rs需要写成其他变量。如mrs等

else
       rs.close

把这个rs.close删了