|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。程序誊写日记的程序
?username:用户信息(标示举行该操纵的职员)
operate:操纵(标示用户举行了甚么操纵)
userip:用户IP(标示用户用于登录体系的盘算机的IP地点)
opdate:用户操纵产生的日期
日记写进一个xml文件,第一次写进时假如xml文件不存在,则创立。前往值:0暗示输出的参数有效前往值:1暗示翻开日记文件时堕落前往值:9暗示准确完成写进日记文件
?functionWriteLog(username,operate,userip,opdate)
ifusername=""oroperate=""oruserip=""oropdate=""then
WriteLog=0参数有效
exitfunction
endif
RootNode="syslog"
日记文件根节点名字
LogFile=server.mappath("uuu.xml")日记文件路径
setfso=server.CreateObject("scripting.filesystemobject")
假如日记文件不存在,就创立一个,并写进头信息和根信息
ifnotfso.FileExists(LogFile)then
fso.CreateTextFileLogFile
setfff=fso.GetFile(LogFile)
setmmm=fff.openastextstream(2)?
mmm.write"《?xmlversion=""1.0""encoding=""gb2312""?〉"&vbcrlf&"《"&rootnode&"〉《/"&rootnode&"〉"
setmmm=nothing
setfff=nothing
else
Response.Write("文件名抵触!")
Response.End
endif
setfso=nothing
Setxd=Server.CreateObject("msxml2.domdocument")
xd.async=falsexd.load(LogFile)
ifxd.parseError.errorcode0then
WriteLog=1翻开日记文件堕落
exitfunction
endif
创立新节点信息
setet=xd.documentElement
setcnode=xd.createElement("log")
et.appendchild(cnode)
setnode2=xd.createElement("username")
node2.text=username
cnode.appendchild(node2)
setnode2=xd.createElement("operate")
node2.text=operate
cnode.appendchild(node2)
setnode2=xd.createElement("userip")
node2.text=userip
cnode.appendchild(node2)
setnode2=xd.createElement("opdate")
node2.text=opdate
cnode.appendchild(node2)
xd.saveLogFile写进日记文件
setcnode=nothing
setnode2=nothing
setxd=nothing
writeLog=9申明一般写进了日记信息
endfunction
</p>实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。 |
|