试试吧
<%
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
%>
|
