2024年6月21日发(作者：)

……　

Ｈ盯ＷＯＲＫ＆ＣＯＭＭＵＮｉＣ盯ｉＯＮ…………………………………………………………………………………　

基　Ｉｊ　七　办　系统　ｌ＿　ｔｉ　ｊ　ｉ　。｜｜　ｌ　

｜　王小平氰华梅｜　

摘　要：在校园网中布署学校网络办公系统（ｏＡ），摒弃传统的处理信息手段将纸张媒介变为无纸　

化办公，大大节省了办公工经费，提高了办公的效率。文中探讨了学校网络办公系统的设计与实现。　

关键词：教育信息化；校园网；网络办公系统；ＯＡ；ＡＳＰ　

１　系统开发的背景　

在学校传统的处理信息的手段都是通过纸张为媒介．采用网　

络办公系统，摒弃了以往传统的发布通知、发布推荐、发布公　

告，给同事留言的一级一级传达的繁锁工作。教职工只要通过登　

录到学校网络办公系统就能查看通知、工作安排和相互交流信息。　

管理。　

２．１＿７系统管理　

系统管理包括：数据备份、数据恢复、数据压缩、技术支持。　

注：注册用户通过身份验证平台获得相应的操作权限，可　

以根据相应的权限，访问相应的数据。系统将用户分为４类：　

普通用户、贵宾用户、管理员和超级用户。　

２　系统设计　

２．１　系统功能分析　

学校网络办公系统汇总文件、通知、议题讨论．将学校的　

２．２　系统功能模块设计　

对上述各项功能进行集中、分块，按照结构化设计的思　

想，得到如图１所示的系统功能模块图。　

许多日常的工作合并在一起，更高效的工作。具体有以下主要　

功能：　

２．１．１校务管理　

校网络办公系统ｌ　

校务管理包括：内部通知、特别推荐、上报文件。　

（１）内部通知用于校内发布通知，供校内教职工查阅。　

（２）特别推荐分校长推荐和教师推荐。校长推荐是用于　

校长推荐教育管理、教育教学思想方面的内容。教师推荐是用　

于教师向大家推荐内容。　

（３）上报文件　

２．１．２公共服务　

图１　系统功能模块图　

３数据库设计　

数据库在一个信息管理系统中占有非常重要的地位，数据　

库结构设计的好坏将直接对应用系统的效率以及实现的效果产　

生影响。合理的数据库结构设计可能提高数据储存的效率，保　

证数据的完整和一致。同时，合理数据库结构也将有利于程序　

的实现。　

公共服务包括：常用电话、常用网址、万年历、邮编区号　

查询。　

２．１．３交流中心　

对需要进行交流意见的内容发布在交流中心，系统的所　

有用户可以在此交流意见。　

２．１．４私人助手　

设计数据库系统时应该首先充分了解用户各个方面的需　

求，包括现有的以及将来可能增加的需求。　

考虑到用户为中小学，一般中小学没有专门的服务器，　

同时专业的管理人员也相当缺乏。因此本系统采用Ａｃｃｅｓｓ数　

据库，简单可行、灵活，无需安装专门的数据库服务器就能　

运行。　

私人助手包括：私人通信录、日程安排、修改资料、私人　

档案。　

２．１．５留言管理　

留言管理包括：公共留言、写留言、查收留言、已发留　

言、回收站。　

２．１．６超级管理　

３．１数据库需求分析　

针对一般办公无纸化系统的需求．通过对学校办公过程的　

超级管理包括：推荐管理、用户管理、上报文件管理、部门　

………………　……　…　ｑ　一　”‘　ｈ　…　

实用第一　智慧密集　

…　一　…　一　～　、　

图１４系统登录界　

身份验证的流程图如图１５所示。　

用户登录　

ｉｎｄｅｘ．ａｓｐ　

入　ｔ　

／、　身份验证

ｅｃｋ１。ｇ

＼　

、＼

、　

＼

ｈ

／

．ａ　Ｐ

　

／　

Ｙｅｓ　　ｌ

合法用户，进入ＯＡ系统　

图１５身份验证的流程图　

５．２．１内部通知的使用权限　

凡是合法的注册用户都可以阅读最新发布的内部通知和以　

前发布的内部通知。只有超级用户、管理员才具有发布通知的　

权限以及管理通知的权限　

５＿２＿２特别推荐的使用权限　

除普通用户外所有的用户均可以浏览学习文件。推荐栏目　

根据栏目设置的权限有相应的操作权限。　

５＿２．３上报文件的使用权限　

除普通用户外其他用户均可上报文件；只有超级用户和管　

理员具有报文管理权限　

Ｃｈｅｃｋｌｏｇ．ａｓｐ原代码如下：　

＜％　

ｃａｌｌ　ｍａｉｎ（）　

ｓｕｂ　ｍａｉｎ（）　

ｏｎ　ｅｒｒｏｒ　ｒｅｓｕｍｅ　ｎｅｘｔ　

ｄｉｍ　０Ａ　ｃｈｅｃｋｏｇ　ｎ　

ｓｅｔ　ＯＡ

＿

ｃｈｅｃｋｌｏｇｉｎ＝Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（“ｗａｎｇｘｐ．　

ｃｈｅｃｋｌｏｇ”）　

．ｆ　ｅｒｒ　ｔｈｅｎ　

ｅｒｒ．Ｃｌｅａｒ　

ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ”＜ｆｏｎｔ　ｃｏｌｏｒ＝　＃ＦＦ００００　＞服务器没　

有安装办公系统组件（ｗａｎｇｘｐ．ｄｌＩ），所以不能使用网络办公系　

统。请和你的空间提供商联系以安装办公系统组件。＜／ｆｏｎｔ＞　

６２　电＿醯２０椭１２．　与熊　

ｅｘｉｔ　ｓｕｂ　

ｅｎｄ｛ｆ　

０Ａ＿ｃｈｅｃｋｌｏｇｉｎ．ＡｓｐＣｌａｓｓｌｎｉｔ（）　

ｓｅｔ　Ｏ　ｃｈｅｃｋｌｏｇｉｎ＝ｎｏｔｈｉｎｇ　

ｅｎｄ　ｓｕｂ　

％＞　

ｗａｎｇｘｐ．ｄｌｌ组件中ｃｈｅｃｋｌｏｇ类的源代码如下：　

Ｄｉｍ　ｃｏｎｎ　

Ｄｉｍ　ｃｏｎｎｓｔｒ　

Ｐｒｉｖａｔｅ　ｍ　ｌ０ｎＢｉｔｓ（３０１　

Ｐｒｉｖａｔｅ　ｍ　Ｉ２Ｐｏｗｅｒ（３０）　

Ｐｒｉｖａｔｅ　Ｃｏｎｓｔ　ＢｌＴＳ　ＴＯ　Ａ　ＢＹＴＥ＝８　

Ｐｒｉｖａｔｅ　Ｃｏｎｓｔ　ＢＹＴＥＳ　ＴＯ　Ａ　ＷＯＲＤ＝４　

Ｐｒｉｖａｔｅ　Ｃｏｎｓｔ　ＢＩＴＳ　Ｔ０　Ａ　Ｗ０ＲＤ＝３２　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｃｌａｓｓ　Ｉｎｉｔｉａｌｉｚｅ（）　

Ｏｎ　Ｅｒｒｏｒ　Ｒｅｓｕｍｅ　Ｎｅｘｔ　

Ｓｅｔ　ｏｂｊＣｏｎｔｅｘｔ＝ＧｅｔＯｂｉｅｃｔＣｏｎｔｅｘｔ　

Ｓｅｔ　Ａｐｐｌｉｃａｔｉｏｎ：ｏｂｊＣｏｎｔｅｘｔ．Ｉｔｅｍ（”Ａｐｐｌｉｃａｔｉｏｎ“１　

Ｓｅｔ　Ｓｅｒｖｅｒ＝ｏｂｊＣｏｎｔｅｘｔ．Ｉｔｅｒｎ（“Ｓｅｒｖｅｒ”）　

Ｓｅｔ　Ｓｅｓｓｉｏｎ＝ｏｂｊＣｏｎｔｅｘｔ．Ｉｔｅｍ（“Ｓｅｓｓｉｏｎ”１　

Ｓｅｔ　Ｒｅｑｕｅｓｔ＝ｏｂｊＣｏｎｔｅｘｔ．Ｉｔｅｍ（”Ｒｅｑｕｅｓｔ“）　

Ｓｅｔ　Ｒｅｓｐｏｎｓｅ＝ｏｂｊＣｏｎｔｅｘｔ．Ｉｔｅｍ（“Ｒｅｓｐｏｎｓｅ“）　

Ｅｎｄ　Ｓｕｂ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｃｌａｓｓ　Ｔｅｒｍｉｎａｔｅ（）　

Ｏｎ　Ｅｒｒｏｒ　Ｒｅｓｕｍｅ　Ｎｅｘｔ　

Ｓｅｔ　Ａｐｐｌｉｃａｔｉｏｎ＝Ｎｏｔｈｉｎｇ　

Ｓｅｔ　Ｓｅｒｖｅｒ＝Ｎｏｔｈｉｎｇ　

Ｓｅｔ　Ｓｅｓｓｉｏｎ＝Ｎｏｔｈｉｎｇ　

Ｓｅｔ　Ｒｅｑｕｅｓｔ＝Ｎｏｔｈｉｎｇ　

Ｓｅｔ　Ｒｅｓｐｏｎｓｅ＝Ｎｏｔｈｉｎｇ　

Ｓｅｔ　ｏｂｊＣｏｎｔｅｘｔ＝Ｎｏｔｈｉｎｇ　

Ｅｎｄ　Ｓｕｂ　

Ｐｕｂｌｉｃ　Ｓｕｂ　Ａｓ；ｐＣｌａｓｓ　ｎ　ｔ（）　

Ｏｎ　Ｅｒｒｏｒ　ＧｏＴｏ　Ｅｒｒ　

Ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ“　”　

