锘??xml version="1.0" encoding="utf-8" standalone="yes"?>天堂电影在线,国产精品久久久久久久久图文区,免费h在线看http://www.aygfsteel.com/wangkai40/category/40951.html瀛︿範(fàn)鎺㈣Javazh-cnMon, 20 Jul 2009 09:48:14 GMTMon, 20 Jul 2009 09:48:14 GMT60浠ｇ悊鎬庢牱淇敼鐢ㄦ埛瀵嗙爜http://www.aygfsteel.com/wangkai40/archive/2009/07/20/287481.html瀹夐槼瀹夐槼Mon, 20 Jul 2009 08:18:00 GMThttp://www.aygfsteel.com/wangkai40/archive/2009/07/20/287481.htmlhttp://www.aygfsteel.com/wangkai40/comments/287481.htmlhttp://www.aygfsteel.com/wangkai40/archive/2009/07/20/287481.html#Feedback0http://www.aygfsteel.com/wangkai40/comments/commentRss/287481.htmlhttp://www.aygfsteel.com/wangkai40/services/trackbacks/287481.html
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db=session.CurrentDatabase
Set view=db.GetView("People")
Set doc=view.GetFirstDocument()
While Not doc Is Nothing
doc.HttpPassword="(F95B1AC3434063FE7CBA363FB171D492)"
Call doc.Save(True,False)
Set doc=view.GetNextDocument(doc)
Wend
End Sub