莲花
msgbox 后面错了
dim session as new notessession ’创建一个新的进程，赋值给session对象
dim db as notesdatabase ‘定义一个名为db的数据库对象
set db = session.currentdatabase ’数据库对象db=当前session正在使用的数据库（当前数据库）
msgbox currentdatabase ‘输出变量，currentdatabase前面没有定义，没有赋值，会报错的
你可以输出当前数据库的title、dbname、dbpath等属性。
如：msgbox db.title
使用msgbox时，如果是在notes客户端运行，会弹出窗口显示，如果是在web端运行，结果会显示在服务器的控制台上（也可以通过log.nsf查看）