ｃｏｎｎｓｔｒ＝”ＤＢＱ：”＋Ｓｅｒｖｅｒ．ＭａｐＰａｔｈ（“ｓｍａｌｌｂａｓｅ／ｓｍａｌ１．ａｓｐ”）　

４－“；ｐｗｄ＝ｗｘｌｙｚｘ；ＤｅｆａｕｌｔＤｉｒ＝；ＤＲＩＶＥＲ＝｛Ｍｉｃｒｏｓｏｆｔ　Ａｃｃｅｓｓ　

Ｄｒｉｖｅｒ（　．ｍｄｂ））：“　

Ｓｅｔ　ｃｏｎｎ＝Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（“ＡＤＯＤＢ．ＣＯＮＮＥＣＴ１０Ｎ”）　

ｃｏｒｍ．ｏｐｅｎ　ｃｏｒｍＳｔｒ　

Ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ”＜ｈｔｍｌ＞“＆ｖｂＣｒｌｆ　

Ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ”＜ｈｅａｄ＞“＆ｖｂＣｒｌｆ　

Ｒｅｓｐｏｎｓｅ。ｗｒｉｔｅ”＜ｍｅｔａ　ｈｔｔｐ－ｅｑｕｉｖ＝　Ｃｏｎｔｅｎｔ—Ｔｙｐｅ““　

ｃｏｎｔｅｎｔ＝　ｔｅｘｔ／ｈｔｍｌ；ｃｈａｒｓｅｔ＝ｇｂ２３１　２　＞”＆ｖｂＣｒｌｆ　

Ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ“＜ｔｉｔｌｅ＞ｗｘｐ＜／ｔｉｔｌｅ＞”＆ｖｂＣｒｌｆ　

Ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ”＜／ｈｅａｄ＞“＆ｖｂＣｒｌｆ　

Ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ　ｖｂＣｒｌｆ　

Ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ”＜ｂｏｄｙ＞“＆ｖｂＣｒｌｆ　

Ｉｆ　Ｒｅｑｕｅｓｔ（“ｕｓｅｒｎａｍｅ　）＝　Ａｎｄ　Ｒｅｑｕｅｓｔ（”ｐａｓｓｗｏｒｄ”）＝　

Ｔｈｅｎ　

Ｓｅｓｓｉｏｎ（“Ｕｌｏｇｉｎ　１＝　ｎｏ　

Ｒｅｓｐｏｎｓｅ．Ｒｅｄｉｒｅｃｔ（　＇ｉｎｄｅｘ＿ｏｋ．ａｓｐ？ｉｄ＝ｅｒｒｏｒ“）　

Ｓｅｓｓｉｏｎ．ＡＩ，ｂａｎｄｏｎ　

Ｅｌｓｅ　

Ｕｎａｍｅ＝Ｔｒｉｍ（Ｒｅｑｕｅｓｔ（＇　ｕｓｅｒｎａｍｅ“））　

Ｕｐａｓｓ＝Ｔｒｉｍ（Ｒｅｑｕｅｓｔ（＇　ｐａｓｓｗｏｒｄ“））　

Ｕｎａｍｅ＝Ｒｅｐｌａｃｅ（Ｕｎａｍｅ，“　，　。）　

Ｕｐａｓｓ＝ＲｅｐＩａｃｅ（Ｕｐａｓｓ，　“，　’）　

Ｕｐａｓｓ＝ＭＤ５（Ｕｐａｓｓ）　

Ｓｅｔ　ｒｓ＝Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（”ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ“）　

ｓｔｒＳ：ＱＬ＝“ｓｅｌｅｃｔ　ｆｒＯｍ　ｕｓｅｒ　ｗｈｅｒｅ　ｕｓｅｒｎａｍｅ＝　＆　

Ｕｎａｍｅ＆”　ａｎｄ　ｐｗｄ＝　‘＆Ｕｐａｓｓ＆　”　

ｒｓ．ｏｐｅｎ　ｓｔｒＳＱＬ，ｃｏｎｎ．１，３　

Ｉｆ　ｒｓ．ＥＯＦ　Ｔｈｅｎ　

Ｓｅｓｓｉｏｎ（＂Ｕｉｏｇｉｎ”１＝“ｎｏ“　

Ｒｅｓｐｏｎｓｅ．Ｒｅｄｉｒｅｃｔ”ｉｎｄｅｘ　ｏｋ．ａｓｐ？ｉｄ＝ｅｒｒｏｒ＇　

ｉｐ＝Ｒｅｑｕｅｓｔ．ＳｅｒｖｅｒＶａｒｉａｂｌｅｓ（　＇ＲＥＭＯＴＥ

—

ＡＤＤＲ”）　

ｎｏｗｔｉｍｅ＝ＮＯＷ　

Ｓｊ＝ＣＳｔｒ（Ｙｅａｒ（ｎｏｗｔｉｍｅ））＋“一“＋ＣＳｔｒ（Ｍｏｎｔｈ　

Ｉ，＇ｎｏｗｔｉｍｅ））＋”一”＋ＣＳｔｒ（Ｄａｙ（，＇ｎｏｗｔｉｍｅ））＋…’＋ＣＳｔｒ（Ｈｏｕｒ　

（ｎｏｗｔｉｍｅ｝）＋”：“＋Ｒｉｇｈｔ（＇‘０“＋ＣＳｔｒ（Ｍｉｎｕｔｅ（ｎｏｗｔｉｍｅ）｝），２）＋”：”　

＋Ｒｉｇｈｔ（“Ｏ“＋ＣＳｔｒ（Ｓｅｃｏｎｄ（ｎｏｗｔｉｍｅ））．２）　

ｓｈｉｊｉａｎ＝ＣＳｔｒ（Ｙｅａｒ（ｎｏｗｔｉｍｅ））＋Ｒｉｇｈｔ（　０”＋ＣＳｔｒ　

ＩＭｏｎｔｈ（ｎｏｗｔｉｍｅ）），２）＋Ｒｉｇｈｔ（“０”＋ＣＳｔｒ（Ｄａｙ（ｎｏｗｔｉｍｅ））．２）＋　

Ｒｉｇｈｔ（＂　０“＋ＣＳｔｒ（Ｈｏｕｒ（ｎｏｗｔｉｍｅ）），．２）＋ＲｉｇｈｔＣＯ＇。＋ＣＳｔｒ（Ｍｉｎｕｔｅ　

（ｎｏｗｔｉｍｅ）），２）　

Ｅｌｓｅ　

Ｉｆ　ｒｓ（“ｓｈｅｎｈｅ”）＝Ｆａｌｓｅ　Ｔｈｅｎ　

Ｒｅｓｐｏｎｓｅ．Ｒｅｄｉｒｅｃｔ“ｉｎｄｅｘ

＿

ｏｋ．ａｓｐ？ｉｄ＝ｐａｓｓ　。　

Ｅｎｄ　Ｉｆ　

ｒｓＣ’ｓｔａｔｅ”１＝Ｔｒｕｅ　

ｒｓ（。＇ｌｏｇｉｎｌＰ＇。）＝ｉｐ　

ｒｓ（”Ｕｔｉｍｅ”１＝ｓｈｉｊｉａｎ　

ｒｓ（　＇ｔｉｍｅｓ”）＝ｒｓ（＂ｔｉｍｅｓ”）＋１　

ｒｓ．Ｕｐｄａｔｅ　

Ｓｅｓｓｉｏｎ（＇　Ｕｉｄ“）＝ｒｓＣ。ｉｄ＂　ｌ　

Ｓｅｓｓｉｏｎ（＇　Ｕｎａｍｅ＇　）＝ｒｓ（“＇ｕｓｅｒｎａｍｅ”）　

Ｓｅｓｓｉｏｎ（＇’Ｒｎａｍｅ”）：ｒｓ（“ｎａｍｅ”）　

Ｓｅｓｓｉｏｎ（＇　Ｕｐａｓｓ＇　｝＝ｒｓＣ＇ｐｗｄ　）　

Ｓｅｓｓｉｏｎ（＇‘Ｕｐａｒｔ”）＝ｒｓ（ＩＩｐａｒｔ“）　

Ｓｅｓｓｉｏｎ（＇’Ｕｒｕｌｅ＇　）＝ｒｓ（”ｒｕｌｅ　）　

Ｓｅｓｓｂｎ（＊＇ｔｅｌ”）＝ｒｓ（＂ｐｈｏｎｅ＇　）　

Ｓｅｓｓｉｏｎ（＂Ｕｔｉｍｅ”）＝ｒｓＣ”Ｕｔｉｍｅ“）　

ＳｅｓｓｉｏｎＣＩＰ”）＝ｒｓ（　＇ｏｉｇｌＰ“）　

Ｓｅｓｓｉｏｎ（＂Ｕｉｏｇｉｎ＇　）＝”ｙｅｓ”　

Ｓｅｓｓｉｏｎ（　ｅｍａｉｌ“）＝ｒｓ（”ｅｍａｉｌ　）　

Ｓｅｓｓｉｏ　ｍｏｂｂｉｌｂｅ“）＝ｒｓ（”ｍｏｂｉｌｅ＂）　

Ｓｅｓｓ｜ｏｎｆ“ｔｉｍｅ＇　）＝ｒｓ（＂ｔｉｍｅ”）　

Ｓｅｓｓｉｏｎ（“ｉｄ“）：ｒｓ（Ｉ『ｕｓｅｒｎａｍｅ“）　

Ｓｅｓｓｉｏｎ（“ｍａｍｅ”＇）＝ｒｓ（”ｎａｍｅ”）　

Ｓｅｓｓｉｏｎ（”ｐｗｄ　）＝ｒｓ（“ｐｗｄ　）　

Ｓｅｓｓｉｏｎ（　ｌｅｖｅｌ＇　）＝ｒｓ（“ｉｌｅｖｅｌ”）　

