【IT168技术文章】

   Lotus用户信息如何导到access中呢。我这里有一个方法，就是先将用户信息引出到文本文件，然后用下面程序输出到access文件中。

    <%

    本程序用于将从OA中导出的 用户信息中的一些信息分析出来，并存入数据库中。

    注意1：到出来的文件需要拷贝复制到另一个文本文件中。否则得不到正确结果。

    注意2：如果用户的该项信息不存在则返回 "null" 字符串。

    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%>条信息！