张晨

摘要：该文设计了一种基于BS模式的环境参数监测系统，可以有效地提高环境参数监测工作效率，降低数据出错的概率。该文给出了系统的总体设计方案和具体实施步骤，并介绍了系统中几个重要模块的设计和实现。

关键词：BS；环境监测

中图分类号：TP311 文献标识码：A 文章编号：1009-3044（2015）17-0085-02

本文设计了一种基于 BS模式的环境参数监测系统，可以有效地提高环境参数监测工作效率，并且方便以后对历史数据的查询，为环境保护部门提供一套比较科学的、规范的、实用性强的环境信息管理与决策系统。此系统可以对环境参数监测数据进行查看与分析，实现对环境参数监测数据管理的科学指导和宏观监测，使得对环境的监测更加及时、高效，提高环境监测。

本系统主要采用 ASP、VBScript、SQL Server 等技术构建。 系统实现的功能主要包括：环境参数实时监测、监测点状态监测、历史数据查询、报警查询、阈值设置、信息发布等功能。该系统人机界面友好，完善的自定义数据查询界面及系统信息维护功能；具有完善数据分析和统计功能。

1 系统总体设计

本系统采用 B/S 结构，系统总体结构如图 1 所示。

<系统用户分为普通用户和管理员两类，普通用户是指各县区用户，管理员是指市物价局用户。 两类不同的用户登录系统后，将进入不同的页面。普通用户页面包括的功能模块有：系统说明、环境参数、环境监测、和法律法规等。管理员页面包括的功能模块有：系统说明、环境参数、环境监测、阈值设置、警示内容设置、密码修改、用户管理和法律法规等。

2 系统主要功能模块

2.1 用户登录模块

该模块主要完成用户的登录。 用户登录流程图如图 3所示。

实现代码如下：

<% choose=request.Form（"R1"）

if choose="manage" then

userid=request.Form（"userid"）

pwd=Request.Form（"pwd"）

if userid="" then

errmsg="请输入用户名！"

else

dim sql sql="select * from username where username='"& userid &"'"

set rs=server.CreateObject（"adodb.recordset"）

rs.Open sql，StrConn

If rs.EOF Then

errmsg="用户名不存在！请重新输入！"

else

if pwd<>trim（rs.fields（"pwd"）） then

errmsg="密码不正确！请重新输入！"

else

session（"passed"）=true response.Cookies（"userid"）=trim（rs.fields（"username"））

Response.Redirect（"admin.asp"）

end if

end if

end if

end if

%>

2.2 环境监测模块

环境监测页面是监测系统最重要的功能模块，监测界面如图4所示，主要包括实时监测、历史数据查询、报警查询、信息发布等功能。

本文以历史数据查询为例说明，该模块功能主要是查询统计出用户所选择的某一天、周、月的环境监测历史数据记录，在本功能模块中又嵌套了按监测点位置，监测参数类型来查询，即可以根据用户所选的监测点位置，参数类型（温度、湿度等）来查询各监测点的历史数据记录。显示出距当前时间最近的历史监测数据。如图5所示。

2.3 阈值设置

由于不同环境的具体监测参数范围有所不同，所以管理员可以通过修改参数上限或下限等数值来监测环境和报警，如图6所示。

2.4 监测点状态监测

该功能模块对监测点工作状态进行实时监测，监测点出现故障，则进行故障报警警示管理员，同时可以通过手机信息提示管理员，管理员登录监测点状态监测页面查看各个监测点状态，找出存在故障的监测节点，并及时的进行维护，确保系统能正常运行。点击系统主界面中的“监测点状态”，进入故障监测界面。如图7所示。

3 系统实现和开发工具

系统采用 B/S 结构数据库采用SQL Server2005 开发环境采用 Macromedia Dreamweaver 8，开发语言采用 ASP、VBScript和javaScript。

4 结束语

本环境参数监测系统目前已投入实际使用。 实际运行结果表明，使用该系统可以有效的提高环境参数监测工作效率，降低数据出错的概率。系统具有一定的实际应用价值。

参考文献：

[1] 石志国， 李颖， 薛为民. ASP 程序设计[M]. 北京： 清华大学出版社， 2005.

[2] 丁宝康， 董健全. 数据库实用教程[M]. 北京： 清华大学出版社， 2001.