Ｓｅｓｓｉｏｎ（”ｉＰａｇｅＳｉｚｅ“）＝ｒｓ（＇。ｉＰａｇｅＳｉｚｅ＇　）　

Ｓｅｓｓｉｏｎ（＇　ｉＡｄｄ　ｊ＝ｒｓＣ　ｉＡｄｄ　）　

Ｓｅｓｓｉｏｎ（＇。ｉＢｅｇｉｎ　）＝ｒｓ（“ｉＢｅｇｉｎ“）　

Ｓｅｓｓｉｏｎ（＇’ｎｕｍ　）＝０　

Ｒｅｓｐｏｎｓｅ．Ｒｅｄｉｒｅｃｔ（“ｍａｉｎ．ａｓｐ”）　

Ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ　ｖｂＣｒｌｆ　

Ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ　ｖｂＣｒｉｆ　

Ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ　ｖｂＣｄｆ　

Ｅｎｄ　Ｉｆ　

Ｅｎｄ　Ｉｆ　

ｒｓ．Ｃｌｏｓｅ　

ｃｏｎｎ．Ｃｌｏｓｅ　

Ｓｅｔ　ｃｏｎｎ＝Ｎｏｔｈｉｎｇ　

Ｒｅｓｐｏｎｓｅ．ｗｒｉ‘ｔｅ”＜／ｂｏｄｙ＞”＆ｖｂＣｒｌｆ　

Ｒｅｓｐｏｎｓｅ．ｗｎ’ｔｅ“＜／ｈｔｍｔ＞”＆ｖｂＣｒｌｆ　

Ｅｘｉｔ　Ｓｕｂ　

Ｅｒｒ：　

ｌｆ　Ｅｒｒ．Ｎｕｍｂｅｒ：－１３５７２４６８　Ｔｈｅｎ　Ｅｘｉｔ　Ｓｕｂ　

Ｒｅｓｕｍｅ　Ｎｅｘｔ　

Ｅｎｄ　Ｓｕｂ　

Ｅ：＼０Ａ＼ＩＮＣ＼Ｍ　Ｄ＿ＡＳＰ　

Ｐｒｉｖａｔｅ　Ｓｕｂ　ｍｄ５

＿

ＦＦ（ａ，ｂ，ｅ，ｄ．×，Ｓ，ａｃ｝　

Ｏｎ　Ｅｒｒｏｒ　ＧＯＴｏ　Ｅｒｒ　

ａ＝ＡｄｄＵｎｓｌｇｎｅｄ（ａ，，ＡｄｄＵｎｓｉｇｎｅｄ（ＡｄｄＵｎｓｉｇｎｔｅｄ（ｍｄ５．一Ｆ（ｂ　

ｃ，ｄ），ｘ），ａｃ））　

ａ＝ＲｏｔａｔｅＬｅｆｔ（ａ，Ｓ）　

ａ：ＡｄｄＵｎｓｉｇｎｅｄ（ａ，ｂ）　

Ｅｘｉｔ　Ｓｕｂ　

Ｅｒｒ：　

Ｉｆ　Ｅｒｒ．ＮＩｕｍｂｅｒ＝一１３５７２４６８　Ｔｈｌｅｎ　Ｅｘｉｔ　Ｓｕｂ　

Ｒｅｓｕｍｅ　Ｎｅｘｔ　

Ｅｎｄ　Ｓｕｂ　

５．３内部通知管理　

内部通知管理界面如图ｌ６所示　

图１６内部通知管理　

矗瞒Ｌ切．ａｓｐ：负责显示第一条通知。　

ｔｏｎｇｚｈｉ．ａｓｐ：负责显示通知条目。　

ｄｅＬａｓｐ：负责删除通知。　

ｅｄｉｔｓｅｎｄｉｎｆ．ａｓｐ：负责修改通知。　

ｉｎｆ

—

ｔｏ

—

ｓｅｒｖｅｒ．．ａｓｐ：负责通知的存储。　

实用第　智慧密集　

Ｄｅ１．ａｓｐ原代码如下：　

＜！－－＃１ＮＣＬＵＤＥ　ＦｌＬＥ＝”ｄａｔａ．ａｓｐ　－－－＞　

＜ｌ－－＃ＩＮＣＬＵＤＥ　ＦＩＬＥ＝“ｃｈｅｃｋ．ａｓｐ”一一＞　

＜％　

ｄｅｌ

—

ｉｄ＝Ｒｅｑｕｅｓｔ（“ｄｅｌｉｄ”）　

ｄｅｌ

—

ｂｚ＝Ｒｅｑｕｅｓｔ（“ｄｅｌｂｚ“）　

ｉｆ　ｄｅｌ

—

ｂｚ＜＞”Ｍｙ

—

ｏｎｌｙ“ａｎｄ　ｄｅｌ

—

ｂｚ＜＞“Ｍｙ

—

ｐｕｂｌｉｃ”ｔｈｅｎ　

Ｒｅｓｐｏｎｓｅ．Ｒｅｄｉｒｅｃｔ（“ｉｎｄｅｘ．ａｓｐ”）　

ｅｎｄ　ｆ　

ｉｆ　ｄｅｌ

—

ｂｚ＝“Ｍｙ

＿

ｐｕｂｌｉｃ“ａｎｄ　Ｓｅｓｓｉｏｎ（”Ｕｒｕｌｅ”）＜＞～ａ　ａｎｄ　Ｓｅｓｓｉｏｎ（”　

Ｕｒｕｌｅ“）＜＞　ｂ　ｔｈｅｎ　

Ｒｅｓｐｏｎｓｅ．Ｒｅｄｉｒｅｃｔ　ｌ　ｉｎｄｅｘ．ａｓｐ“）　

ｅｎｄ　ｉｆ　

Ｓｅｔ　ｄｅｌ

—

ｒｓ＝Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（“ＡＤＯＤ８．Ｒｅｃｏｒｄｓｅｔ“）　

ｓｔｒＳｑｌ＝”ｓｅｌｅｃｔ　ｆｒ０ｍ　ｉｈｔｄａｔａ　ｗｈｅｒｅ　ｉｄ：＆ｄｅｌ—ｉｄ　

ｄｅｌ

ｒｓ．ｏｐｅｎ　ｓｔｒＳｑ１．Ｃｏｎｎ，１，３　

＿

ｉｆ　ｎｏｔ　ｄｅｌ　ｒｓ　ｅｏｆ　ｔｈｅｎ　

Ｄｉｍ　ｆｓｏ．ｆ２　

ｉｆ　ｄｅｌ

—

ｒｓ（”ｏｔｈｅｒ”）＜＞”Ｎ／Ａ　ｔｈｅｎ　

　

Ｓｅｔ　ｆｓｏ＝ＣｒｅａｔｅＯｂｊｅｃｔ（”Ｓｃｒｉｐｔｉｎｇ．ＦｉｌｅＳｙｓｔｅｍＯｂｊｅｃｔ＇‘）　

ｆｉｌｅ１＝ｄｅｌ

—

ｒｓ（“ｏｔｈｅｒ”）　

ｆｉｌｅｓ＝ｓｐ　矧ｅ１，”；“）　

ｆｏｒ　ｉ：Ｏ　ｔｏ　ｕｂｏｕｎｄ（ｆｉｌｅｓ，１）　

ｅ２＝ｓ　ｔ㈣ｅｓ　：“）　

ｆｉｌｅｎａｍｅｌ＝ｆｉ￣ｅ２（１）　

ｆｉｌｅｓ＝Ｓｅｒｖｅｒ．Ｍａｐｐａｔｈ（ｆｉｌｅｎａｍｅ１）　

．ｆ　ｆｓｏ．ＦｉＩｅＥｘｊｓｔｓ　ｅｓ）Ｔｈｅｎ　

Ｓｅｔ　ｆ２＝ｆｓｏ．ＧｅｔＦｉｌｅ（ｆｉｌｅｓ）　

ｆ２．Ｄｅｌｅｔｅ　

ＦｉｌｅＤｅｌ＝１　

ｅｌｓｅ　

ＦｉｌｅＤｅｌ＝２　

ｅｎｄ　Ｉｆ　

ｎｅｘｔ　

ｅｎｄ　Ｉｆ　

ｓｅｔ　ｆ２＝ｎｏｔｈｉｎｇ　

ｓｅｔ　ｆｓｏ＝ｎｏｔｈｉｎｇ　

ｅｎｄ　Ｉｆ　

ｄｅｌ　ｒｓ．ｃｌｏｓｅ　

ｓｅｔ　ｄｅｌ

—

ｒｓ＝ｎｏｔｈｉｎｇ　

ｓｔｒＳｑｌ＝”ＤＥＬＥＴＥ　ＦＲＯＭ　ｊｈｔｄａｔａ　ｗｈｅｒｅ　ｉｄ＝”＆ｄｅｌ—ｉｄ　

ｃｏｒｍ．Ｅｘｅｃｕｔｅ｛ｓｔｒＳｑ１）　

ｃｏｎｎ．Ｃｌｏｓｅ　

ｓｅｔ　ｃｏｎｎ＝ｎｏｔｈｉｎｇ　

Ｒｅｓｐｏｎｓｅ．Ｒｅｄｉｒｅｃｔ（Ｉｌｔｏｎｇｚｈｉ．ａｓｐ”）　

％＞　

ｉｎ￡＿ｔｏ—ｓｅｒｖｅｒ．ａｓｐ的部分代码如下：　

＜％　

ｗｘｐ２＝ｒｅｑｕｅｓｔ（“ｗｘｐｌ　）　

ｔｙｐｅ２＝ｒｅｑｕｅｓｔ（“ｔｙｐｅ”）　

ｔｙｐｅ２＝“通知”　

６４　与雏　

ｕｓｅｒ＝ＳｅｓｓｉＯｎ（”；ｄ”）　

ｍｖＵｉｄ＝ＳｅｓｓｉＯｎ｛　Ｕｉｄ　）　

ｍｙＵｎａｍｅ＝Ｓｅｓｓｉｏｎ（“Ｕｎａｍｅ“｝　

