ASP网页编程之导出lotus用户的办法（用asp手艺）

因为现在数据库都使用标准的SQL语言对数据库进行管理，所以如果是标准SQL语言，两者基本上都可以通用的。SQLServer还有更多的扩展，可以用存储过程，数据库大小无极限限制。lotus用户信息怎样导到access中呢。我这里有一个办法，就是先将用户信息引出到文本文件，然后用上面程序输入到access文件中。

<%
本程序用于将从OA中导出的用户信息中的一些信息剖析出来，并存进数据库中。
注重1：到出来的文件必要拷贝复制到另外一个文本文件中。不然得不到准确了局。
注重2：假如用户的该项信息不存在则前往"null"字符串。
2004年8月刘金才
setfso=server.createobject("scripting.filesystemobject")
cFN=server.mappath("tttt.txt")
setfff=fso.getfile(cFN)
setmmm=fff.openastextstream(1)
ifnotmmm.atendofstreamthen
cout=mmm.readall
endif


Setdb=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("oamail.mdb")
constr="driver={MicrosoftAccessDriver(*.mdb)};dbq="&DBPath
db.Openconstr
db.Execute"deletefromoamail"
setrs=server.CreateObject("adodb.recordset")
rs.Open"select*fromoamailwhereidisnull",db,3,2


uuu=split(cout,"$Revisions:")
hhh=0
setmmm=nothing
setfff=nothing
setfso=nothing

fori=0toubound(uuu)
wangrui=uuu(i)
xm=getAinfo(wangrui,"LastName:",vbcr)
un=getAinfo(wangrui,"ShortName:",vbcr)
dw1=getAinfo(wangrui,"FullName:",vbcr)
dw=getAinfo(dw1,"OU=","/O")
ifxm"null"andun"null"anddw"null"then
rs.AddNew
rs("xm")=xm
rs("un")=un
rs("dw")=dw
hhh=hhh+1
endif
next

rs.Update
rs.Close
db.Close
setrs=nothing
setdb=nothing



从一个字符串中截取一个子串
sString：要被截的子串
fStr：子串开首的标记串（不被包括在子串中）
eStr：子串停止的标记串（不被包括在子串中）
functiongetAinfo(sString,fStr,eStr)
tmpStr="null"
ln1=instr(1,sString,fStr)
ifln1>0then
ln2=instr(ln1+len(fStr),sString,eStr)
ifln2>0then
tmpStr=mid(sString,ln1+len(fStr),ln2-ln1-len(fStr))
endif
endif
getAinfo=tmpStr
endfunction


%>
操纵停止！,共截取到<%=hhh%>条信息！

</p>问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.

Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.