… ………………………………… ………………… 实用第一 智慧密集 部门设备管理系统设计 朱建兴 摘 要：基于部门设备管理的特点和运作流程，采用ＡＳＰ动态网页编程技术和Ｍｉｃｒｏｓｏｆｔ Ａｃｃｅｓｓ ２００３数据库．开发基于ＣＲＭ模式的学校部门设备管理系统，探索ＣＲＭ管理模式在部门设备管 理中应用，完成了部门设备基本信息管理、报表打印、设备信息查询、客户（用户）信息管理等 功能，成功实现了部门设备的管理需求。 关键词：ＣＲＭ；部门设备管理；ＡＳＰ；数据库 １ 引言 ＣＲＭ是英文Ｃｕｓｔｏｍｅｒ Ｒｅｌａｔｉｏｎｓｈｉｐ Ｍａｎａｇｅｍｅｎｔ的缩写，即 客户（或用户）关系管理。ＣＲＭ是一套先进的管理思想及技 术手段，它通过将人力资源、业务流程与专业技术进行有效的 整合，使企业（或部门）与客户（或用户）建立起基于学习型 关系基础上的一对一模式，从而提高管理运作流程的自动化程 度．降低管理成本，提高管理效率。 部门设备管理系统是一个典型的数据库应用程序．由设备 基本信息维护、设备信息查询、设备编号的生成、用户信息管 理等模块构成，其流程如图ｌ所示。由于本系统是一个简单的 应用系统，因此，在选择数据库时，应考虑数据库应用的特点 及适用范围，本系统采用数据库为Ａｃｃｅｓｓ２００３。本系统基于 Ｗｅｂ浏览器，采用Ｃ／Ｓ模式，方便实用。 ４关键技术 ２ ＣＲＭ模式 基于部门设备管理的特点和运作流程，借鉴企业ＣＲＭ系 ４・’ 信息批量录入 当部门采购了设备以后，在分配给各个科室使用之前要先 进行设备信息录入．而设备信息是由管理员进行录入的，在本 系统中也支持Ａｃｃｅｓｓ和Ｅｘｃｅｌ的数据导人。 统开发模式．开发出适合部门设备管理的管理模式，改善“设 备采购一设备分配一设备管理”整个运作流程，实现设备管理 流程的自动化，规范化，高效化。 基于网络Ｂ／Ｓ（Ｂｌｏｗｓｅｒ／Ｓｅｖｅｒ）模式，采用ＡＳＰ网络编程技术和 ＇Ｍｉｃｒｏｓｏｆｔ Ａｃｃｅｓｓ ２００３数据库．服务器端只需要有一台ＰＣ做为服务 器．客户端用户只需会用ＩＥ浏览器即可，系统搭建简单方便实用。 当部门采购了一批设备后，最常见的情况是，可能这批设 备里有好多种类别，比如：采购了一批设备，其中笔记本３ 台、交换机４台、投影仪２台。那么如何实现设备的批量录入 呢？本系统采用数组的方法，先将设备信息存放到数组中，然 后利用循环实现设备的批量入库，其实现的核心代码如下： Ｆｕｎｃｔｉｏｎ ａｄｄｉｎｆｏ（Ｇｎａｍｅ，Ｇｓｔｄ，Ｇｐｒｉｃｅ，．Ｇｎｕｍｓ，．Ｇｓｈｏｐ） —３设计流程 ｉｆ ｎｏｔ ｉｓａｒｒａｖ（ｓｅｓｓｉｏｎ（‘＇ａｒｒ＿ｒｋ＂））Ｔｈｅｎ ＂ｓｅｓｓｉｏｎ（＇＇ａｒｒ＿ｒｋ＇。）不是数组 ｄｉｍ ａｒｒ（０ ４｝ ａｒｒ（０，Ｏ）＝Ｇｎａｍｅ ａｒｒ（Ｏ，１）＝Ｇｓｔｄ ａｒｒ（０，２）＝Ｇｐｒｉｃｅ ａｒｒ（Ｏ．３）＝Ｇｎｕｍｓ ａｒｒ（Ｏ，４）＝Ｇｓｈｏｐ Ｅｌｓｅ Ｓｅｓｓｉｏｎ（＂ａｒｒ＿ｒｋ”）是数组时 ａｒｒ＝ｓｅｓｓｉｏｎ（“ａｒｅ ｒｋ ） ＵＢ＝ｕｂｏｕｎｄ《ａｒｒ，１）＋１ ｒｅｄｉｍ ａｒｒ（ＵＢ，４） 图１程序流程图 ｓｅｓｓｉｏｎａｉｒｒ＝ｓｅｓｓｉｏｎ（＇＇ａｒｒ＿ｒｋ＇。） 与Ｉ｜Ｅ …… ＦＯＲＵ啊………………………… ………………………………………… ……………… ………………… 将新添加的商品信息保存 ａｒｒ（ＵＢ，０）＝Ｇｎａｍｅ ａｒｒ（ＵＢ，１）＝Ｇｓｔｄ ａｒｒ（Ｕ Ｂ，２）＝Ｇｐｒｉｃｅ ａｒｒ（ＵＢ．３）＝Ｇｎｕｍｓ ａｒｒ（ＵＢ，４】＝Ｇｓｈｏｐ 应用循环将保存在ｓｅｅｓｉｏｎ（ ａｒｒ＿ｒｋ”）数组中的商品 信息添加到ａｒｒ中 Ｆｏｒ Ｉ＝０ Ｔｏ ｕｂｏｕｎｄ（ｓｅｓｓ ｏｎａｒ １） Ｆｏｒ Ｊ＝０ Ｔｏ ４ ａｒｒ（Ｉ Ｊ）＝ｓｅｓｓｉｏｎａｒｒ（Ｉ，Ｊ） Ｎｅｘｔ Ｎｅｘｔ ｅｎｄ ｉｆ ｓｅｓｓｉｏｎ（“ａｒｒ＿ ｒｋ）＝ａｒｒ Ｅｎｄ Ｆｕｎｃｔｉｏｎ 利用循环向数据库里添加记 录＝＝２＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝：＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Ｉｆ Ｎｏｔ Ｉｓｅｍｐｔｙ（Ｒｅｑｕｅｓｔ（ ｓｔｏｒｅ ））Ｔｈｅｎ ｔｘｔ．ａｒｅａ＝ｒｅｑｕｅｓｔ．ＦＯｒｍ（ ｔｘｔ＿ａｒｅａ ） ｔｘｔ＿ｄｅｐａｒｔ＝ｒｅｑｕｅｓｔ．Ｆｏｒｍｆ ｔ）（ｔ ｄｅｐａｒｔ“） ｔ）（ｔ—ｈａｎｄｅｒ＝ｒｅｑｕｅｓｔ．Ｆｏｒｍ（ ｔｘｔ—ｈａｎｄｅｒ ） ｔＸＬｕｓｅｒ＝ｒｅｑｕｅｓｔ．Ｆｏｒｍ（Ｈｔｘｔ＿ｕｓｅｒ“） ｔ）（Ｌｃｈｅｃｋｅｒ＝ｒｅｑｕｅｓｔ．ＦＯｒｍ｛。ｔｘｔ＿ｃｈｅｃｋｅｒ ） ｔｘｔ＿ｂｕｙｄａｔｅ＝ｒｅｑｕｅｓｔ．Ｆｏｒｍ（ ｔｘｔ＿ｂｕｙ ｄａｔｅ’） ｉｆ ｔｘｔ＿ａｒｅａ＜＞“Ａｎｄ ｔｘｔ＿ｄｅｐａｒｔ＜＞“Ａｎｄ ｔｘｔ＿ｈａｎｄｅｒ＜＞。” Ａｎｄ ｔ×ｔ＿＿ｕｓｅｒ＜＞ Ａｎｄ ｔＸｔ ｃｈｅｃｋｅｒ＜＞ ａｎｄ ｔｘｔ ｂｕｙ＿ｄａｔｅ＜＞ Ａｎｄ ｓａｒｒａｙ（ｓｅｓｓｊｏｎ（。ｓｔｏｒｅ“））Ｔｈｅｎ 将ｓｅｓｓｉｏｎ的内容赋给ａｒｒ＿ｇｏｏｄｓ数组 ａｒＬｇＯｏｄｓ＝ｓｅｓｓｉＯｎ（“ｓｔｏｒｅ”） ｇｏｏｄｓ＿ｔｙｐｅ＝ｕｂｏｕｎｄ（ａｒｒ＿ｇｏｏｄｓ，１）＋１ Ｆｏｒ．＿０ ｔｏ ｕｂｏｕｎｄ（ａｒｒ＿ｇｏｏｄｓ， 前６个字段为数组 ａｒｒ＿ｇｏｏｄｓ的内容，中间６个字段直接从表单获取，剩余的３个 字段为系统信息。 ｓｑｌｓｔｒ＝“ｉｎｓｅｒｔ ｉｎｔｏ ｓｈｏｐｌｉｓｔ（ｎａｍｅ ｓｔｄ。ｐｒｉｃｅ，ｎｕｍｓ；ｃａｓｈ， ｓｈｏｐ，ｉｎｆｏ，ｄｅｐａｒｔ，ｃｈｅｃｋｅｒ，ｂｕｙ＿ｄａｔｅ。ｈａｎｄｅｒ，ｕｓｅｒ，ｓｔｏｒｅ—ｄａｔｅ， ｂｉｌｌ—ｓｏｒｔ，ｂｉｌｌ—ｉｄ，ｏｐｅｒａｔｏｒ） ｖａｌｕｅｓ （ ＆ａｒｒ ｇｏｏｄｓ ｛ｌ，０）＆“ ， ＆ａｒｒ＿ｇｏｏｄｓ（ｉ，１）＆ ， ＆ａｒｒ＿ｇｏｏｄｓ（ｉ，２）＆”，“＆ａｒｒ＿ｇｏｏｄｓ（１，３）＆ ， ＆ａｒｒ ｇｏｏｄｓ ｛ｉ。４）＆“。 ＆ａｒｒ＿ｇｏｏｄｓ ５）＆ 。 ＆ｔｘｔ＿ａｒｅａ＆ 。 ＆ｔｘｔ＿ｄｅｐａｒｔ＆＂＇，＂＆ｔｘｔ＿ｃｈｅｃｋｅｒ＆＂，＃。＆ｔｘｔｂｕｙ＿ｄａｔｅ＆ ＃． 。 ＆ｔｘｔ＿ｈａｎｄｅｒ＆＂＇．＂＆ｔ×Ｌｕｓｅｒ＆ ，＃ ＆ｄａｔｅ（）＆“栉，０，＂＆Ｃｌｎｇ（ｓｅｓｓｉｏｎ（ ｉｎｔｎｏ ））＆“， ＆ｓｅｓｓｉｏｎ（”ｏｐｅｒａｔｏｒ ）＆ ）。 ｄｂ．Ｅｘｅｃｕｔｅ（ｓｑｌｓｔｒ） Ｎｅｘｔ ｓｅｓｓｉｏｎ（“ａｒｅ ｒｋ“）＝ ｓｅｓｓｉｏｎ（ ｓｔｏｒｅ“ｌ＝” ｓｅｓｓｉｏｎ（ ｉｎｔｎｏ ）＝ ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ（“＜ｓｃｒｉｐｔ ｌａｎｇｕａｇｅ＝＇ｊａｖａｓｃｒｉｐｔ ＞ａｌｅｒｔ（ 商 品入库成功ｌ！ ）；ｗｉｎｄｏｗ．１ｏｃａｔｉｏｎ。ｈｒｅｆ＝＇ｃｅｎｔｅｒ＿ｓｅａｒｃｈ．ａｓｐ ：＜／ ｓｃｒｉｐｔ＞ ） ｅｎｄ ｉｆ ｅｎｄ ｉｆ 其实现效果如图２。 ｝＿辩曩叠藩ｆ嚣＇生 ｆ 枣舅咻 ｉ蠢耐 … ｔ Ｂｏ。 ２ ３㈣ｊ莲 ■：厂＿一『＿＿——■ ■ 塑臼 蝴鼙ｎ： 掰＿三ｌ荼妁＾：广一黼 ：广一 ：ｒ～鏊螋日 ：广 —一 ｊ鞫 ｌ ～ 图２ ４．２多类别用户登录验证 不同类别的用户具有不同的使用权限，本系统把用户分为 ３种类别：管理员、超级用户、一般用户。 管理员具有系统最大权限。负责设备管理，包括设备信息 批量录入、设备信息修改、删除等；用户管理，包括用户的创 建、删除、用户信息修改、冻结用户等。 超级用户一般对应着部门的主管，要求能对整个部门的所 有设备进行信息查询。同时可以修改用户密码。 一般用户具有最小的权限，只能查询本部门的设备信息， 一般对应着具体科室的负责人，同时可以修改自己的密码。 为了实现这一点，需要实现在登录界面加入用户类别判 断，以便根据不同的权限进人不同的系统界面；具体登录验证 代码如下，并存为一个单独文件ｌｏｇｉｎ．ａｓｐ。 其次，为了系统信息的安全，当用户在一段时间内没有登 录时，管理员应将其帐户冻结。这就需要实现在登录界面加入 用户状态判断。 具体代码如下： ｉｆ ｉｓｅｍｐｔｙ（ｓｅｓｓｉｏｎ（”Ｐａｓｓｅｄ”））ｔｈｅｎ ｓｅｓｓｉｏｎ（ Ｐａｓｓｅｄ ）＝Ｆａｌｓｅ ｅｎｄ．ｆ ｉｆ ｓｅｓｓｉｏｎ（。Ｐａｓｓｅｄ“）＝Ｆａｌｓｅ ｔｈｅｎ ｉｆ ｒｅｑｕｅｓｔ（ Ｉｏｇｉｎ ）： ｏｋ’Ｔｈｅｎ Ｄｉｍ ｕｓｅｒｎａｍｅ．ｕｓｅｒｐｗｄ ｕｓｅｒｎａｍｅ＝ｍｙＲｅｐｌａｃｅ（ｒｅｑｕｅｓｔ．ＦＯｍ１｛。ｕｓｅｒ－ ｎａｍｅ”）） ｕｓｅｒｐｗｄ＝ｍｄ５（ｍｙＲｅｐｌａｃｅ（ｒｅｑｕｅｓｔ．Ｆ０ｒｍ（ ｕｓｅｒｐ－ ｗｄ“））） 表单验证开始 用户名或密码没有填写 ｉｆ ｕｓｅｒｎａｍｅ＝ 。ｏｒ ｕｓｅｒｐｗｄ＝。。ｔｈｅｎ 给出提示，并返回到前一页 ｒｅｓｐｏｎｓｅ，ｗｒｉｔｅ ＜ｓｃｒｉｐｔ＞ａｌｅｒｔ（ 请输入用户名和密 码！ ）；ｈｉｓｔｏｒｙ．ｂａｃｋ（）；＜／ｓｃｒｉｐｔ＞’ ｒｅｓｐＯｎｓｅ．ｅｎｄ ｅｎｄ Ｉｆ 输入的验证码为空 ……… …… …… … ・…， ……ｈＪ……¨ｔ ………… 实用第一 智慧密集 Ｉｆ Ｔｒｉｍ（ｒｅｑｕｅｓｔ．Ｆｏｒｍ（“ｃｏｄｅ”））＝ “Ｔｈｅｎ ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ ＜ｓｃｒｉｐｔ＞ａｌｅｒｔ（ 请输入验证码！ ｈｉｓｔｏｒｙ．ｂａｃｋ０；＜／ｓｃｒｉｐｔ＞‘ 。ｒｅｓｐｏｎｓｅ．Ｅｎｄ Ｅｎｄ ｉｆ 输入的验证码非数字 Ｉｆ ｎｏｔ ＩｓＮｕｍｅｒｉｃ（Ｒｅｑｕｅｓｔ．Ｆｏｒｍ（“ｃｏｄｅ”））Ｔｈｅｎ Ｒｅｓｐｏｎｓｅ，Ｗｒｉｔｅ ＜ｓｃｒｉｐｔ＞ａｌｅｒｔ（ 你输入的验证码为 非数字！ ）；ｈｉｓｔｏｒｙ．ｂａｃｋ０；＜／ｓｃｒｉｐｔ＞。 Ｒｅｓｐｏｎｓｅ．Ｅｎｄ Ｅｎｄ Ｉｆ 表单验证结束 Ｉｆ（ｉｎｔ（Ｓｅｓｓｉｏｎ（”ｐＳＮ ））＝ｉｎｔ（Ｒｅｑｕｅｓｔ．Ｆｏｒｍ（”ｃｏｄｅ“））） Ｔｈｅｎ 建立ＲｅｃｏｒｄＳｅｔ对象 Ｓｅｔ ＮＡｒｓ＝Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ Ａｄｏｄｂ．Ｒｅｃｏｒｄ— Ｓｅｔ ） 从数据库中查找Ａｄｍｉｎ列的值为ｕｓｅｒ，ｐｗｄ列的 值为ｐａｓｓ的记录 ｓｑｌ＝ Ｓｅｌｅｃｔ ｆｒＯｍ ｕｓｅｒ ｗｈｅｒｅ ｕｓｅｒｎａｍｅ＝ 。＆ ｕｓｅｒｎａｍｅ＆ ａｎｄ ｐａｓｓｗｏｒｄ＝ ‘＆ｕｓｅｒｐｗｄ＆ “ 执行查询操作，并将结果保存在ＮＡｒｓ中 ＮＡｒｓ．ｏｐｅｎ ｓｑｌ，ｄｂ，１ Ｉｆ Ｎｏｔ（ＮＡｒｓ．ｂｏｆ ａｎｄ ＮＡｒｓ．ｅｏｆ）Ｔｈｅｎ 用户存在 Ｉｆ ＮＡｒｓ（ ｕｓｅｒｓｔａｔｅ ）＝１ Ｔｈｅｎ 且未被冻结则登录成功 ｉｆ ＮＡｒｓ（”ｕｓｅｒｔｙｐｅ”）＝Ｏ Ｔｈｅｎ ｓｅｓｓｉｏｎ（”ｕｓｅｒｔｙｐｅ“）＝Ｏ Ｓｅｓｓｉｏｎ（“Ｐａｓｓｅｄ“）＝Ｔｒｕｅ Ｓｅｓｓｉｏｎ（ ｏｐｅｒａｔｏｒ“）＝ＮＡｒｓ（”ｕｓｅｒｎａｍｅ ） 把操作员的名字存放到ｓｅｓｓｉｏｎ中 Ｒｅｓｐｏｎｓｅ．Ｒｅｄｉｒｅｃｔ ．．／ｏｐｅｒａｔｏｒ／ｏｐｅｒａ— ｔｏｔ＿ｍｅｎｕ．ａｓｐ 页面转到留言管理界面 ｒｅｓｐｏｎｓｅ．ｅｘｐｉｒｅｓ＝３ 设置登录页面立即失效 ｅｌｓｅｉｆ ＮＡｒｓ（ ｕｓｅｒｔｙｐｅ“）＝１ Ｔｈｅｎ ｓｅｓｓｉｏｎ（ ｕｓｅｒｔｙｐｅ ）＝１ Ｓｅｓｓｉｏｎ（ Ｐａｓｓｅｄ“ｌ＝Ｔｒｕｅ ｓｅｓｓｉｏｎ（“ｉｄ“）＝ＮＡｒｓ（“ｉｄ ） 将用户ＩＤ保存到Ｓｅｓｓｉｏｎ中，便于修改密码 Ｓｅｓｓｉｏｎ（ ｕｓｅｒｎａｍｅ ）＝ＮＡｒｓ（“ｕｓｅｒｎａｍｅ”） Ｒｅｓｐｏｎｓｅ．Ｒｅｄｉｒｅｃｔ ．．／ｓｕｐｅｒ＿ｕｓｅｒ／ｓｕ— ｐｅｒｍｅｎｕ．ａｓｐ” ｒｅｓｐｏｎｓｅ．ｅｘｐｉｒｅｓ＝３ 设置登录页面立即失效 Ｅｌｓｅ ｓｅｓｓｉｏｎ（ ｕｓｅｒｔｙｐｅ ）＝２ Ｓｅｓｓｉｏｎ（ Ｐａｓｓｅｄ ）＝Ｔｒｕｅ ｓｅｓｓｉｏｎ（ ｉｄ ）＝ＮＡｒｓ（ ｉｄ”） 将用户ｌＤ保存到Ｓｅｓｓｉｏｎ中，便于修改密码 Ｓｅｓｓｉｏｎ（“ｕｓｅｒｎａｍｅ ）＝ＮＡｒｓ（ ｕｓｅｒｎａｍｅ”） ｓｅｓｓｉｏｎ（“ｄｅｐａｒｔ ）＝ＮＡｒｓ（ ｄｅｐａｒｔ ） 将用户所属 部门存入ｓｅｓｓｉｏｎ，只显示本部门的设备 Ｒｅｓｐｏｎｓｅ．Ｒｅｄｉｒｅｃｔ ．．／ｕｓｅｄｕｓｅＬｍｅｎｕ．ａｓｐ” ：４０ ／； Ｉ函 鑫与簟 ｒｅｓｐｏｎｓｅ．ｅｘｐｉｒｅｓ＝３ 设置登录页面立即失效 ｅｎｄ Ｉｆ Ｅｌｓｅ Ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ（“＜ｓｃｒｉｐｔ＞ａｌｅｒｔ（ 登录失败！、ｎ 原因可能是下列任意一个：＼ｎ您输入的用户已经被冻结ｌ＼ｎ您输 入的用户不存在！＼ｎ密码错误！＼ｎ验证码错误！ ）；ｈｉｓｔｏｒｙ．ｂａｃｋ （）＜／ｓｃｒｉｐｔ＞ ） Ｒｅｓｐｏｎｓｅ．Ｅｎｄ ＮＡｒｓ．Ｃｌｏｓｅ 关闭ＲｅｃｏｒｄＳｅｔ对象 Ｓｅｔ ＮＡｒｓ＝ｎｏｔｈｉｎｇ Ｅｎｄ ｉｆ Ｅｌｓｅ 不存在满足条件的记录，给出提示，返回到前一页 Ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ（”＜ｓｃｒｉｐｔ＞ａｌｅｒｔ（ 登录失败！＼ｎ原因 可能是下列任意一个：＼ｎ您输入的用户不存在！＼ｎ您输入的用户 已经被冻结！ｋｎ密码错误！＼ｎ验证码错误！ ）；ｈｉｓｔｏｒｙ．ｂａｃｋ（）＜／ ｓｃｒｉｐｔ＞“） Ｒｅｓｐｏｎｓｅ．Ｅｎｄ ＮＡｒｓ．Ｃｌｏｓｅ 关闭ＲｅｃｏｒｄＳｅｔ对象 Ｓｅｔ ＮＡｒｓ＝ｎｏｔｈｉｎｇ Ｅｎｄ Ｉｆ Ｅｎｄ Ｉｆ Ｅｎｄ Ｉｆ Ｅｎｄ Ｉｆ 登录界面效果如图３。 图３ ４．３限制普通用户权限 为了系统安全，不仅要使用登录验证文件ｌｏｇｉｎ．ａｓｐ防止未 登录用户访问某些网页，还要防止已登录用户访问权限之外的 网页，因此如何限制普通用户的权限是一个平常重要的问题。 本系统实现方法如下： 本系统用户分为管理员、超级用户、一般用户３类，并为 每类用户编写一套应用程序。当用户登录后会自动转向相应的 程序页面。为了防止已登录用户访问权限之外的网页，在每个 网页要加上用户类别判断语句。 ＦＯＲＵ啊 例如：指定管理员的用户类￣Ｊ１］－ｕｓｅｒｔｙｐｅ－－Ｏ，则在管理员 操作的每个页面加类别判断语句，具体代码如下： Ｉｆ ＮＡｒｓ（”ｕｓｅｒｔｙｐｅ“）＝０ Ｔｈｅｎ ＥＩｓｅ Ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ（ ＜ｓｃｒｉｐｔ＞ａｌｅｒｔ（ 您没有相关权限！ ）；ｈｉｓ— ｔｏｒｙ．ｂａｃｋＯ＜／ｓｃｒｉｐｔ＞。） ｒｅｓｐｏｎｓｅ．ｅｎｄ Ｅｎｄ Ｉｆ ４．４用户数据库的设计 要在数据库用户表ＵＳＥＲ中，添加用户类另ＩＪ字段ｕｓｅｒｔｙｐｅ、 用户状态字段ｕｓｅｒｓｔａｔｅ如图４。 图４ 具体的用户管理界面如图５。 ■ 扪她 鼢 艟髑 接 隅≈ 榈Ｐ 诗活葡 ２ 彗葭誊码 广 ｌｉｕ 协女趣 用ｆ口 诗活 ２￣－２５ 疆 涨Ｐ Ｉ＿＝Ｉ ｚｚｚ 中心办公 一艘用户 薏活 ２００８。２－９鳖塑坚 ｆ．＿ Ｉ鞣体骞 一般用Ｐ 强浯 ２００８—２—５量墨董坚 广缆 图５ 实现冻结用户的代码如下： ＜％ ｝ｆ ｓｅｓｓｉｏｎ（”Ｐａｓｓｅｄ”）＝Ｔｒｕｅ Ｔｈｅｎ Ｉｆ ＮＡｒｓ（。ｕｓｅｒｔｙｐｅ”ｌ－０ Ｔｈｅｎ ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ（…‘＆ｓｅｓｓｉｏｎ（。ｕｓｅｒｎａｍｅ ）＆ ，登陆成功｛＜ ｃｅｎｔｅｒ＞ ｝ ％＞ ＜％ Ｄｉｍ ＩＤ ＩＤ＝Ｒｅｑｕｅｓｔ．ＱｕｅｒｙＳｔｒｉｎｇ（。ｌＤ ） ｓｔｒＳｑｌ＝ Ｓｅｌｅｃｔ Ｆｒｏｍ ｕｓｅｒ ｗｈｅｒｅ ＩＤ＝ ＆ＩＤ＆“ ‘ Ｓｅｔ ｒｓ＝ｄｂ．Ｅｘｅｃｕｔｅ（ｓｔｒＳｑ１） Ｉｆ Ｎｏｔ Ｉｓｅｍｐｔｙ（Ｒｅｑｕｅｓｔ（ ｓａｖｅ。））Ｔｈｅｎ ｕｓｅｒ＿ｔｙｐｅ＝Ｒｅｑｕｅｓｔ．Ｆｏｒｍ（¨ｕｓｅｒ ｔｙｐｅ。ｌ ｕｓｅｒ＿ｄｅｐａｒｔ＝Ｒｅｑｕｅｓｔ．Ｆｏｒｍ（”ｕｓｅｒ＿ｄｅｐａｒｔ。） ｕｓｅｒｓｔａｔｅ＝Ｒｅｑｕｅｓｔ．ＦＯｒｍ《“ｕｓｅｒｓｔａｔｅ。） ｅｎｄ ｉｆ ％＞ ＜ｈｅａｄ＞ ＜ｍｅｔａ ｈｔｔｐ—ｅｑｕｉｖ＝ Ｃｏｎｔｅｎｔ－Ｔｙｐｅ”ｃｏｎｔｅｎｔ：“ｔｅｘｔ／ｈｔｍ ｃｈａｒｓｅｔ＝ｇｂ２３１ ２”／＞ ＜ｔｉｔｌｅ＞用户信息修改＜／ｔｉｔｌｅ＞ ＜ｓｔｙｌｅ ｔｙｐｅ＝。ｔｅｘｔ／ｃｓｓ“＞ ＜！一一 ，ＳＴＹＬＥ２｛ｆｏｎｔ—ｓｉｚｅ：９ｐｔ｝ 一一＞ ＜／ｓｔｙｌｅ＞ ＜／ｈｅａｄ＞ ＜ｂｏｄｙ＞ ＜ｈ２ ａｌｉｇｎ＝ｃｅｎｔｅｒ＞）￣户信息修改＜／ｈ２＞ ＜ｆｏｒｍ ｎａｍｅ＝ ｆ０ｒｍ１ ｍｅｔｈｏｄ＝“ｐｏｓｔ ａｃｔｉｏｎ＝“＞ ＜ｔａｂｌｅ ｗｉｄｔｈ＝“４５２’‘ｂｏｒｄｅｒ＝”０ ａｌｉｇｎ＝ ｃｅｎｔｅｒ ｃｅｌｌｐａｄｄｉｎｇ＝ ０ ｃｅｌｌｓｐａｃｉｎｇ＝ ０“＞ ＜ｔｒ＞ ＜ｔｄ ｗｉｄｔｈ＝ ４２０“ｂｇｃｏｌｏｒ＝。＃５６６ＣＤＢ“＞＜ｉｍｇ ｓｒｃ＝ ．．／ｉｍ— ａｇｅｓ／ＤｉｓｐＳｔａｔｉ０ｎ—Ｈ．ｇ ｗｉｄｔｈ＝。１ １“ｈｅｉｇｈｔ＝’２４‘／＞￣／Ｊ１］用户＜／ ｔｄ＞ ＜／ｔｒ＞ ＜，ｔａｂｌｅ＞ ＜ｔａｂｌｅ ｗｉｄｔｈ＝。４５２ ｂｏｒｄｅｒ＝。０。ａｌｉｇｎ＝ ｃｅｎｔｅｒ‘ｃｅｌｌｐａｄｄｉｎｇ＝” ０ ｃｅｌｌｓｐａｃｉｎｇ＝ ０“＞ ＜ｔｒ＞ ＜ｔｄ ｗｉｄｔｈ＝ ８３ ａｌｉｇｎ＝ ｒｉｇｈｔ ｂｇｃｏｌｏｒ＝ ＃Ｅ ｌ Ｆ５ＦＦ ｓｔｙｌｅ＝。 ｂｏｒｄｅｒ：＃９９ｃｃｆｆ １ ｐｘ ｓｏｌｉｄ ＞＜ｓｐａｎ ｃｌａｓｓ＝。ＳＴＹＬＥ２ ＞用户名：＜ ／ｓｐａｎ＞＜Ａｄ＞ ＜ｔｄ ｗｉｄｔｈ＝ ３６３ ｓｔｙｌｅ＝ ｂｏｒｄｅｒ：＃９９ｃｃｆｆ １ｐｘ ｓｏｌｉｄ ＞＜％＝ ｒｓ（。ｕｓｅｒｎａｍｅ’）％＞＜，ｔｄ＞ ＜／ｔｒ＞ ＜ｔｒ＞ ＜ｔｄ ａｌｉｇｎ： ｒｉｇｈｔ ｂｇｃｏｌｏｒ＝“＃Ｅ ｌ Ｆ５ＦＦ。ｓｔｙｌｅ；“ｂｏｒｄｅｒ： ＃９９ｃｃｆｆ １ ｐｘ ｓｏｌｉｄ ＞＜ｓｐａｎ ｃｌａｓｓ＝“ＳＴＹＬＥ２。＞类型：＜／ｓｐａｎ＞＜／ ｔｄ＞ ＜ｔｄ ｓｔｙｌｅ＝。ｂｏｒｄｅｒ：＃９９ｃｃ什１ ｐｘ ｓｏｌｉｄ ＞ ＜ｓｅｌｅｃｔ ｎａｍｅ＝“ｕｓｅＬｔｙｐｅ’＞ ＜ｏｐｔｉｏｎ ｖａｌｕｅ＝１＜％Ｉｆ ｒｓ（ ｕｓｅｒｔｙｐｅ。）＝１ Ｔｈｅｎ Ｒｅ－ ｓｐｏｎｓｅ．Ｗｒｉｔｅ‘Ｓｅｌｅｃｔｅｄ ％＞＞超级用户＜／ａ＞ ＜ｏｐｔｉｏｎ ｖａｌｕｅ：２＜％Ｉｆ ｒｓ（。ｕｓｅｒｔｙｐｅ ）＝２ Ｔｈｅｎ Ｒｅ－ ｓｐｏｎｓｅ．Ｗｒｉｔｅ。Ｓｅｌｅｃｔｅｄ。％＞＞一般用户＜，ａ＞ ＜／ｓｅｌｅｃｔ＞ ＜ｓｐａｎ ｃｌａｓｓ＝，ＳＴＹＬＥ２ ＞ 请选择用户类型＜／ｓｐａｎ＞＜ ／ｔｄ＞ ＜／ｔｒ＞ ＜ｔｒ＞ ＜ｔｄ ａｌｉｇｎ＝ ｒｉｇｈｔ ｂｇｃｏｌｏｒ＝“＃Ｅｌ Ｆ５ＦＦ ｓｔｙｌｅ： ｂｏｒｄｅｒ： ＃９９ｃｃｆｆ １ ｐｘ ｓｏｌｉｄ ＞＜ｓｐａｎ ｃｌａｓｓ＝ ＳＴＹＬＥ２。＞部门：＜／ｓｐａｎ＞＜， ｔｄ＞ ＜ｔｄ ｓｔｙｌｅ＝。ｂｏｒｄｅｒ：＃９９ｃｃｆｆ １ ｐｘ ｓｏｌｉｄ。＞＜ｓｐａｎ ｃｌａｓｓ＝。 ＳＴＹＬＥ２‘＞ ＜ｓｅｌｅｃｔ ｎａｍｅ＝。ｕｓｅｒ＿ｄｅｐａｒｔ，＞ ＜ｏｐｔｉｏｎ ｖａｌｕｅ＝“网络部 ＜％｝ｆ ｒｓ（”ｄｅｐａ￣。）：。 ‘＿ 、 实用第 一 网络部 ｔｈｅｎ％＞ｓｅｌｅｃｔｅｄ＜％ｅｎｄ ｉｆ％＞＞网络部＜／ｏｐｔｉｏｎ＞ ＜ｏｐｔｉｏｎ ｖａｌｕｅ＝ 公共机房”＜％＿ｆ ｒｓ（”ｄｅｐａｒｔ ） ＝。公共机房“ｔｈｅｎ％＞ｓｅｌｅｃｔｅｄ＜％ｅｎｄ ｉｆ％＞＞公共机房＜／ｏｐ． ｔｉｏｎ＞ ＜ｏｐｔｉｏｎ ｖａｌｕｅ＝ 三维培训 ＜％Ｉｆ ｒｓ（，ｄｅ ｐａｒｔ ） 三维培训。ｔｈｅｎ％＞ｓｅｌｅｃｔｅｄ＜％ ｅｎｄ ｉｆ％＞＞三维培训＜／ｏｐ－ ｔ￣ｏｎ＞ ＜ｏｐｔｉｏｎ ｖａｌｕｅ＝“多媒体部“＜％ｉｆ ｒｓ（“ｄｅｐａｒｔ ）＝”多媒体 部 ｔｈｅｎ％＞ｓｅｌｅｃｔｅｄ＜％ｅｎｄ Ｉｆ％＞＞多媒体部＜／ｏｐｔｉｏｎ＞ ＜ｏｐｔｉｏｎ ｖａｌｕｅ＝，电教部’＜％＿ｆ『ｓ（“ｄｅｐａｒｔ“）＝“电教部。 ｔｈｅｎ％＞ｓｅｌｅｃｔｅｄ＜％ｅｎｄ＿ｆ％＞＞电教部＜／ｏｌｐｔｉｏｎ＞ ＜ｏｐｔｉｏｎ ｖａｌｕｅ＝ 中心办公“＜％讳ｒｓ（“ｄｅｐａｒｔ“）＝“中心办 公。ｔｈｅｎ％＞ｓｅｌｅｃｔｅｄ＜％ｅｎｄ ｉｆ％＞＞中心办￣＜／ｏｐｔｉｏｎ＞ ＜Ｉｓｅｌｅｃｔ＞ 请选择用户所属部ｌ＇１＜／ｓｐａｎ＞＜／ｔｄ＞ ＜／ｔｒ＞ ＜ｔｒ＞ ＜ｔｄ ａｌｉｇｎ＝ ｒｉｇｈｔ“ｂｇｃｏｌｏｒ＝“舟Ｅ１ ＦＳＦＦ ｓｔｙｌｅ＝ ｂｏｒｄｅｒ： ＃９９ｃｃｆｆ １ｐｘ ｓｏｌｉｄ ＞＜ｓｐａｎ ｃｌａｓｓ＝ ＳＴＹＬＥ２ ＞帐号激活：＜／ ｓｐａｎ＞＜／ｔｄ＞ ＜ｔｄ ｓｔｙｌｅ＝。ｂｏｒｄｅｒ：＃９９ｃｃｆｆ １ ｐｘ ｓｏｉｌｄ“＞ ＜ｓｐａｎ ｃｌａｓｓ＝ ＳＴＹＬＥ２“＞ ＜ｉｎｐｕｔ ｔｙｐｅ＝”ｒａｄｉｏ ｎａｍｅ＝ ｕｓｅｒ＿ｓｔａｔｅ‘ｖａｌｕｅ＝１ｌ＜％ ＿ｆ ｒｓ（”ｕｓｅｒｓｔａｔｅ ）＝ ｔｈｅｎ ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ（ ｃｈｅｃｋｅｄ ）％＞＞ 激活 ＜ｉ÷ｎｐｕｔ ｔｙｐｅ＝ ｒａｄｉｏ ｎａｍｅ＝ ｕｓｅｒ＿ｓｔａｔｅ ｖａｌｕｅ＝０＜％ｉｆ ｒｓ（。ｕｓｅｒｓｔａｔｅ。）＝０ ｔｈｅｎ ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ（ ｃｈｅｃｋｅｄ ）％＞＞ 冻结＜Ｉｓ．ｐａｎ＞＜／ｔｄ＞ ＜／ｔｒ＞ ＜ｔｒ ａｌｉｇｎ＝ ｃｅｎｔｅｒ ＞ ＜ｔｄ ｃｏｌｓｐａｎ＝。２。＞＆ｎｂｓｐ；＜／ｔｄ＞ ＜／ｔｒ＞ ＜ｔｒ ａｌｉｇｎ＝。ｃｅｎｔｅｒ ＞ ＜ｔｄ ｃｏｌｓｐａｎ＝。２。＞ ＜！一一在单击时验证一一＞ ＜ｉｎｐｕｔ ｔｙｐｅ＝。ｓｕｂｍｉｔ ｎａｍｅ＝ ｓａｖｅ ｖａｌｕｅ＝“保存“＞ ＜／ ｔｒ＞ ＜％ ｉｆ ｕｓｅＬｔｙｐｅ＜＞ ａｎｄ ｕｓｅｒ＝ｄｅｐａｒｔ＜＞“ａｎｄ ＵＳ— ｅｒ＿ｓｔａｔｅ＜＞“”ｔｈｅｎ ｉｆ ｕｓｅｒ ｓｔａｔｅ＝１ ｔｈｅｎ ｓｔｒ．ｕｐ＝ ｕｐｄａｔｅ ｕｓｅｒ ｓｅｔ ｕｓｅｒｔｙｐｅ＝ｃｉｎｔ（” ＆ｕｓｅｒ＿Ｗｐｅ＆。），ｄｅｐａｒｔ＝ ＆ｕｓｅｒ—ｄｅｐａｒｔ＆。 。ｕｓｅｒｓｔａｔｅ＝１ ｗｈｅｒｅ ｉｄ： ＆｝Ｄ＆ ｅｌｓｅ ｓｔｒ＿ｕｐ＝ ｕｐｄａｔｅ ＵＳｅｒ ｓｅｔ ｕｓｅｒｔｙｐｅ＝ｃｉｎｔ（“ ＆ｕｓｅＬｔｙｐｅ＆。），ｄｅｐａｒｔ＝ ＆ｕｓｅｒ＿ｄｅｐａｒｔ＆， ，ｕｓｅｒｓｔａｔｅ＝Ｏ ｗｈｅｒｅ ｉｄ＝ ＆ＩＤ＆… ｅｎｄ．ｆ ｓｅｔ ｒｓ＝ｄｂ．ｅｘｅｃｕｔｅ（ｓｔｒ＿ｕｐ） ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ （“ ＜ｓｃｒｉｐｔ ｌａｎｇｕａｇｅ ＝ ＂ｊａｖａｓｃｒｉｐｔ ＞ａｌｅｒｔ（ 用户信息修改成功ｌ ）；ｗｉｎｄｏｗ．Ｉｏｃａｔｉｏｎ．ｈｒｅｆ＝ ２ｏ １ ０越． ９ ｌ二＿ 技巧 鹣 … 智 ……………… ……………………………………ｅ慧密集 ｕｓｅｒ＿ｌｉｓｔ．ａｓｐ ：＜／ｓｃｒｉｐｔ＞ ） ｅｎｄ－ｆ ％＞ ＜／ｔａｂｌｅ＞ ＜／ｆｏｒｍ＞ ＜／ｂｏｄｙ＞ ＜／ｈｔｍＩ＞ ＜％ Ｅｌｓｅ Ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ（。＜ｓｃｒｉｐｔ＞ａｌｅｒｔ（ 您没有相关权限！ ）： ｈｉｓｔｏｒｙ．ｂａｃｋＯ＜／ｓｃｒｉｐｔ＞”） ｒｅｓｐｏｎｓｅ．ｅｎｄ Ｅｎｄ Ｉｆ ＮＡｒｓ．ｃｌｏｓｅ Ｓｅｔ ＮＡｒｓ＝Ｎｏｔｈｉｎｇ ｄｂ．ｃｌｏｓｅ Ｅｎｄ ％＞ 效果如图６所示。 用尸名：ｚｚｚ ：类型：Ｉ， 一般用户 ￥诗选择用尸类型 …一Ｉ… 部门：Ｉ中心办公习 请选择用户所属部门 ～… 一’’－…………一’ ’帐号戳活： ｛：＿激活ｒ冻结 图６ ５数据库安全 由于Ａｃｃｅｓｓ数据库容易被人直接修改．所以要考虑数据 库的安全问题。有许多人认为给数据库加上密码，但效果不 大，因为破解的软件比比皆是，如图７所示。 图７ …… ＦＯＲＵ啊 ………… …………………………………… ……………………… ……… ……… ………… 其实最关键的是防下载、防暴库和防ＳＱＬ注入ｌ这对于 数据库安全是最重要的。 那么基本措施有３个： （１）将数据库放到网站根目录以外防止下载。 例如： 网站根目录为： ｘ：＼ｗｗｗ＼ｗｅｂ 则数据库的目录应设置为： ｘ：＼ｗｗｗ＼ｄａｔａ （２）在数据库里链接文件里加上一句ＯＮ ＥＲＲＯＲ ＲＥ— ＳＵＭＥ ＮＥＸＴ防止暴库．并把相对路径改为绝对路径。 那么数据库链接代码如下： ＜％ ｏｎ ｅｒｒｏｒ ｒｅｓｕｍｅ ｎｅｘｔ ｄｉｍ ｄｂ ｓｅｔ ｄｂ＝ｓｅｒｖｅｒ．ｃｒｅａｔｅｏｂｊｅｃｔ（ ＡＤＯＤＢ．ＣＯＮＮＥＣＴＩＯＮ Ｊ ｄｂ．ｏｐｅｎ “ＤＢＱ＝ｘ：＼ｗｗｗ＼ｄａｔａｋｘｘ．ｍｄｂ；ＤＲＩＶＥＲ＝（Ｍｉ— ｃｒｏｓｏｆｔ Ａｃｃｅｓｓ Ｄｒｉｖｅｒ（ ．ｍｄｂ））：“ ％＞ （３）要防止ＳＱＬ语句注入，可以编写一个字符过滤函数， 供其他页面调用。函数代码如下： ＜％ Ｆｕｎｃｔｉｏｎ ｍｙＲｅｐｌａｃｅ（ｍｙＳｔｒｉｎｇ） ｍｙＳｔｒｉｎｇ＝Ｒｅｐｌａｃｅ（ｍｙＳｔｒｉｎｇ，＂＆ ， ＆ａｒａｐ； ） 替换＆为字符实体＆ａｍｐ； ｍｙＳｔｒｉｎｇ＝Ｒｅｐｌａｃｅ（ｍｙＳｔｒｉｎｇ，＂＜‘，”＆Ｉｔ＝¨） 替换＜为字符实体＆ｆｔ ｍｙＳｔｒｉｎｇ＝Ｒｅｐｌａｃｅ（ｍｙＳｔｒｉｎｇ，＂＞ ，“＆ｇｔ：“） 替换＞为字符实体＆ｇｔ： ｍｙＳｔｒｉｎｇ＝Ｒｅｐｌａｃｅ（ｍｙＳｔｒｉｎｇ，ｃｈｒ（１ ３）， ＜ｂｒ＞ ） 替换回车符为换行标记＜ｂｒ＞ ｍｙＳｔｒｉｎｇ＝Ｒｅｐｌａｃｅ（ｍｙＳｔｒｉｎｇ，ｃｈｒ（３２），“＆ｎｂｓｐ：“Ｊ 替换空格符为字符实体＆ｎｂｓｐ； ｍｙＳｔｒｉｎｇ＝Ｒｅｐｌａｃｅ（ｍｙＳｔｒｉｎｇ，ｃｈｒ（９）ＪＨ＆ｎｂｓｐ；＆ｎｂｓｐ；＆ｎｂ－ ｓｐ；＆ｎｂｓｐ； ） 替换Ｔａｂ缩进符为 ｍｙＳｔｒｉｎｇ＝Ｒｅｐｌａｃｅ（ｍｙＳｔｒｉｎｇ，ｃｈｒ（３９Ｌ”＆ａｃｕｔｅ；。） 替换单引号为字符实体＆ａｃｕｔｅ； ｍｙＳｔｒｉｎｇ＝Ｒｅｐｌａｃｅ（ｍｙＳｔｒｉｎｇ，ｃｈｒ（３４），＂＆ｑｕｏｔ； ） 替换双弓１号为字符实体＆ｑｕｏｔ； ｍｙＲｅｐｌａｃｅ＝ｍｙＳｔｒｉｎｇ 返回函数值 Ｅｎｄ Ｆｕｎｃｔｉｏｎ ％＞ ６系统主界面 本系统基于Ｗｅｂ浏览器，操作维护都很方便。由于不同 的用户登录后的界面不同，以管理员登录后的界面为例，如图 ８所示，可以很方便地对设备信息维护、设备查询、用户信息 维护等模块进行操作。 图８ ７ 结语 本系统是结合学院的设备管理的要求基于ＣＲＭ模式进行 开发的，整个系统具有良好的实用性、扩展性、可靠性和稳定 性。已经在各个系部门使用，由于是基于Ｗｅｂ，在使用推广上 都很方便，只需要用户会基本的网页操作即可。该系统投入使 用后提高了学院管理信息化水平，增强了设备管理的透明度， 具有较好的通用性和推广利用的价值。 参考文献 『１１顼字峰，马军编著．ＡＳＰ网络编程从入门到精通．清华大学 出版社．２００６． ［２］尚俊杰，秦卫中著．网络程序设计ＡＳＰ案例教程．清华大学 出版社．２０ｏ５． 『３］求是科技编著．ＡＳＰ开发ＣＲＭ系统实例导航．人民邮电出版 社．２００５． ≥ 快乐英语，有问必应 微软必应推出必应词典，提供中英文翻译搜索服务２ 氮 近１３，微软ＭＳＮ宣布，为了给中国用户提供更好的搜Ｉ｛ 索体验，实现“快乐搜索，有问必应”，同时也为了方便中≥ 国用户更加直接的在搜索过程中学习英语，微软必应 （Ｂｉｎｇ）于４月７日起正式推出融合了微软亚洲研究院英库 （Ｅｎｇｋｏｏ）创新技术的中英文垂直翻译搜索服务，即必应首 页和搜索页面中的“必应词典”功能。中英文翻译垂直服务《 融合了英库强大的翻译功能和创新技术，让用户可以在搜索 和中英文翻译之间进行无障碍切换。全面的整合了必应和英 库的技术和功能特点，当用户搜索目标检索词时，不但可以 在结果页中找到与之相对应的网页、视频、图片或地图等信 息，还可以同时查询与该检索词相对应的最地道的中英文翻 译，真正做到快乐搜索，有问必应。 石＾ 二；ｖ ； 蜀三石 ． ！ 石 ； ＝； 石 ． ：石＾． 。 ‘ ‘ ．