ｍｙＵｐａｓｓ＝Ｓｅｓｓｉｏｎ（”Ｕｐａｓｓ”）　

ｍｙＵｒｅａｌｎａｍｅ＝Ｓｅｓｓｉｏｎ（“Ｒｎａｍｅ　）　

ｍｙＵｐａｒｔ＝ＳｅｓｓｉＯ　Ｕｐａｒｔ”）　

ｍｖＵｒｕｌｅ＝Ｓｅｓｓｉｏｎ（”Ｕｒｕｌｅ“）　

ｍｙＵｌＯｇｉｎ＝Ｓｅｓｓｉ０ｎ《　Ｕｌｏｇｉｎ“）　

ｉｐｌ＝Ｒｅｑｕｅｓｔ．ＳｅｒｖｅｒＶａｒｉａｂｌｅｓ（”ＲＥＭＯＴＥ—ＡＤＤＲ“）　

ｎｏｗｔｉｍｅ＝ｎｏｗ（）　

Ｓｊ＝ｃｓｔｒ（ｙｅａｒ（ｎｏｗｔｉｍｅ））＋“一“＋ｃｓｔｒ（ｍｏｎｔｈ（ｎｏｗｔｉｍｅ））＋“一　＋ｃｓｔｒ　

（ｄａｙ（ｎｏｗｔｉｍｅ））＋“”＋ｃｓｔｒ　Ｉｈｏｕｒ（ｎｏｗｔｉｍｅ））＋“：　＋ｒｉｇｈｔ（…０＋ｃｓｔｒ　

（ｍｉｎｕｔｅ（ｎｏｗｔｉｍｅ）），２）＋　：　＋ｒｉｇｈｔ（”０”＋ｃｓｔｒ（ｓｅｃｏｎｄ（ｎｏｗｔｉｍｅ）），２）　

Ｔｉｔｌｅ＝ｔｒｉｍ（ｒｅｑｕｅｓｔ．ｆＯｒｍ（“Ｔｉｔｌｅ”））　

Ｃｏｎｔｅｎｔ＝ｔｒｉｍ（ｒｅｑｕｅｓｔ．ｆＯｒｍ（ＪＩＣｏｎｔｅｎｔ”））　

ｆｉｌｅｓ＝““　

ｄｉｍ　Ｏｂｊｌｎｓｔａｌｌｅｄ　

Ｏ　ｂｊＩｎｓｔａｌｌｅｄ＝ｌｓＯｂｊｌｎｓｔａＩＪｅｄ（　Ｓｃｒｉｐｔｉｎｇ，ＦｉｌｅＳｙｓｔｅｍＯｂｊｅｃｔ“）　

ＦＯｕｎｄＥｒｒ＝ｆａＩｓｅ　

ｃａｌＩ　ＳａｖｅＡｒｔｉｃｌｅ（１　

％＞　

＜％ｓｕｂ　ＳａｖｅＡｒｔｉｃｌｅ（）　

ｉｆ　Ｔｉｔｌｅ＝”　ｔｈｅｎ　

ｆＯｕｎｄｅｒｒ：：ｔｒｕｅ　

ｅｒｒｍｓｇ＝ＥｒｒＭｓｇ＆”＜ｂｒ＞＜ｌ　＞主题不ｆ￣ＬＹＪ空＜／ｌｉ＞”　

ｅｎｄ　ｉｆ　

．ｆ　Ｃｏｎｔｅｎｔ＝””ｔｈｅｎ　

ｆＯｕｎｄｅｒｒ＝ｔｒｕｅ　

ｅｒｒｍｓｇ＝ｅｒｒｍｓｇ＆”＜ｂｒ＞＜ＩＩ＞内容不能为空＜／ｌｉ＞“　

ｅｎｄ＿ｆ　

ｉｆ　ＦＯｕｎｄＥｒｒ＝Ｔｒｕｅ　ｔｈｅｎ　

ｅｘｉｔ　ｓｕｂ　

ｅｎｄ　Ｉｆ　

Ｋｅｙ＝“Ｉ¨＆ＲｅｐＩａｃｅＢａｄＣｈａｒＩＫｅｙ）＆　ｌ　

ｄｉｍ　ｓｔｒＳｉｔｅＵｒＩ　

ｓｔｒＳｉｔｅＵｒ『＿ｒｅｑｕｅｓｔ．ＳｅｒｖｅｒＶａｒｉａｂｌｅｓ（　ＨＴＴＰ—ＲＥＦＥＲＥＲ“）　

ｓｔｒＳｉｔｅＵｒｌ＝ｌｃａｓｅ（１ｅｆｔ（ｓｔｒＳｉｔｅＵｒｌ，ｊｎｓｔｒｒｅｖ（ｓｔｒＳＩｔｅＵ　ｒｌｆ¨　））　

Ｃｏｎｔｅｎｔ＝ｕｂｂｃｏｄｅ（ｒｅｐｌａｃｅ（Ｃｏｎｔｅｎｔ，ｓｔｒＳｉｔｅＵ　ｒｌ　ｒ　ｎｉｌ））　

Ｃｏｎｔｅｎｔ＝ＲｅｐｌａｃｅＲｅｍｏｔｅＵｒｌ（Ｃｏｎｔｅｎｔ）　

ｄｉｍ　ｍｖ　ｒｓ１　

Ｓｅｔ　ｍｖ－ｒｓ１　Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（“ＡＤＯＤＢ．Ｒｅｃｏｒｄｓｅｔ”）　

ｉｆ　ｒｅｑｕｅｓｔ（　ｒｓ—ｉｄ”　ｔｈｅｎ　

ｓｅｔ　ｒｓｌ：ｓｅｒｖｅｒ．ｃｒｅａｔｅｏｂｊｅｃｔ（“ＡＤＯＤＢ．ｒｅｃｏｒｄｓｅｔ”）　

ｓｑｌｌ＝“ＳＥＬＥＣＴ　ＦＲＯＭ　ｏｔｈｅｒ　ｗｈｅｒｅ　ｔｙｐｅ＝　通知　ａｎｄ　

ｕｓｅｒｎａｍｅ＝　”＋ｕｓｅｒ＋　

ｒｓ１．Ｏｐｅｎ　ｓｑｌｌ，ｃｏｎｎ，１，３　

Ｉ＿１　

ｄｏ　ｗｈｉｌｅ　ｎｏｔ　ｒｓ１．ｅｏｆ　

ｆｉｌｅｓ＝ｆｉｌｅｓ＋ｒｓｌ（１Ｉｆｊｎａｍｅ　）＋“：“＋ｒｓｌ（”ｈｔｍ　“　

｛＋１　

ｒｓ１．ｍｏｖｅｎｅｘｔ　

｝ｏｏｐ　

■一

…　

—ＥＴＷ口ＢＸ＆ＣＯ啊髓ＵＮＩ咖０Ｈ…………一…………………　…………………………………………………　

ｓｑｌ２＝“ｄｅｌｅｔｅ　ＦＲＯＭ　ｏｔｈｅｒ　ｗｈｅｒｅ　ｔｙｐｅ＝　通知　ａｎｄ　

ｕｓｅｒｎａｍｅ＝　“＋ｕｓｅｒ＋‘‘　

ｃｏｎｎ。Ｅｘｅｃｕｔｅ（ｓｑｌ２）　

ｒｓ１．ｃｌｏｓｅ　

Ｓｅｔ　ｒｓｌ＝ｎｏｔｈｉｎｇ　

ＳｔｒＳＱＬ１＝”Ｓｅｌｅｃｔ　ＦＲ０Ｍ　ｉｈｔｄａｔａ”　

ｍｙ—ｒｓ１．Ｏｐｅｎ　ＳｔｒＳＱＬ１，Ｃｏｒｍ，１，３　

ｍｙ　ｒｓ１．Ａｄｄｎｅｗ　

ｍｙ＿ｒｓ１（“ｔｙｐｅ“）＝０　

ｍｙ—ｒｓｌ（“ｔｎａｍｅ”）＝ｍｙＵｒｅａｌｎａｍｅ　

ｍＶ—ｒｓｌ（”ｐａｒｔ“）＝ｍｙＵｐａｒｔ　

ｍｙ—ｒｓｌ（“ｔｉｔｌｅ”）＝Ｔｉｔｌｅ　

ｍｙ—ｒｓ　ｌ（”ｔｔｅｘｔ”）＝Ｃｏｎｔｅｎｔ　

ｍｙ＿ｒｓ１（”ｔｉｍｅ”）＝ｓｊ　

ｍｙ—ｒｓｌ（“ｉｐ“）＝ｉｐｌ　

Ｉｆ　＞１　ｔｈｅｎ　

ｍｙ—ｒｓｌ（“ｏｔｈｅｒ“）＝ｆｉｌｅｓ　

ｅｎｄ　ｉｆ　

ｅｌｓｅ　

ＳｔｒＳＱＬ１＝“Ｓｅｌｅｃｔ　ＦＲ０Ｍ　ｉｈｔｄａｔａ　ｗｈｅｒｅ　ｉｄ＝“　

＆ｒｅｑｕｅｓｔ（“ｒｓ—ｉｄ”）　

ｍｙ—ｒｓ　１．Ｏｐｅｎ　ＳｔｒＳＱ　Ｌ１，Ｃｏｎｎ，３，３　

ｍｙ—ｒｓ　ｌ（“ｔｉｔｌｅ”）＝Ｔｉｔｌｅ　

ｍｙ—ｒｓ　ｔｔｅｘｔ“）：Ｃｏｎｔｅｎｔ　

ｍｙ—ｒｓｌ（”ｔｉｍｅ”）：ｓｊ　

ｍｙ＿ｒｓｌ（”ｉｐ“）＝ｉｐｌ　

ｅｎｄ　ｉｆ　

ｍｙ＿ｒｓ１．Ｕｐｄａｔｅ　

