lotus用户信息如何导到access中呢。我这里有一个方法,就是先将用户信息引出到文本文件,然后用下面程序输出到access文件中。
<% '本程序用于将从OA中导出的 用户信息中的一些信息分析出来,并存入数据库中。 '注意1:到出来的文件需要拷贝复制到另一个文本文件中。否则得不到正确结果。 '注意2:如果用户的该项信息不存在则返回 "null" 字符串。 '2004年8月 刘金才 set fso=server.createobject("scripting.filesystemobject") cFN=server.mappath("tttt.txt") set fff=fso.getfile(cFN) set mmm=fff.openastextstream(1) if not mmm.atendofstream then cout=mmm.readall end if
Set db=Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("oamail.mdb") constr="driver={Microsoft Access Driver (*.mdb)};dbq="& DBPath db.Open constr db.Execute "delete from oamail" set rs=server.CreateObject("adodb.recordset") rs.Open "select * from oamail where id is null",db,3,2
uuu=split(cout, "$Revisions:") hhh=0 set mmm=nothing set fff=nothing set fso=nothing
for i=0 to ubound(uuu) wangrui=uuu(i) xm=getAinfo(wangrui,"LastName: ",vbcr) un=getAinfo(wangrui,"ShortName: ",vbcr) dw1=getAinfo(wangrui,"FullName: ",vbcr) dw=getAinfo(dw1,"OU=","/O") if xm<>"null" and un<>"null" and dw<>"null" then rs.AddNew rs("xm")=xm rs("un")=un rs("dw")=dw hhh=hhh+1 end if next
rs.Update rs.Close db.Close set rs=nothing set db=nothing
'从一个字符串中截取一个子串 'sString:要被截的子串 'fStr :子串开头的标志串(不被包含在子串中) 'eStr :子串结束的标志串(不被包含在子串中) function getAinfo(sString,fStr,eStr) tmpStr="null" ln1=instr(1,sString,fStr) if ln1>0 then ln2=instr(ln1+len(fStr),sString,eStr) if ln2>0 then tmpStr= mid(sString,ln1+len(fStr),ln2-ln1-len(fStr)) end if end if getAinfo=tmpStr end function
%> 操作结束! ,共截取到<%=hhh%>条信息!

|