ASP设备管理系统 第7页
5.4 目录结构与通用模块
1)目录结构
●image 用于存储网页中的图片文件；
● user 用于存储基本管理的操作脚本，部门管理、用户管理、添加新用户、用户修改密码模块组成。
●database 用于存储数据库管理的操作脚本。
●PermanentAsserts 用于存储固定资产管理的相关的脚本，包括资产申报、审核、卡片生成、按编号打印及附件下载、万能条件统计、生成报表模块等；
●ExpendableSupplies 用于存储低值易耗品管理的相关脚本。包括申报、未完成申报、验收单生成、按编号打印等模块。
●Stock 用于存储采购管理的相关脚本。包括申报、未完成申报、申报表生成等模块。
●Syslog 用于存储系统日志的操作脚本。
2)通用模块
(1) Conndb.asp
Conndb.asp的功能是实现到数据库的连接，在文件中引用如下文件：<!--#include file=” Conndb.asp”-->作为头文件就可以访问数据库。
(2) checkrole.asp
checkrole.asp的功能是判断当前用户是否是系统管理员，如果不是，在其相应操作则跳转到提示“你没有权限”，如果是，则不执行任何操作，直接进入操作。
(3) checkrole1.asp
Checkrole1.asp的功能是判断当前用户是否是系统用户，如果不是，在其相应操作则跳转到提示“你没有权限”，如果是，则不执行任何操作，直接进入操作。
5.5 登录程序设计
1)设计登录主界面
本程序管理主界面为index.asp，它的功能是进行身份认证，如通过验证的用户则将其用户名、所在单位送入Session("UserName")、Session("deptOfuser")以备调用并进入系统。在index.asp中，包含了两个文件Left.asp和main.htm。Left.asp用来显示管理界面中的基本管理、数据库管理、资产管理、低值易耗品、采购管理、日志管理，在此界面是以QQ菜单的形式进行显示的。main.htm用来介绍系统操作流程。（登录主界面如图 5 3登录主界，系统主界面如图 5 4系统主界面）
图 5 3登录主界
图 5 4系统主界面
5.6 基本管理模块设计
基本管理模块可以实现以下功能：
部门管理
用户管理
添加新用户
修改密码
5.6.1 部门管理模块
图 5 5部门管理模块
部门管理模块为DepList.asp（如图 5 5部门管理模块）,此模块只有系统管理员才能进入,所以在文件中引用如下文件：<!-- #include file="checkrole.asp" -->用于验证其权限。此模块的功能在于部门的修改、删除、添加。初始界面时从数据库中输出部门信息。操作时是根据提交Soperate=Request.QueryString("oper")信息进行操作。如删除一级部门代码如下：
If Soperate="delete" Then'判断部门表中是否存在此部门
sql = "SELECT * FROM deptOfUseInfo WHERE deptOfUseName='" & Depname1 & "'"
Set rs = Conn.Execute(sql)
If Not rs.EOF Then'判断此部门是否存在下级部门
sql = "SELECT * FROM deptOfKeepingInfo WHERE deptName='" & Depname1 & "'"
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
Response.Write "此部门存在下级部门，不能删除！"
Response.End()
End If
End If
sqldelt = "DELETE FROM deptOfUseInfo WHERE deptOfUseName='" & Depname1 & "'"
Conn.Execute(sqldelt)
Response.Write "部门已经成功删除！"
End if
5.6.2 用户管理模块
图 5 6用户管理模块
用户管理模块为UserList.asp（如图 5 6用户管理模块），此模块只有系统管理员才能进入,所以在文件中引用如下文件：<!-- #include file="checkrole.asp" -->用于验证其权限。此模块的功能在于用户的修改、删除、密码重置。初始界面时从数据库中输出用户信息。执行操作修改、删除、密码重置时将分别将username带到userChange.asp、UserDelt.asp、userPwdReset.asp执行相应操作。密码重置时密码将被置为：111111。（如uid = Request.QueryString("uid") sql = "Update UserInfo Set password='111111' Where username='" & uid & "'" Set rs = Conn.Execute(sql)）
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>