ｍｙ＿ｒｓ　１．ｃｌｏｓｅ　

ｓｅｔ　ｍｙ

—

ｒｓｌ＝ｎｏｔｈｉｎｇ　

ｃｏｎｎ．ｃｌｏｓｅ　

ｓｅｔ　ｃｏｎｎ＝ｎｏｔｈｉｎｇ　

ｅｎｄ　ｓｕｂ　

％＞　

５．４留言管理　

ｗｒｉｔｅ．ａｓｐ；撰写留言。　

ｍａｉｌｂｏｘ．ａｓｐ；查收留言。　

图１７留言显示　

ｒｅａｄｍａｉｌ．ａｓｐ；查阅留言（个人留言、已发留言）。　

ｒｅａｄｍａｉｌ

＿

ｃｏｍｍ．ａｓｐ；查阅公共留言。　

ｄｅｌｌｙ．ａｓｐ：删除留言。　

在查收已发留言时。在接收人中显示接收人姓名时，如果　

已经查阅了，则显示为紫色；如果未查阅，则显示为红色。如　

图１７所示。　

ｒｅａｄｍａｉｌ的部分源代码如下：　

＜ｔａｂｌｅ　ｗｉｄｔｈ＝１０Ｏ％ｂｏｒｄｅｒ＝“２“ｃｅｌｌｓｐａｃｉｎｇ＝＂ｌ”ｃｅｌｌｐａｄｄｉｎｇ＝　

ｃｌａｓｓ＝ｃｓｓｌ＞　

＜％ｉｆ　Ｓｅｓｓｉｏｎ（＂ｓｅｎｄ＂）＝￣ｓｅｎｄｏｕｔ＂ｔｈｅｎ％＞　

＜％ｘ

＿

ｉｔｏ＝Ｒｅｃｏｒｄ（＂ｉＤａｔｅＴｉｍｅ”）　

ｘ

＿

ｃｅｎｔ＝Ｒｅｃｏｒｄ（“ｃｅｎｔ　）　

ｘ

＿

ｉｆｒｏｍ＝Ｓｅｓｓｉｏｎ（“Ｕｎａｍｅ“）　

ｌｉｓｔｓ　１＝ｓｐｌｉｔ（Ｒｅｃｏｒｄ（＂ｔｏｎａｍｅ”），“，　）　

ｔｉｓｔｓ＝ｓｐｌｉｔ（Ｒｅｃｏｒｄ（”ｒｏｕｓｅｒ“），”　“）　

ｊｇ＝呐　

ｆｏｒ　Ｉ＿０　ｔｏ　ｕｂｏｕｎｄ（１ｉｓｔｓ，１）　

ｌｆｌｉｓｔｓ（ｉ）＜＞　ｔｈｅｎ　

Ｓｅｔ　ＩＲｅｃｏｒｄ８：Ｓｅｒｖｅｒ．ＣｒｅａｔｅＯｂｊｅｃｔ（＂ＩＡＤＯＤＢ．　

Ｒｅｃｏｒｄｓｅｔ“｝　

ｓｔｒＳｑｌ６＝　ｓｅｌｅｃｔ　ｆｒＯｍ　ｒｅｃｉｖｅｄ　＋ｌｉｓｔｓ（ｉ）　

ｓｔｒＳｑｌ７＝“ｗｈｅｒｅ　ｉＤａｔｅＴｉｍｅ＝＂　＋ｘ

＿

ｉｔｏ＋“￣ａｎｄ　ｃｅｎｔ＝　＋）（－ｃｅｎｔ＋¨　

ａｎｄ　ｉｆｒｏｍ＝＂“＋ｘ＿｛ｆｒＯｍ＋　“　

ｓｔｒｓｑ１８＝ｓｔｒＳｑｌ６＋ｓｔｒＳｑｌ７　

＂

ｒｅｓｐｏｎｓｅ．Ｗｎｔｅ（ｓｔｒｓｑｌ８）　

ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ（＂＜ｂｒ＞“）　

Ｒｅｃｏｒｄ８．ｏｐｅｎ　ｓｔｒＳｑｌ８，ｃｏｎ　ｌ　３　

Ｉｆ　ｎｏｔ　Ｒｅｃｏｒｄ＆ｅｏｆ　ｔｈｅｎ　

．ｆ　ｒｅｃｏｒｄ８（　ｉｒｅａｄ＂）《＞　ｔｈｅｎ　

已经查收　

ｉｆｊｇ《＞　ｔｈｅｎ　

ｊｇ＝ｊｇ＋“＆ｎｂｓｐ；　＋ｌｉｓｔｓ１　ｍ　

ｅｌｓｅ　

ｊｇ；“ｓｔｓｌ｛”　

ｅｎｄ　

ｅｌｓｅ　

．ｆｊｇ＜＞”“ｔｈｅｎ　

ｊｇ＝ｊｇ＋”＜ｆｏｎｔ　ｃｏｌｏｒ＝＂ｒｅｄ　）．＆ｎｂｓｐ；＂＋ｌｉｓｔｓ１ｍ＋Ⅱ＜Ｊ乍Ｏｎｔ＞　

ｅｌｓｅ　

ｊｇ＝“＜ｆｏｎｔ　ｃｏｌｏｒ＝＂ｒｅｄ＇＞＂＋ｌｉｓｔｓｌ　ｍ＋“《／ｆｏｍ》“　

ｅｎｄ＿ｆ　

ｅｎｄ　ｉｆ　

ｅｌｓｅ　

＂ｊｇ＝ｊｇ＋　

ｅｎｄ＿ｆ　

ｒｅｃｏｒｄ８．ｃｌｏｓｅ　

ｓ啦ｒｅｃｏｒｄ８１＝ｎＱ＾　ｎ　

ｅｎｄ　ｉｆ　

ｎｅｘｔ　

％》　

＜％　

螭　

黼　

实用第　

智慧密集　

ｓｅｔ　ｒｓ２＝ｓｅｒｖｅｒ．ｃｒｅａｔｅｏｂｊｅｃｔ（“ＡＤＯＤＢ　ｒｅｃｏｒｄｓｅｔ”）　

ｓｔｒ２＝“ＳＥＬＥＣＴ　ＦＲ０Ｍ　ｕｓｅｒ　ｗｈｅｒｅ　ｕｓｅｒｎａｍｅ＝ｒｌｌ　

＆Ｒｅｃｏｒｄ（“ｉｔｏ“）＆　”　

ｒｓ２。Ｏｐｅｎ　ｓｔｒ２，ｃｏｎｎ，１，３　

％＞　

＜ｔｒ　ａｌｉｇｎ：“ｃｅｎｔｅｒ“ｂｏｒｄｅｒｃｏｌｏｒ＝　。＃６６３３ＦＦ　ｂｇｃｏｌｏｒ：‘。　

＃９９９９９９。。ｃｌａｓｓ＝“ｗｘｐ‘。＞　

＜ｔｄ　ｈｅｉｇｈｔ＝。　２０”ｂｏｒｄｅｒｃｏｌｏｒ＝。。＃９９９９ＦＦ”ｂｇｃｏｌｏｒ＝‘’　

＃９９９９ＦＦ”ｃｌａｓｓ＝”ｗｘｐ“＞留言主题＜／ｔｄ＞　

＜ｔｄ　ｈｅｉｇｈｔ＝　２０”ｃｏｌｓｐａｎ＝”５“ｂｏｒｄｅｒｃｏｌｏｒ＝”＃９９９９ＦＦ“　

ｂｇｃｏｌｏｒ＝“＃ＦＦＦＦＦＦ”ｃｌａｓｓ＝“ｌｉｓｔ”＞＜％＝Ｒｅｃｏｒｄ（“ｃｅｎｔ”）％＞＜，ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ　ａｌｉｇｎ＝　‘ｃｅｎｔｅｒ“ｂｏｒｄｅｒｃｏｌｏｒ＝“＃６６３３ＦＦ”ｂｇｃｏｌｏｒ＝”　

＃９９９９９９“ｃｌａｓｓ＝”ｗｘｐ”＞　

＜ｔｄ　ｈｅｉｇｈｔ＝“２０“ｂｏｒｄｅｒｃｏｌｏｒ＝。’＃９９９９ＦＦ”ｂｇｃｏｌｏｒ：”　

＃９９９９ＦＦ”ｃｌａｓｓ＝“ｗｘｐ”＞发布时间＜／ｔｄ＞　

＜ｔｄ　ｈｅｉｇｈｔ＝”２０”ｃｏｌｓｐａｎ：。。５“ｂｏｒｄｅｒｃｏｌｏｒ＝”＃９９９９ＦＦ。‘　

ｂｇｃｏｌｏｒ＝”＃ＦＦＦＦＦＦ。　ｃｌａｓｓ＝。。ｌｉｓｔ。’＞＜ｄｉｖ　ａｌｉｇｎ＝”ｌｅｆｔ“＞＜％＝Ｒｅｃｏｒｄ　

（“ｉＤａｔｅＴｉｍｅ　ｌ％＞＜／ｄｉｖ＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ　ａｌｉｇｎ＝‘。ｃｅｎｔｅｒ“ｂｏｒｄｅｒｃｏｌｏｒ＝。。＃６６３３ＦＦ”ｂｇｃｏｌｏｒ＝。　‘

＃９９９９９９“ｃｌａｓｓ＝“ｗｘｐ”＞　

＜ｔｄ　ｈｅｉｇｈｔ＝”２０　ｂｏｒｄｅｒｃｏｌｏｒ＝”＃９９９９ＦＦ　ｂｇｃｏ／ｏｒ＝”　

＃９９９９ＦＦ　ｃｌａｓｓ＝”ｗｘｐ”＞发布人＜／ｔｄ＞　

＜ｔｄ　ｈｅｉｇｈｔ＝’　２０“ｃｏｌｓｐａｎ＝“５”ｂｏｒｄｅｒｃｏｌｏｒ＝　＃９９９９ＦＦ‘　’

