用下列代码即可:
<%
On error resume next
Set session=CreateObject("Notes.NotesSession")
Set db=session.GetDatabase("","test1.nsf")
Set doc=db.CreateDocument
doc.From="feiwenhua@163.net"
doc.Subject="随风起舞向你问好!"
doc.Body="我闻到
青春海岸吹来的清凉的气息
我听到
人生战场
高亢激越的号角又在吹响
我看到
欢乐的人们与我随风起舞"
doc.Save true,false
If Err.Number<>0 Then
Response.Write err.Description
Else
Response.Write "恭喜,数据读取成功!"
End If
%>
<%
On error resume next
Set session=CreateObject("Notes.NotesSession")
Set db=session.GetDatabase("","test1.nsf")
Set doc=db.CreateDocument
doc.From="feiwenhua@163.net"
doc.Subject="随风起舞向你问好!"
doc.Body="我闻到
青春海岸吹来的清凉的气息
我听到
人生战场
高亢激越的号角又在吹响
我看到
欢乐的人们与我随风起舞"
doc.Save true,false
If Err.Number<>0 Then
Response.Write err.Description
Else
Response.Write "恭喜,数据读取成功!"
End If
%>
