公司档案管理系统_毕业论文(编辑修改稿)

公司档案管理系统_毕业论文(编辑修改稿)内容摘要：

n(onlineuser) dimsums=ubound(onlineuser) for i=0 to dimsums siteinfo=onlineuser(i) if siteinfo then if instr(siteinfo,oabusyusernameamp。 $)0 then findok=1 20 exit for end if end if next find_online_user=findok end function sub write_online_user(username,name,dept) dim userinfo userinfo=usernameamp。 $amp。 nameamp。 $amp。 deptamp。 $amp。 (REMOTE_ADDR) onlineuser=application(onlineuser) dimsums=ubound(onlineuser) redim preserve onlineuser(dimsums+1) onlineuser(dimsums+1)=userinfo application(onlineuser)=onlineuser end sub sub checkkqdatabase() set fileobject=() if not ((kq/amp。 cstr(year(date()))amp。 .mdb)) then file1=(kq\backup\) file2=(kq\amp。 cstr(year(date()))amp。 .mdb) file1,file2 end if set fileobject=nothing end sub call checkkqdatabase username=(username) password=(password) if username and password then set conn=opendb(oabusy,conn,accessdsn) set rs=() on error resume next sql=select * from userinf where username= amp。 sqlstr(username) amp。 and password= amp。 sqlstr(password) amp。 and forbid=39。 no39。 sql,conn,1,1 39。 如果有此用户就进入系统 if not and not then (oabusyname)=rs(name) 21 (oabusyuserid)=cstr(rs(ID)) (oabusyusername)=rs(username) (oabusyuserdept)=rs(userdept) (oabusyuserlevel)=rs(userlevel) (cook_allow_see_all_workrep)=rs(allow_see_all_workrep) (cook_allow_see_dept_workrep)=rs(allow_see_dept_workrep) (cook_allow_control_dept_user)=rs(allow_control_dept_user) (cook_allow_control_all_user)=rs(allow_control_all_user) (cook_allow_send_note)=rs(allow_send_note) (cook_allow_control_note)=rs(allow_control_note) (cook_allow_control_file)=rs(allow_control_file) (cook_allow_send_file)=rs(allow_send_file) (allow_transmit_file)=rs(allow_transmit_file) (cook_allow_control_level)=rs(allow_control_level) (allow_check_resource_requirement)=rs(allow_check_resource_requirement) (allow_auditing_workthings)=rs(allow_auditing_workthings) (allow_manage_workthings)=rs(allow_manage_workthings) (allow_lookallinfo_workthings)=rs(allow_lookallinfo_workthings) (allow_look_all_kq_info)=rs(allow_look_all_kq_info) (allow_edit_help)=rs(allow_edit_help) onlineuserdim=application(onlineuser) if isempty(onlineuserdim) then dim onlineuserdim(0) dim meetinginfodim(0) application(onlineuser)=onlineuserdim application(meetinginfo)=meetinginfodim end if if find_online_user(rs(username))=0 then call 22 write_online_user(rs(username),rs(name),rs(userdept)) end if set conn=nothing end if end if % html head titleDMIS/title META HTTPEQUIV=ContentType CONTENT=text/html。 charset=gb2312 link rel=stylesheet href=inc/ type=text/css STYLE type=text/css .ipt {BORDERRIGHT: a8b1d2 1px solid。 BORDERTOP: a8b1d2 1px solid。 FONTSIZE: 9pt。 BORDERLEFT: a8b1d2 1px solid。 WIDTH: 160px。 COLOR: 7b8ac3。 BORDERBOTTOM: a8b1d2 1px solid。 HEIGHT: 18px} BODY {BACKGROUNDPOSITION: center 50%。 BACKGROUNDIMAGE: url(img/)} /STYLE /head body bgcolor=ffffff text=333333 scroll=no style=border:0px。 table height=50 width=600 cellSpacing=0 cellPadding=0 border=0 align=center tr td/td /tr /table table height=50 width=600 cellSpacing=0 cellPadding=0 border=0 align=center background=img/ TR TD height=285/TD /TR TR TD valign=middleform name=form1 method=post action= TABLE style=BORDERCOLLAPSE: collapse height=118 cellSpacing=0 cellPadding=0 width=450 align=center border=0 TR class=ft TD align=right width=180 height=30FONT color=7b8ac3系统管理 员账号： /FONT/TD TD align=left height=30input name=username type=text 23 size=15 maxlength=50/TD /TR TR class=ft vAlign=middle align=center TD align=right width=180 height=30FONT color=7b8ac3系统管理 员密码： /FONT/TD TD align=left height=30input name=password type=password size=15 maxlength=50/TD /TR TR TD vAlign=bottom align=right colSpan=2INPUT type=image height=82 width=82 src=img/ value= 提交 name=S1 A onclick=() href=IMG height=82 src=img/ width=82 border=0/A/TD /TR /TABLE /FORM/TD /TR TR TD vAlign=top align=center height=60IMG height=11 src=img/ width=189/TD /TR /TABLE /BODY /HTML 系统主页面 系统主页面设计 如图 53 系统主选择页面所示，整个页面分为了三个部分，最上面是时间、用户登陆等一些信息，由“ ”实现；左半部分是系统的导航菜单，由“ ”实现；右边是系统关于的模块，由“ ” 实现。 24 图 53 系统选择主页面 代码实现 （ 1）登陆信息及时间等： % set file=() addr1=() addr2=() If Not (addr1) or Not (addr2) Then script LANGUAGE=39。 javascript39。 alert(39。 系统发生严重错误即将关闭。 39。 )。 ()。 /script End If % html head title企业档案管理系统 /title meta equiv=ContentType content=text/html。 charset=gb2312 link rel=stylesheet href=inc/ type=text/css SCRIPT language=javascript ! if () ()。 function nocontextmenu() { = true = false。 return false。 } 25 function norightclick(e) { if () { if ( == 2 || == 3) return false。 } else if ( == 2 || == 3) { = true = false。 return false。 } } = nocontextmenu。 // for IE5+ = norightclick。 // for all others // /SCRIPT script function tick() { var hours, minutes, seconds, ap。 var intHours, intMinutes, intSeconds。 var today。 today = new Date()。 intHours = ()。 intMinutes = ()。 intSeconds = ()。 if (intHours == 0) { hours = 12。