ｂｇｃｏｌｏｒ＝”＃ＦＦＦＦＦＦ”ｃｌａｓｓ＝”ｌｉｓｔ”＞＜ｄｉｖ　ａｌｉｇｎ＝”ｌｅｆｔ“＞＜％＝ｒｓ２ｆ¨　

ｎａｍｅ”）％＞＜／ｄｉｖ＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ　ａｌｉｇｎ＝“ｃｅｎｔｅｒ“ｂｏｒｄｅｒｃｏｌｏｒ＝。。＃６６３３ＦＦ“ｂｇｃｏｌｏｒ＝’　。

＃９９９９９９。。ｃｌａｓｓ＝”ｗｘｐ“＞　

＜ｔｄ　ｈｅｉｇｈｔ＝“２０”ｂｏｒｄｅｒｃｏｌｏｒ＝“＃９９９９ＦＦ”ｂｇｃｏｌｏｒ＝”　

＃９９９９ＦＦ“ｃｌａｓｓ＝”ｗｘｐ”＞接收人＜／ｔｄ＞　

＜ｔｄ　ｈｅｉｇｈｔ＝“２０　ｃｏｌｓｐａｎ＝“５”ｂｏｒｄｅｒｃｏｌｏｒ＝‘‘＃９９９９ＦＦ”　

ｂｇｃｏｌｏｒ＝　＃ＦＦＦＦＦＦ“ｃｌａｓｓ＝”ｌｉｓｔ“＞　

＜ｄｉｖ　ａｌｉｇｎ＝　ｌｅｆｔ‘。＞　

＜％．ｆ　ｉａ＝…‘ｔｈｅｎ　

ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ（“＜ｆｏｎｔ　ｃｏ￣ｏｒ－　＃９９００００　＞全体人员＜／ｆｏｎｔ＞”）　

ｅｌｓｅ　

ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ（ｊｇ）　

ｅｎｄ　ｉｆ　

ｒｓ２．ｃｌｏｓｅ％＞　

＜／ｄｉｖ＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ　ａｌｉｇｎ＝。’ｃｅｎｔｅｒ“ｂｏｒｄｅｒｃｏｌｏｒ＝”＃６６３３ＦＦ“ｂｇｃｏｌｏｒ＝“　

＃９９９９９９“ｃｌａｓｓ＝”ｗｘｐ。‘＞　

＜ｔｄ　ｈｅｉｇｈｔ＝…９　ｂｏｒｄｅｒｃｏｌｏｒ＝，＃９９９９ＦＦ“ｂｇｃｏｌｏｒ＝　

＃９９９９ＦＦ“ｃｌａｓｓ＝”ｗｘｐ”＞留言级别＜／ｔｄ＞　

＜ｔｄ　ｈｅｉｇｈｔ＝“９“ｃｏ／ｓｐａｎ＝”５”ｂｏｒｄｅｒｃｏｌｏｒ＝‘。＃９９９９ＦＦ”　

ｂｇｃｏｌｏｒ＝“＃ＦＦＦＦＦＦ”ｃｌａｓｓ＝”ｌｉｓｔ“＞＜ｄｉｖ　ａｌｉｇｎ＝”ｌｅｆｔ“＞＜％＝Ｒｅｃｏｒｄ　

（”ｉｌｅｖｅｌ“）％＞＜／ｄｉｖ＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ　ａｌｉｇｎ：　ｃｅｎｔｅｒ“ｂｏｒｄｅｒｃｏｌｏｒ＝“＃６６３３ＦＦ“ｂｇｃｏｌｏｒ＝“　

６６　电　与蛾　

＃９９９９９９“ｃｌａｓｓ＝＂ｗｘｐ”＞　

＜ｔｄ　ｈｅｉｇｈｔ＝“１　０“ｂｏｒｄｅｒｃｏｌｏｒ＝“＃９９９９ＦＦ“ｂｇｃｏｌｏｒ＝”　

＃９９９９ＦＦ”ｃｌａｓｓ＝　ｗｘｐ“＞留言类另０＜／ｔｄ＞　

＜ｔｄ　ｈｅｉｇｈｔ＝“１　０“ｃｏｌｓｐａｎ＝…５　ｂｏｒｄｅｒｃｏｌｏｒ＝”＃９９９９ＦＦ　

ｂｇｃｏｌｏｒ＝”＃ＦＦＦＦＦＦ”ｃｌａｓｓ＝“ｌｉｓｔ”＞＜ｄｉｖ　ａｌｉｇｎ＝”ｌｅｆｔ“＞＜％＝Ｒｅｃｏｒｄ　

（”ｔｙｐｅ“）％＞＜／ｄｉｖ＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ　ａｌｉｇｎ＝。‘ｃｅｎｔｅｒ”ｖａｌｉｇｎ＝“ｔｏｐ”ｂｏｒｄｅｒｃｏｌｏｒ＝‘‘＃６６３３ＦＦ”＞　

＜ｔｄ　ｗｉｄｔｈ：”１　５％“ｈｅｉｇｈｔ＝”１　４５“ｂｏｒｄｅｒｃｏｌｏｒ＝“＃９９９９ＦＦ”　

ｂｇｃｏｌｏｒ＝“＃９９９９ＦＦ”ｃｌａｓｓ＝　ｗｘｐ”＞留言内容＜ｂｒ＞＜／ｔｄ＞　

＜ｔｄ　ｈｅｉｇｈｔ＝”１４５“ｃｏｌｓｐａｎ＝“５　ａｌｉｇｎ＝”ｌｅｆｔ“ｂｏｒｄｅｒｃｏｌｏｒ＝“　

＃９９９９ＦＦ“＞　

＜％　

ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ（ｒｅｐＩａｃｅ（Ｒｅｃｏｒｄ（“ｉｉｎｆｏ“），ｃｈｒ（１　３），”＜ｂｒ＞”））　

％＞＜，ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ　ａｌｉｇｎ＝“ｃｅｎｔｅｒ’‘ｖａｌｉｇｎ＝。。ｔｏｐ“ｂｏｒｄｅｒｃｏｌｏｒ＝”＃６６３３ＦＦ‘。＞　

＜ｔｄ　ｗｉｄｔｈ＝“１　５％“ｈｅｉｇｈｔ＝”４４“ｂｏｒｄｅｒｃｏｌｏｒ＝“＃９９９９ＦＦ“　

ｂｇｃｏｌｏｒ＝“＃９９９９ＦＦ“ｃｌａｓｓ＝“ｗｘｐ”＞附＆ｎｂｓｐ；件＜ｂｒ＞＜／ｔｄ＞　

＜ｔｄ　ｈｅｉｇｈｔ＝“４４”ｃｏｌｓｐａｎ：“５“ａｌｉｇｎ＝‘　ｌｅｆｔ“ｂｏｒｄｅｒｃｏｌｏｒ＝’　‘

＃９９９９ＦＦ‘。＞　

＜％　

ｊｆ　Ｒｅｃｏｒｄ（　ｉａｄｄｆｉｌｅ　）＜＞“Ｎ／Ａ　ｔｈｅｎ　

ｆｉｌｅ１＝Ｒｅｃｏｒｄ（“ｉａｄｄｆｉｌｅ”）　

ｆｉ１ｅｓ：ｓｐ¨ｔ《　ｅ１，“：”）　

ｍ＝１　

ｆｏｒ　ｊ＝０　ｔｏ　ｕｂｏｕｎｄ（ｆｉｌｅｓ，１）　

ｓｔｒ＝“‘’　

ｉｆ　ｆｉｌｅｓ（ｊ）＜＞“”ｔｈｅｎ　

ｅ２＝ｓｐ¨ｔ（　ｅｓ（ｊ），ｑｉ：“）　

ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ（“附件“）　

ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ（ｍ）　

ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ（”：”）　

ｓｔｒ＝”＜ａ　ｈｒｅｆ＝　。＋ｆｉｌｅ２（１）４－　ｔａｒｇｅｔ＝＇

＿

ｂｌａｎｋ　＞”＋ｆｉｌｅ２（Ｏ）＋“＜／ａ＞“　

ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ（ｓｔｒ）　

ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ（“＜ＢＲ＞”）　

ｍ：ｍ＋１　

ｅｎｄ　ｉｆ　

ｎｅｘｔ　

ｅｎｄ　ｉｆ　

％＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ　ａｌｉｇｎ＝“ｃｅｎｔｅｒ’‘ｖａｌｉｇｎ＝“ｔｏｐ‘‘ｂｏｒｄｅｒｃｏｌｏｒ＝‘。＃６６３３ＦＦ¨）　

＜ｔｄ　ｈｅｉｇｈｔ＝”４４“ｃｏｌｓｐａｎ＝”６”ｂｏｒｄｅｒｃｏｌｏｒ＝”＃９９９９ＦＦ　

ｂｇｃｏｌｏｒ：“＃ＦＦＦＦＦＦ”ｃｌａｓｓ＝　‘ｗｘｐ”＞＜ｄｉｖ　ａｌｉｇｎ＝‘’ｌｅｆｔ　ｃｌａｓｓ＝“　

ｓｔｙｌｅ２　＞　

＜ｐ＞注：　『ｐ＞　

＜ｐ＞＜ｓｐａｎ　ｃｌａｓｓ＝”ｓｔｙｌｅ２“＞接收入中用＜ｓｐａｎ　ｃｌａｓｓ＝“　

ｓｔｙｌｅ２　＞红色＜／ｓｐａｎ＞￣Ｕ出的姓名表示未查阅：用紫色列出的姓　

名表示已经查阅！＜ｂｒ＞　

＜／ｓｐａｎ＞　

＜／ｐ＞　

……　

ＮＥＴＷＯＲＫ＆Ｃ０硼啊Ⅱ＿ＩＣ盯ＩＯＮ…………………………………………………………………………………　

＜，ｄｉｖ＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜％ｅｌｓｅ％＞　

