试试吧
　　<%
　　On error resume next
　　Set session=CreateObject("Notes.NotesSession")
　　Set db=session.GetDatabase("","test4.nsf")
　　Set doc=db.CreateDocument
　　doc.Form="Main"
　　doc.Subject="subject"
　　doc.Body="body"
　　doc.Save true,false
　　If Err.Number<>0 Then
　　Response.Write err.Description
　　Else
　　Response.Write "success"
　　End If
　　%>