|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.1、完成办法
一个誊写日记的函数,供应几个参数,用户程序挪用这个函数就能够完成日记的纪录。日记纪录到xml文件中,日记文件按日期天生,天天新创建一个日记文件,文件名为:yyyy_mm_dd.xml,分离用了年代日。而检察日记也一样平常复杂,用户想看哪天的日记,只需间接挪用该xml文件便可。由于xml文件已默许了一个xsl文件来格局化输入。
2、誊写日记的办法
’纪录日记的程序
’塞北的雪
’日期:2004.11.20
’username:用户信息(标示举行该操纵的职员)
’operate:操纵(标示用户举行了甚么操纵)
’userip:用户IP(标示用户用于登录体系的盘算机的IP地点)
’opdate:用户操纵产生的日期
’日记写进一个xml文件,第一次写进时假如xml文件不存在,则创立。
’前往值:1暗示翻开日记文件时堕落
’前往值:9暗示准确完成写进日记文件
functionWriteSysLog(sys_userid,sys_username,operate)
dimop_username
iftrim(sys_userid)=""andtrim(sys_username)=""then
op_username="匿名"
else
op_username=sys_userid&"/"&sys_username
endif
xmlPath="/"&getRoot()&"/log/SysLog/"
xmlFile=replace(cstr(ConvertDate(date())),"-","_")&".xml"
RootNode="syslog"’日记文件根节点名字
LogFile=server.mappath(xmlPath&xmlFile)’日记文件路径
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&"<?xml-stylesheettype=’text/xsl’href=’../logInfo.xsl’?>"&vbcrlf&"<"&rootnode&"></"&rootnode&">"
setmmm=nothing
setfff=nothing
endif
setfso=nothing
Setxd=Server.CreateObject("msxml2.domdocument")
xd.async=false
xd.load(LogFile)
ifxd.parseError.errorcode0then
WriteSysLog=1’翻开日记文件堕落
exitfunction
endif
’创立新节点信息
setet=xd.documentElement
setcnode=xd.createElement("log")
et.appendchild(cnode)
setnode2=xd.createElement("username")
node2.text=op_username
cnode.appendchild(node2)
setnode2=xd.createElement("operate")
node2.text=operate
cnode.appendchild(node2)
setnode2=xd.createElement("userip")
node2.text=Request.ServerVariables("Remote_Addr")
cnode.appendchild(node2)
setnode2=xd.createElement("opdate")
node2.text=cstr(now())
cnode.appendchild(node2)
xd.saveLogFile’写进日记文件
setcnode=nothing
setnode2=nothing
setxd=nothing
writeSysLog=9’申明一般写进了日记信息
endfunction
’取得以后假造目次的名字
functiongetRoot()
url=Request.ServerVariables("URL")
url=right(url,len(url)-1)
getRoot=mid(url,1,instr(url,"/")-1)
endfunction
’将一个一名的数字后面加零
functionFillZero(str)
ttt=str
iflen(str)=1then
ttt="0"&str
endif
FillZero=ttt
endfunction
’转化日期,将一名补上零2003-1-2-->2003-01-02
functionConvertDate(tDate)
ttt=tDate
ifisd</p>ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段,极大地提高了开发的效果。在讨论ASP的安全性问题之前,让我们来看看ASP是怎么工作的。 |
|