＜ｔｒ　ａｌｉｇｎ＝　ｃｅｎｔｅｒ“ｂｏｒｄｅｒｃｏｔｏｒ＝“挣６６３３ＦＦ”ｂｇｃｏｌｏｒ＝　

＃９９９９９９＂＞　

＜ｔｄ　ｂｏｒｄｅｒｃｏｌｏｒ＝”＃９９９９ＦＦ　ｂｇｃｏｌｏｒ＝”＃９９９９ＦＦ　ｃｌａｓｓ＝”　

ｗｘｐ”＞留言主题＜／ｔｄ＞　

＜ｔｄ　ｈｅｉｇｈｔ＝“２０“ｃｏｌｓ；ｐａｎ：“　ｂｏｒｄｅｒｃｏｌｏｒ＝”群９９９９ＦＦ　

ｂｇｃｏｌｏｒ＝　！＃ＦＦＦＦＦＦ　ｃｌａｓｓ＝“ｌｉｓｔ，＞＜％＝Ｒｅｃｏｒｄ（　ｃｅｎｔ“）％＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ　ａｌｉｇｎ＝‘‘ｃｅｎｔｅｒ“ｂｏｒｄｅｒｃｏｌｏｒ＝“＃６６３３ＦＦ“ｂｇｃｏＩｏｒ＝“　

＃９９９９９９“＞　

＜ｔｄ　ｂｏｒｄｅｒｃｏｌｏｒ＝“撑９９９９Ｆ　ＦＩＩ　ｂｇｃｏｌｏｒ＝“＃９９９９ＦＦ　ｃｌａｓｓ：“　

ｗｘｐ“＞发布时间＜／ｔｄ＞　

＜ｔｄ　ｈｅｉｇｈｔ＝　２０”ｃｏｌｓｐａｎ＝“５”ｂｏｒｄｅｒｃｏｌｏｒ＝”＃９９９９ＦＦ＂　

ｂｇｃｏｌｏｒ＝”群ＦＦＦＦＦＦ“ｃｌａｓｓ＝”ｌｉｓｔ”＞＜ｄｉｖ　ａｌｉｇｎ＝”ｌｅｆｔ　＞＜ｓｐａｎ　

ｃｌａｓｓ＝”ｌｉｓｔ　＞＜％：Ｒｅｃｏｒｄ（　ｉＤａｔｅＴｉｍｅ”）％＞＜／ｓｐａｎ＞＜／ｄｉｖ＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ　ａｌｉｇｎ＝“ｃｅｎｔｅｒ“ｂｏｒｄｅｒｃｏｌｏｒ＝　群６６３３ＦＦ“ｂｇｃｏｌｏｒ：“　

＃９９９９９９．１＞　

＜ｔｄ　ｂｏｒｄｅｒｃｏｌｏｒ＝“＃９９９９ＦＦ　ｂｇｃｏｌｏｒ；”群９９９９ＦＰ　ｃｌａｓｓ＝　

ｗｘｐ“＞发布人＜／ｔｄ＞　

＜ｔｄ　ｈｅｉｇｈｔ＝”２０”ｃｏｌｓｐａｎ＝”５“ｂｏｒｄｅｒｃｏｌｏｒ：，＃９９９９ＦＦ＂　

ｂｇｃｏｌｏｒ＝“＃ＦＦＦＦＦＦ　ｃｌａｓｓ＝”ｌｉｓｔ”＞＜ｄｉｖ　ａｌｉｇｎ：　ｆｅｆｔ“＞　

＜ｄｉｖ　ａｌｉｇｎ＝　ｌｅｆｔ　＞＜％＝Ｒｅｃｏｒｄ３（“ｎａｍｅ“）％＞《，ｄｉｖ＞　

＜／ｄｉｖ＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ　ａｌｉｇｎ＝”ｃｅｎｔｅｒ“ｂｏｒｄｅｒｃｏｌｏｒ＝＂＃６６３３ＦＦ”ｂｇｃｏｌｏｒ＝　

＃９９９９９９　＞　

＜ｔｄ　ｂｏｒｄｅｒｃｏｌｏｒ　＃９９９９ＦＦ”ｂｇｃｏｌｏｒ；＂＃９９９９ＦＦ　ｃｌａｓｓ＝”　

ｗｘｐ，＞留言级别＜／ｔｄ＞　

＜ｔｄ　ｈｅｉｇｈｔ：“２０“ｃｏｌｓｐａｎ＝　５“ｂｏｒｄｅｒｃｏｌｏｒ＝“＃９９９９ＦＦ“　

ｂｇｃｏｌｏｒ＝　样ＦＦＦＦＦＦ“ｃｌａｓｓ　２“ｌｉｓｔ“＞＜ｄｉｖ　ａｌｉｇｎ＝”ｌｅｆｔ＂＞＜ｓｐａｎ　

ｃｌａｓｓ＝＂ｌｉｓｔ”＞＜％＝Ｒｅｃｏｒｄ（“ｉｌｅｖｅｌ　）％＞＜／ｓｐａｎ＞《／ｄｉｖ＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ　ａｌｉｇｎ＝，ｃｅｎｔｅｒ　ｖａ！ｉｇｎ＝，ｔｏｐ’’ｂｏｒｄｅｒｃｏｔｏｒ＝＂＃６６３３ＦＦ“＞　

＜ｔｄ　ｗｉｄｔｈ＝”１　５％“ｈｅｉｇｈｔ＝“１　４５”ｂｏｒｄｅｒｃｏｌｏｒ＝　＃９９９９ＦＦ　

ｂｇｃｏｌｏｒ＝”＃９９９９ＦＦ”ｃｌａｓｓ＝”ｗｘｐ，＞留言内容＜ｂｒ＞＜／ｔｄ＞　

＜ｔｄ　ｈｅｉｇｈｔ＝“１４５“ｃｏｌｓｐａｎ：“５”ａｌｉｇｎ＝，ｌｅｆｔ＊ｂｏｒｄｅｒｃｏｌｏｒ＝　

＃９９９９ＦＦ“＞　

＜％　

ｒｅｓｐｏｎｓｅ　ｗｒ．ｔｅ（ｒｅｐｌａｃｅ（ＲｅｃＯｒｄ（“ｉｉｎｆｏ“），ｃｈｒ（１　３），“《ｂｒ＞　））　

％＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜ｔｒ　ａｌｉｇｎ＝＂ｃｅｎｔｅ　ｒｌ　ｌｖａＩｉｇｎ＝　ｔｏｐ　ｂｏｒｄｅｒｃｏｌｏｒ＝＃６６３３ＦＦ”＞　

＜ｔｄ　ｗｉｄｔｈ＝Ｕｌ　５％　ｈｅｉｇｈｔ＝　４４　ｂｏｒｄｅｒｃｏｔｏｒ　，＃９９９９ＦＰ　

ｂｇｃｏｌｏｒ＝，＃９９９９ＦＦ“ｃｌａｓｓ＝，ｗｘｐ，＞附＆ｎｂｓｐ；件《ｂｒ＞＜／ｔｄ＞　

＜ｔｄ　ｈｅｉｇｈｔ＝！‘４４“ｃｏｌｓｐａｎ≮　５　ａｌｉｇｎ＝“ｌｅｆｔ，＞　

＜％　

＿ｆ　Ｒｅｃｏｒｄ（”ｉａｄｄｆｉｌｅ“）＜＞“Ｎ／Ａ　ｔｈｅｎ　

ｆｉ｝ｅ１＝Ｒｅｃｏｒｄ（“ｉａｄｄｆｉｌｅ　）　

ｆｉｌｅｓ＝ｓｐＩｉｔ（ｆｉｔｅ１Ｉ¨Ｉ¨）　

ｍ＝１　

＾ｏ｛＼；Ｑ　ｔｏ　ｕｂｏｕｎｄ（ｆ　ｌｅｓ，１、　

吼　一　

ｉｆ　ｅｓ　《　ｎ　ｅｎ　

ｆｉｌｅ２＝ｓｐｌｉｔ（ｆｉ　

１ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ　ｌ｝］　

ｒｅｓｐＱ　ｓｅ　ｔｅ（ｍ）　

ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ　

ｓｔｒ；“＜ａ　ｈｒｅｆ＝＂＋ｉｌｌｅ２（１）＋　ｔａｒｇｅｔ＝　＿ｂｌａｎｋ＇＞＇＋ｆｉｌｅ２（Ｏ）＋＂　＜／ａｌ＞　

ｒｅｓｐｏｎｓｅ　ｗｒｉｔｅ（ｓｔｒ）　

ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ（＂＜　ｌＲ　、　

ｍ。ｍ十　

ｅｎｄ　ｉｆ　

ｎｅｘｔ　

ｅｎｄ　ｉｆ　

％＞　＜，ｃｄ≥　

＜／ｔｒ＞　。　一　

＜殇ｅｎｄ　％　　。

＜Ｒａｂｌｅ＞　

５．５推荐管理　

ｌｅａｒｎ．ａｓｐ：分类显示推荐。　

ｆｒｅｅａｄｄ．ａｓｐ：添加推荐。　

ｄｅｌｅａｍ．ａｓｐ：推荐栏目修改。　

ｅｌｅａｒｎ．ａｓｐ：推荐删除修改。　

５．６超级管理　

ｍｌｅａＹｌ１　ａｓｐ：推荐管理。　

ｕｓｅｒｃｈｋ．ａｓｐ：用户管理。　

ｓｈｏｕｑｕ．ａｓｐ：上报文件管理。　

ｍｍ．ａｓｐ：部门管理。　

由于篇幅关系，在此省略源代码。　

５．７　系统管理　

ａｄｍｉｎ

ｄａｔａ２．ａｓｐ：数据备份。　

ａｄｍｉｎ

＿

ｄａｔａ３．ａｓｐ：数据恢复。　

ａｄｍｉｎ

＿

ｄａｔａ１．ａｓｐ：数据压缩。　

数据备份的界面如图１８所示。　

