图5中ADMIN_PASSWORD为管理员密码字段,采用MD5加密方法；ADMIN_LEVEL为管理员类型,其值分别对应:0-super超级管理员；1-vice副管理员；2-comm普通管理员；ADMIN_AUTHEN记录了管理员在各个模块的权限功能。

图6为报名类别数据表。

图6. 报名类别数据表

图6中JOIN_ID为报名类别表的关键字ID,JOIN_NAME为报名名称,如:2010年公务员考试、2011年大学英语四、六级考试等。

图7为数据项定义表。

图7. 数据项定义表

图7中JOIN_COLUMNI_D为自动编号的关键字,其为数值型递增且无重复。这个字段记录的是报名类别的识别ID、JOIN_COLUMN_JOINI。D为具体数据项的ID,若多个数据项的ID相同,则表示它们对应同一个父ID索引,即同一个报名项。一个报名项由若干个子 ID数据项组成, 如籍贯、学历 、政治面貌、联系方式等 。该数据表的设计解决了一个具体父报名项的子数据项个数可自由增减伸缩的维数问题 , 这种不改变数据表的字段数 ,仅仅指增加数据行数 , 势必是以最小的代价、 最高的效率解决了数据项 、报名项的自定义问题 ,真正地实现了通用性的特点。

四、具体实现

以下介绍自动生成 Flash分析图像部分的关键代码 .首先需要调用引用 Flash类库, <! --#include file= "/inc/Lib/Inc Lib Chart asp"-->, 然后结合 XML技术实现图像生成 , 函数的关键代码如下 :

Dim str Where str Temp

Dim in Size: int Size=11

Dim int Total

Int Total=0

'==获取 ID参数

If Not Get Post Id Value("intJoinId", "报 名项目 ", TAG_intJoinId) Then Exit Function

If Not Get Join Logic("ANDJOIN ID="＆TAG_intJoinId)Then Exit Function

Set TAG_obj Dic Unit Join = GBL_obj Pub DB.Get Rs One Row()

TAG_intYear=Fmt Form Data(Request("selY-ear"))

TAG_intMonth=Fmt Form Data(Request("sel-Month"))

TAG_intType=Fmt Form Data(Request("sel-Type"))

IfTAG_int Type="0"Then

'==年报

　Int Size=12

　TAG_int Width=600

　If TAG_int Year=""Then

　TAG_int Year=Year(Now())

End If

Str Where="ANDSIGN YEAR="＆ TAG_int Year＆ "ANDSIGN JOIN ID="＆ TAG in-tJoinId

Call Chart Year Logic(str Where)

Str Temp="temp"

While Not GBL_obj PubDB.obj PubRS.Eof

　Str Temp=str Temp＆ " "＆ GBL_objPub

DB.objPubRS("SIGN MONTH")＆ "月 ="＆GBLobjPubDB.objPubRS("TOTAL")

　GBLobjPubDB.objPubRS.MoveNext

Wend

Str Temp=Replace(str Temp, "temp ", "")

Str Temp=Replace(str Temp, "temp", "")

TAG str Chart Name=TAG int Year＆ "年 报名数据"

TAG str XML=WriteColumn3D("数据统计月份", "Data", str Temp, int Size)

TAG str XML Line=WriteLine2D("数据统计月份 ", "Data", str Temp, int Size)

TAG str XML Pie=WritePie2D("数据统计月份", "Data", str Temp, int Size)

Else

　'==月报

　intSize=11

　TAGintWidth=900

　IfTAG_intMonth=""OrTAG_int Year=""Then

　TAG_intYear=Year(Now())

　TAG_intMonth=Month(Now())

End If

Str Where="ANDSIGN YEAR="＆ TAG_intYear＆ "ANDSIGN MONTH="＆ TAG int-Month＆ "ANDSIGNJOIN ID="＆ TAG_intJoin-Id

Call Chart Month Logic(str Where, TAG_int-Month)

Str Temp="temp"

While Not GBL_obj Pub DB.objPubRS.Eof

　Str Temp=str Temp＆ " "＆ GBL_objPub-DB.objPubRS("SIGN DAY")＆ "日 ="＆ GBLobjPubDB.objPubRS("TOTAL")

GBLobjPubDB.objPubRS.MoveNext

Wend

Str Temp=Replace(str Temp, "temp ", "")

Str Temp=Replace(str Temp, "temp", "")

TAG str Chart Name=TAG int Year＆ "年 "＆TAG int Month＆ "月 报名数据"

TAG str XML=WriteColumn3D("数据统计日期", "Data", str Temp, int Size)

TAG str XMLLine=WriteLine2D("数据统计月份 ", "Data", strTemp, int Size)

TAG str XML Pie=WritePie2D("数据统计月份 ", "Data", str Temp, int Size)

End If

五、结语

中国企业网信息化正处于推进应用阶段，越来越多的企业从发展战略的高度对信息进行整体规划，认识到信息化的关键不是技术，而是管理和应用。如果仍然沿用传统的管理模式，显然不利于企业的长期发展。所以企业信息化必须进行科学、系统的规划，这而且必须和公司的发展战略结合起来。现代信息技术的应用领域和方向越来越广，不论在哪个环节，信息化都占有重要地位。可以说，信息化俨然已经成为一个企业发展与管理水平的标志，它关系企业生存和发展，具有牵一发而动全身的作用。理性规划对信息化成功的重要性不言而喻，所以企业需要在自身发展战略目标的指导下，结合具体需求，对信息化目标和内容进行全面而系统的规划。信息化给企业带来更多的效益，从而也推动着国家经济的持续增长，既而带动各个产业的升级和不断提高竞争力。

本文设计的网上报名管理系统经过测试投入运行后,能满足多个报名项、几万人同时进行网上报名的需求,具有通用、稳定、高效、方便的特点。由于后台有数据的分析统计并自动生成饼图、折线图等,还能导出Excel报表或名单,自由设置报名项和数据项等强大实用的功能,加之数据库的选型为中大型数据库MSSQL,从而极大地减轻了管理人员的工作量,提高了工作效率,使网上报名工作的管理变得简单、快捷、先进。虽然报名系统已经处于运行阶段，但是对系统的研究和开发还没有终止，报名系统的后期维护仍然是一个长期的过程，当业务量不断增加或者需求发生重大改变，系统需要扩展功能，进行系统升级，才能满足企业未来的发展需求。