。。｜ｌ｜舔臻靠奢：鬻鞠＇ｔ鬟¨≮—髓戳《峨繁甍・　薯一■蕾。ｌ　曩叠＃。囊ｌ　

§请贽氍嚣瞄氇ｌ辔酪张　ｌ　ｉ｜｜　尊　蕞　≯叠　｜一｜　强　｜鼙＿　

罨镪搬甓苒璃　谖晦嘲　强　警’｜蝻皂謇蕊　｝Ｉ羲　噼峨　畚确　镶譬１０　０　囊０。｜　

０　备蟪梅爨寞辑繇罄ｌ摹誊％啦：　ｘｐ．艄　誊ｌ鞠　氆景穗麟壤虢睡秘器髓肇誊巍豫带瞽　。ｔ｜０　

鹊毫袖锄椎　一　。ｔ　｜　奠　ｔ０｜ｌ　■｜　＿｜　

舅　鬣曩薯｜　ｌ薯曩　｜　一　棼譬　－　誊｜≯嚣誊臻　一绣＿》聪曩｜毫糍　鼍薯　≯　

。｜　箍謦睡曦端毒羁巷秣髓箍奔赣氇垒氧　毒礴再糍赣　铀辱曦冀媾椎ｔ　舔　精　孵　婚　辅　々％　％｜　ｔ　

。　

｜　稚蒋翱翔啦整螂幅　铺蠛嚼蝴龋懿糍鞫黼　穗蝴甑囊§酶　峨舔　铀Ｉ蔫纛　蕴　。垮≮　舞｝譬誊誊诤薯警｜再毪ｔｉ薯尊鬻　瓤　｜棼鬻　ｉ　穗　

※　０辑｜｜｜书　臻蠢熬强曩　｜　

靠一｜谶　≮鞭钓鼢强嘲．４；Ｉ翰　霸嘴帮冀掩鱼鞘螃鼬璐曦醺董秘皤瑶。尊蛰ｔ　｜蠢　～　ｍ撼曩蘑≯蛐ｉ　

搏　鳓僦鞴饕曦锸饿螭　￡锑鬣　｜　｜｜Ｉ　ｔ　０　曩ｊ≯≯ｔ々　｜｜¨０。　・曩　｜ｔ｜　■氆　

图１８数据库备份　

ａｄｍｉｎ

ｄａｔａ２．ａｓｐ的部分源代码如下：　

＜％　一　

Ｄｂｐａｔｈ＝ｒｅｑｕｅｓｔ．ｆｏｒｍ（”Ｄｂｐａ￡ｈ　）。　

麓　

Ｅ　…Ｅ　Ｅ　…　＿Ｌ　ｆ…　　【…　‘　

实用第一／智慧密集　

Ｄｂｐａｔｈ＝ｓｅｒｖｅｒ．ｍａｐｐａｔｈ｛Ｄｂｐａｔｈ）　

ｂｋｆＯｌｄｅｒ＝ｒｅｑｕｅｓｔ．ｆｏｒｍ（“ｂｋｆｏｌｄｅｒ“）　

ｂｋｄｂｎａｍｅ＝ｒｅｑｕｅｓｔ．ｆＯｒｍ（　ｂｋｄｂｎａｍｅ“）　

ＣｈｅｃｋＤｉｒ＝Ｔｒｕｅ　

Ｅｌｓｅ　

不存在　

ＣｈｅｃｋＤｉｒ＝Ｆａｌｓｅ　

Ｅｎｄ　ｉｆ　

Ｓｅｔ　ｆｓｏｌ＝ｎｏｔｈｉｎｇ　

Ｅｎｄ　Ｆｕｎｃｔｉｏｎ　

一一一一一一一一

Ｓｅｔ　Ｆｓｏ＝ｓｅｒｖｅｒ．ｃｒｅａｔｅｏｂｊｅｃｔ（”ｓｃｒｉｐｔｉｎｇ．　

ｆｉｌｅｓｙｓｔｅｍｏｂｊｅｃｔ”）　

ｉｆ　ｆｓｏ．ｆｉｌｅｅ×ｉｓｔｓ（ｄｂｐａｔｈ）ｔｈｅｎ　

Ｉｆ　ＣｈｅｃｋＤｉｒ（ｂｋｆＯＩｄｅ　ｒ）＝Ｔｒｕｅ　Ｔｈｅｎ　

ｆｓｏ．ｃｏｐｙｆｌｉｅ　ｄｂｐａｔｈ．ｂｋｆｏｌｄｅｒ＆　＆ｂｋｄｂｎａｍｅ　

ｅｌｓｅ　

根据指定名称生成目录一一一一一一一一一一一一一　

Ｆｕｎｃｔｉｏｎ　ＭａｋｅＮｅｗｓＤｉｒ（ｆｏｌｄｅｒｎａｍｅ）　

ｄｉｍ　ｆ　

ＭａｋｅＮｅｗｓＤｉｒ　ｂｋｆｏｌｄｅｒ　

ｆｓｏ．ｃｏｐｙｆｉｌｅ　ｄｂｐａｔｈ．ｂｋｆｏｔｄｅｒ＆‘、＿＿＆ｂｋｄｂｎａｍｅ　

ｅｎｄ．ｆ　

Ｓｅｔ　ｆｓｏｌ＝ＣｒｅａｔｅＯｂｊｅｃｔ（”Ｓｃｒｉｐｔｉｎｇ．ＦｉｌｅＳｙｓｔｅｍＯｂｊｅｃｔ　）　

Ｓｅｔ　ｆ＝ｆｓｏ１．ＣｒｅａｔｅＦｏｌｄｅｒ（ｆｏｌｄｅｒｎａｍｅ）　

ＭａｋｅＮｅｗｓＤｉｒ＝Ｔｒｕｅ　

Ｓｅｔ　ｆｓｏｌ＝ｎｏｔｈｉｎｇ　

Ｅｎｄ　Ｆｕｎｃｔｉｏｎ　

％＞　

ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ”备份数据库成功，您备份的数　

据库路径为“＆ｂｋｆｏｌｄｅｒ＆＿、＿Ｉ＆ｂｋｄｂｎａｍｅ　

Ｅｌｓｅ　

ｒｅｓｐｏｎｓｅ．ｗｒｉｔｅ　找不到您所需要备份的文件。“　

Ｅｎｄ　ｉｆ　

６　结语　

一一一一一一一一一

检查某一目录是否存在一一一一一一一一…一一　

Ｆｕｎｃｔｉｏｎ　ＣｈｅｃｋＤｉｒ（ＦＯｌｄｅｒＰａｔｈ）　

目前．该网络办公系统已投入实际运行，经历了第二次升　

级。系统依据科学、合理、人性化的原则进行设计的。系统基　

本符合学校日常办公的需要，随着教育教学改革的不断深入，　

作为学校的办公系统也需要不断的更新。　

（收稿日期：２０１２—０７—２５）　

ｆｏｌｄｅｒｐａｔｈ＝Ｓｅｒｖｅｒ．ＭａｐＰａｔｈ（＂．＂）＆　’＆ｆｏｌｄｅｒｐａｔｈ　

Ｓｅｔ　ｆｓｏｌ＝ＣｒｅａｔｅＯｂｊｅｃｔ（“Ｓｃｒｉｐｔｉｎｇ．ＦｉｌｅＳｙｓｔｅｍＯｂｊｅｃｔ”）　

Ｉｆ　ｆｓｏ１．ＦｏＩｄｅｒＥｘｉｓｔｓ（Ｆ０ＩｄｅｒＰａｔｈ）ｔｈｅｎ　

存在　

潺搬　仑　’　菽　、　｜为鬻　

近Ｅｌ“上海普利特ＥＲＰ　Ｕ９信息化项目启动会”顺利　

毒笔争南　ｌ　ｉ　

并不断升级扩展原系统以配合快速增长的业务需要．先后　

举行，这是用友与上海普利特复合材料股份有限公司（下　

在Ｕ８基础上增加了用友ＢＩ、用友ＰＤＭ。近年普利特的组　

织架构复杂化．多组织业务协同的不足，使信息化系统整　

体更新升级，梳理流程，提高生产全过程质量管理势在必　

行。　

简称“普利特”，上市代码００２３２４）三度合作，旨在借用友　

Ｕ９在复杂组织架构和多组织业务协同下重整核心业务流　

程．优化产品全生命周期的管理，重塑核心竞争力。上海　

普利特复合材料股份有限公司总经理张祥福先生、项目经　

理吴昌先生及生产、财务、销售等关键部门的主管；用友　

软件股份有限公司上海分公司副总经理曾虎先生、Ｕ９实施　

普利特张总在致辞中表示，与用友合作这么久一直　

非常好。这两年我们逆势而上，业务不降反增的情况下　

多组织业务协同需求、多用户管理越来越突出。上Ｕ９是　

要提高生产、研发、服务计划性，释放从前过多忙于协　

调的劳动力，提高效率。切换系统是我们未来半年工作　

的重点　

部总监肖一平先生、项目实施经理李强先生等出席了项目　

启动会。　

普利特主要从事电子材料、高分子材料、橡胶材料及　

其制品等高性能材料的生产和销售，自１９９３成立以来发展　

快速，并逐渐成为汽车复合材料领域的尖兵企业；目前已　

与上海大众、上海通用、一汽大众等众多国内知名汽车制　

造商建立了业务关系，并已经成为美国福特、美国通用等　

众多跨国企业的重要合作伙伴　

据悉．此次普利特Ｕ９信息化项目将涉及到财务管理、　

项目管理、供应链、生产及质量管理等多个方面，是依据　

普利特管理者提出的“销售订单下来需要回答订单即时状　

态：产品全生命周期的管理”两个关键要求。预计新系统　

将在２０１３年４月切换上线。　

自２００６年底普利特首次牵手用友Ｕ８以来，合作良好，　

６８　毛暗２０ｉ－１囊２．蕾２　圬１与囊±ｊ《；