企业公告及资料发布系统

天津大学网络教育学院

专科毕业论文

题目：企业公告及资料发布系统

完成期限：2012年12月26日至2013年5月6日

学习中心邢台年级2011

专业计算机网络技术指导教师向萍

姓名赵岩学号111401393001

摘要

随着时代的发展，在现代企业管理中，企业获得的信息会越来越多，要发布的信息也越来越多，怎样发布最新的信息对企业的发展尤为重要。借助Internet，为企业建立一个信息管理系统，给企业信息的发布和管理提供一个电子平台，将大大提高企业的管理水平。

网络发布公告及上传资料是现在也是将来部门、企事业单位提高办公效率和机构精简改革趋势的一个必然需要。Internet逐渐进入到人们的生活当中，人们可以在闲暇时尽情地遨游在网络中，而Internet又是以网站的形式体现出来的。通过网站的访问，人们可以进行电子邮件的发送、文件传输、远程登陆、网上查询和网上交流等，足不出户便可知道外面的新闻动态。当然企事业单位更离不开信息网络传播的方式。因为企业也已不再满足传统、独立、零散的信息发布方式了，企业要的是协同工作、综合、集成化的解决方案。而网络是解决由于物理距离造成的信息交流不畅、协商沟通不便的办公瓶颈问题的最佳方式。网络信息时代将人从繁琐、无序、低端的工作中解放出来从事核心事务，整体提高了单位办事效率和对信息的可控性，降低办公成本，提高执行力，使信息交流更加畅通。同时实现远程信息交流，解决异地办公的局限性问题

关键词：OA；B/S模式；ASP

企业公告及资料发布系统

在科学技术飞速发展的今天，计算机技术作为现代科学技术的基础和核心，已经而且将继续对人类文明社会的进步与发展产生深刻影响。当前越来越多的商业、企事业单位已经将计算机技术应用于日常的信息管理工作。科学的运用计算机技术进行信息管理不仅可以使管理工作规范化、系统化、自动化而且可以节省相当的人力、物力。它能够使用户的管理工作走上良性运转轨道，从而为其快速发展奠定基础。因此各企事业单位对与本行业相关管理软件的需求也十分迫切，公告发布及资料上传系统的建立，为各级信息管理决策提供了信息支持，从根本上改善了管理人员的劳动条件和工作性质，是信息管理手段现代化的重要标志。

一、系统特点

蓬勃发展的网络也顺理成章地将ASP作为WEB应用程序的重要开发工具。采用WEB技术实现B/S（浏览器/服务器）结构的管理系统是信息网络传播的发展趋势。网络信息时代将人从繁琐、无序、低端的工作解放出来从事核心事务，整体提高了单位办事效率和对信息的可控性，降低办公成本，提高执行力，操作简单、易于维护的需求使信息交流更加畅通。同时实现远程信息交流，解决异地办公的局限性问题。其具体特点如下：

（一）通用性：基于先进的系统模型，使得系统能够适用于不同行业、不有规模的用户。

（二）易用性：B/S结构使用户端不必安装任何软件，只要有浏览器并连接到Internet即可使用，免除了非专业人员维护系统的困难。

（三）实时性:所有数据均实时处理，也可实时查询。

（四）将企业内联网和互联网有机结合，提供企业内部信息化的网络平台。（五）为企业异地办公提供全面可靠的安全解决方案。

二、ASP技术和SQL Server数据库访问方法

（一）ASP 概述

ASP（ACTIVE SERVER PAGES）是一套微软开发的服务器端脚本环境，它内含于IIS5.0和6.0之中，通过ASP我们可以结合html网页、ASP指令和ACTIVEX 元件建立动态、交互且高效的WEB服务器应用程序。有了ASP你就不必担心客户的浏览器是否能运行ASP所编写的代码，因为所有的程序都将在服务器端执行，包括所有嵌在普通中的脚本程序。当程序执行完毕后，服务器仅将执行的结果返回给客户浏览器，这样也就减轻了客户端浏览器的负担，大大提高了交互的速度。（二）ASP 的运行环境

目前 ASP 可运行在三种环境下：

1、WINDOWS NT server 4.0 运行 IIS 3.0(Internet Information Server)以上。

2、WINDOWS NT workstation 4.0 运行 Peer Web Server 3.0 以上。

3、WINDOWS 95/98 运行 PWS(Personal Web Server)。其中以 NT server 上的 IIS 功能最强，提供了对 ASP 的全面支持，是创建高速、稳定的 ASP 主页的最佳选择。

（三）ASP 的内建对象

ASP 提供了六个内建对象，供用户直接调用：

1、Application对象：负责管理所有会话信息，可用来在指定的应用程序的所有用户之间共享信息。

2、Session 对象：存贮特定用户的会话信息，只被该用户访问，当用户在不同 WEB 页面跳转时，Session 中的变量在用户整个会话过程中一直保存。Session对象需 cookie 支持。

3、Request 对象：从用户端取得信息传递给服务器，是 ASP 读取用户输入的主要方法。

4、Response 对象：服务器将输出内容发送到用户端。

5、Server 对象：提供对服务器有关方法和属性的访问。

6、Object Context 对象：IIS 4.0 新增的对象，用来进行事务处理。此项功能需得到 MTS(Microsoft Transcation Server)管理的支持。

三、系统分析和设计

（一）需求分析

由于企业均以文件发布、收集，工作报告，信息档案等为主要信息传递方式。通过对现代企业信息传递的调查，发现有相当一部分中、小型企业仍以传统的通过纸张为媒介的方式来传递信息。尽管各个企业单位部门的业务和职能各不相同，管理方法不同，且企业内部的具体需求也存在差异，但经与各管理人员交流后，他们都认识到应该具备，且必须具备与企业发展相适应的网络信息传递方法的必要性。比如，提交工作报告，它能使企业各个部门实现信息资料互通,在不同的地方把自己的工作计划，工作总结等资料同时通过网络提交给管理人员，避免了以纸张交流信息的繁琐过程。这样才能提高工作效率，协调各项工作，促进建立和谐人际关系，使企业内部信息更加快捷流通。我们就提出一种新的信息传递方法，既能满足当前企业需要，操作简单，易于维护，且为二次开发提供了可扩充性。如何实现利用现代网络技术传递信息，成为解决问题的关键。

企业网络信息传递一般流程为信息输入→信息管理→信息分类别管理→信息输出。

1、数据流图

根据的数据流向，即可画出系统数据流图。如图1所示：

图1系统数据流图

2、数据字典

根据系统数据流图可以给出相关处理信息的数据字典，以便查询数据流图中的数据项。下面指出了查看用户信息的数据字典如表1。

表1查看用户信息的数据字典

数 据 项

系统名：企业公告及资料发布系统 编号：I001 名称：查看用户信息 别名：

数据项值： 类型：文本型 长度：100个字节 取值范围：

简述： 如果是本企业内部，管理员登陆可添加、删除、修改。 修改记录： 编写 日期 审核

日期

3、功能需求

一般情况下，企业内的信息涉及到企业的机密，在企业信息利用网络传递信息过程中，首先应确保整个交流过程的安全性，即需要一个专门的验证用户的合法性，防止非法用户侵入，实行权限控制、存储和传输加密以及电子签名，这样来保证信息的安全性。安全性控制这个先决性条件解决后，企业对内、对外的信息传递才能更好地实现。比如：公告发布和提交工作报告。对于公告发布企业管理人员能及时向外部发布产品、人才供求信息，以取得更多的商机和更多的优秀人才，实现网络信息服务的远程交流，并在企业内部对各级部门职工发布管理信息及近期部门的工作安排，重大会议及活动。对于提交工作报告即文件资料上传，文件资料上传是企业信息化中一个非常重要的功能之一,它能使企业各个部门实

系统管理员 分 配 系 统

账号和权限

系统账号权

登录

用户信息管理 公告信息

公告信息表

留言信息管理

留言信息表 部门信息表 部门信息

文件 管理

工作报告信息

用户 修改 信息

用户信息表

姓名密码

查询

用户信息

现信息资料互通,在不同的地方把企业需要的通知、公告、文件、档案等资料同时上传到一个服务器上，每个部门不需要人为的到别的部门提取资料，而在网上就能通过对方上传的文件进行下载，对企业内远程工作来说，只要把处理好的文档资料，通过WEB服务器实现及时上传，也同样可以共享信息资料，了解企业内部当前的工作进度与状况。而不是传统意义上的先在客户或办事点整理好文档后再回到公司交给相关部门，最后再与客户进行联系。系统的实现既降低了企业成本开销和负但，也大大提高了工作效率。

4、业务流程

通过以上的数据流图的数据流向分析和简单的功能需求分析，我们可以得到实现该系统的业务流程。

本系统采用基于数据库的动态信息发布技术，可以实现企业发布最新消息，个人提交工作报告，实现管理员及用户分级化的管理，以确保企业信息的安全性。

企业公告及资料发布贯穿于企业信息传递的整个过程，在这个过程中，各项业务都有自己的操作流程。企业的用户主要有管理员、企业员工、访客，他们以不同的身份登录系统，会分配到不同的权限。

以管理员身份登录系统之后，可以发布企业新闻，维护员工的基本信息，维护企业运转基本信息，维护业务的安排，维护企业待解决问题提议方案，对企业的用户进行管理，创建企业员工的登录账号，修改用户密码；对企业的部门、用户提交的工作报告、公告信息、管理员、留言薄进行管理。只有管理员赋予了企业员工的登录账号和基本信息、任职安排之后，员工才能正常登录系统，进行用户权限的操作。

在管理员创建了员工的登录账号之后，员工可以根据管理员设定的账号、密码登录，成功登录后可以对自己的个人信息进行修改，可以查看企业通知，同时查看自己任职的信息，工作安排，提交个人工作报告等，并可以通过留言板提出对企业的意见和建议，以促进企业以人为本的和谐发展。

（二）总体设计

1、软件的运行环境设计

为了保证系统运行的效率和可靠性，服务器端应具有较高软硬件配置，客户端的要求不需要很高。此应用程序可广泛运行于Internet，也适用于内部的局域网。运行配置要求如表2：

表2运行配置要求

最低配置建议配置

CPU:Pentium 3 600 CPU:Pentium 4 2.0 G以上

内存128MB 内存:512 MB或更多

56KB拨号网络宽带网络

显示分辨率: 800 X 600

显示分辨率:1024 X 768 IE 5.0以上 IE 6.0、7.0或更高 Windows98

Windows2000、XP 或以上

2、系统模块设计

根据功能需求分析和业务流程分析，对系统各功能进行集中、分块，按照结构化程序设计的要求，本系统的系统功能模块图如图2所示：

图2 企业公告及资料发布系统功能模块示意图

3、系统的流程分析

整个系统流程设计是根据系统从初始录入数据阶段到对其它功能模块进行操作时的流程，如图3系统流程图：

企业公告及资料上传系统

修改个人信息

用户管理

提交工作报告 查看公告

留 言 管理员管理

公告信息管理

管理员信息管理

部门管理

提交报告管理

用户信息管理

修改初始密码

修改个人其它信息

留言薄管理

添加首页公告

修改、删除公告 下载、删除报告

报告分级管理

添加、删除用户

查询用户

添加、修改部门

添加、删除管理

添加、删除留言

回复留言

登录

图3 系统流程图

4、概念结构设计

针对以上对系统的需求分析，为了更好地对系统的总体要求及各权限用户的有更加明确的方向，现将系统E —R 图表述如图4：

图4系统E —R 图

系统E —R 图的各实体的属性如下：

管理 管理员 1

部门

公告信息 留言簿

N

N

N 用户

管理 管理

1

1 1 N 用户信息

1

N

查看

修改

属于

1

N

N

否

是

用户

管理员

N

身份判断？

登录

处理职工信息

处理管理员信

处理公告信息

处理报告信息

管理员信息管

提交报告管理

公告信息管理

职工 信息管理

是否继续

修改个人信息

下载资料

提交工作报告

查看公告

否 是

其它信息修改

初始密码 修改

是否继续

部门信息管理

Y

处理部门信息

用户 结束

结束

发表

用户信息(如图5)：编号，姓名，密码，所在部门，电话，电子邮件， 地址

文件信息(如图6)：文件号，文件名，文件内容，发送时间，文件类型，所属部门，主题，路径

公告信息(如图7)：编号，公告标题，内容，发送时间 管理员信息(如图8)：编号，密码，姓名

留言薄信息(如图9)：编号，标题，留言者姓名，内容，留言时间 部门信息(如图10)：部门名，负责人，联系方式 根据各实体的属性，得到各实体的数据表关系图如下： 用户信息表关系图：

图5用户信息

文件信息表关系图：

图6文件信息

公告信息表关系图：

图7公告信息

管理员信息关系图：

文件号

文件内容

文件时间 文件类型

文件信息

用户

密码

所在部门

地址

电话 电子邮件

性别

公告信息 公告名

文件内容 发送时间

文件类型

编号

姓名

文件名

图8管理员信息

留言薄信息关系图：

图9留言薄信息

部门信息表关系图：

图10部门信息

5、数据库逻辑结构设计

通过需求分析和E-R 图的关系模型结构分析以后，需要将数据库概念结构转化为SQL Server 2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。在实体以及实体之间关系的基础上，形成数据库中的表格以及各个表格之间的关系。企业公告及资料上传系统数据库中共有六张表：用户信息表如表3、管理员信息表如表4、上传文件信息表如表5、公告发布信息表如表6、留言薄如表7、部门信息表如表8。

下面分别介绍这些表的物理结构：

表3用户信息表(Userinforma)

字段名 描述 类型 长度 是否充许为空 主键 User_name

用户名 char 8 否 是 Psw 密码 char 10 否 否 business

职务

char

10

否

否

部门信息

部门名

负责人

联系方式

留言薄信息

编号

标题

留言时间

内容

留言者姓名

管理员信息

编号

密码

姓名

department 工作部门char 10 否否address 用户住址nvarchar 50 是否

char 10 是否phone 用户联系电

话

表4管理员信息表(addminforma)

字段名描述类型长度是否充许

主键

为空name 管理员名char 8 否是

Psw 密码char 10 否否

表5上传文件信息表(doc_informa)

字段名描述类型长度是否充许为

主键

空

Doc_name 上传文件名nvarchar 50 否是

nvarchar 50 否否dep 上传文件的

部门

context 上传文件说

char 100 否否

明

nvchar 50 是否subject 上传文件主

题

Doc_size 上传文件的

binary 50 是否

长度

nvchar 50 是否Doc_type 上传文件类

型

nvarchar 50 是否path 上传文件的

路径

表6公告信息表(gginforma)

字段名描述类型长度是否充许为

主键

空id 公告号int 2 否是title 公告标题nvarchar 50 否否context 公告内容nvarchar 50 否否time 发送公告时间datetime 8 否否

表7留言薄(message)

主键字段名描述类型长度是否充许

为空

id 留言号数 int 4 否 是 User_name 留言者姓名

char 10 否 否 title 留言标题 char 50 否 否 User_text 留言内容 char 100 否 否 User_time 留言时间 datatime 8

否

否 表8部门信息表(dep)

字段名 描述 类型 长度 是否充许为

空

主键 bm 部门名 char 10 否 否 jl 负责人 nchar 10 是 否 phone

联系方式

char

11

是

否

四、系统详细设计和实现 （一）详细设计

1、用户、管理员登陆模块

在企业公告及资料（公文）发布系统中，用户及管理员登陆模块用来验证用户的合法性，防止非法用户侵入、权限控制、存储和传输加密以及电子签名，以确保系统的安全性。一般情况下，企业内所处理的信息涉及企业的机密，而且不同的办公人员对办公信息的处理权限也是不同的，因此，安全性控制功能应该是系统得以投入使用的先决条件。其具体实现流程图如图11：

图11登陆子系统流程图

2、公告发布模块

了解到市场及企业的需要，系统管理员及时向外部发布产品、人才供求信息，以取得更多的商机和更多的优秀人才。实现网络信息服务的远程交流。系统管理员在企业内部发布重要通知或公告。各级部门职工管理信息的发布及近期部门的工作安排，重大会议及活动。单位内部职员通过点击查看企业内部所发部的紧急通知，会议通知等消息。查看的内容包括公告主题、公告发布人、公告发布时间、公告内容等详细内容，满足企业内部信息交流。其具体实现流程图如图12：

登录

用户权限操作 管理员权限操作

用户信息表管理员信息表

用户

管理员

图12公告子系统流程图

3、提交工作报告模块

提交工作报告即文件上传。文件上传是企业信息化中一个非常重要的功能之一,它能使企业各个部门实现信息资料互通,在不同的地方把企业需要的通知、公告、文件、档案等资料同时上传到一个服务器上，每个部门不需要人为的到别的部门提取资料，而在网上就能通过对方上传的文件进行下载，另外还对上传和下载实现编号、权限和分类管理即分部门管理，使用文件共享更加安全合理。文件上传下载实现的不仅仅是资料意义上的共享，还可以有效降低企业成本、提高效率。该软件是基于B/S 结构模式开发的，任何能连入Internet 网络的计算机都能登录该系统，在异地或外地，甚至与公司间相隔千里办公，只要把处理好的文档资料，通过WEB 服务器实现即时上传，也一样可以共享信息资料，让企业内部了解当前的工作进度与状况。而不是传统意义上的先在客户或办事点整理好文档后再回到公司交给相关部门，最后在与客户进行联系，这样既增加了企业成本开销和负担，也大大降低了工作效率。而且上传的格式文件除支持.doc 文件外，还支持其它多种格式，比如上传视频文件、音乐文件、工具软件等，都是可以根据实际需要而进行的。总的来说，文件上传就是一个实现资源共享，提高企业信息化的有效途径。其具体实现流程图如图13：

公告发布 添加公告

修改公告

删除公告

查看公告信息

公告表

用户 管理员

图13提交工作报告子系统流程图

4、修改个人信息，此模块部分用来确保用户信息的安全，登陆用户可修改自己的个人信息资料，如电话号码，登录密码等。

5、系统管理模块，对于任何一个管理系统来说，系统管理部分是整个系统的核心操作部分。当然对于企业公告及资料（公文）发布系统也是如此。系统管理的好与否决定着整个系统的是否稳定。那么，对于企业公告及资料（公文）发布系统的系统管理模块部分应做好如下的管理工作： （1）公告信息管理

公告信息管理是管理员对首页公告信息的修改、删除、更新的操作。管理员可以通过从数据库的公告信息表中提取出数据，将公告信息发布到首页，以便企业中职员及部门能及时看到，以免错过紧急事务。 （2）用户信息管理

系统管理员能够查询在职用户，添加新增用户的信息、删除离职人员的信息、更新在职人员需修改的相关信息，同时关赋予用户所具有的操作权限。 （3）部门信息管理

部门是企业生存的一个载体。系统管理员对部门有添加、修改、删除的管理功能，同时能够对部门发送资料（公文），并对部门所上传的资料（公文）能做相应的回复的。 （4）文件信息管理

系统管理员对文件具有添加、修改、删除的操作的权限。并同时对各部门的文件进行分类的管理。以确保各部门信息资料的准确性和安全性，管理员能够将各个不同部门上传及所能下载到的资料（公文）分类分别存放到各个部门的文件夹当中。其具体实现流程图如图14：

提交工作报告

提交到部门

下载资料

删除报告

下载报告

上传报告

公告信息表

管理员

用户

图14系统管理子系统流程图

（二）系统实现 1、系统主界面的实现

通过以上详细的需求分析，及各模块的设计要求，现将各部分功能的相关界面截图及实现代码进行详细说明。系统主界面截图如图15：

图15系统主界面

2、ASP 访问数据库实现

对于动态系统的实现，ASP 访问数据库的一个关键技术是ADO 技术，主要的操作就是对数据库中数据的操作，在对数据的操作之前必前先与数据库建立连接。

<%

set conn=server.createobject("adodb.connection") conn.connectionstring="dsn=xh;uid=xh;pwd=xh" conn.open

系统管理

公告信息管理

用户信息管理

部门信息管理

管理员管理

报告信息管理

公告表

用户表

部门表

文件表

管理员

管理员表

set rs=server.CreateObject("adodb.recordset") %>

3、登录模块实现

用户登陆(ulandok.asp)

用户登录时采用的身份验证算法如图16所示：

图16用户身份验证

其实现代码： while not rs.eof

user=trim(Request.form(“username”)) ‘获取用户名 password=trim(Request.form(“password”)) ‘获取密码

if (trim(rs(“name”))=user and password=trim(rs(“password”))) then

‘判断输入的用户名与密码是否正确 session(“name”)=rs(“name”)

response.redirect “fram .asp” ‘登陆成功跳转至fram.asp else rs.movenext end if wend

response.Write ”输入错误，请重新输入！”

4、用户管理模块的实现

添加用户(adduserdb.asp)

'--------------接受数据-----------

user_name=trim(Request.Form("username")) '用户名 pwd=trim(request.Form("password1")) '密码 okpwd=trim(request.Form("password2")) '确认密码

跳转到用户

输入用户名和密码

两者是否为空

两者是否正确

密码错误或无用户

两者均不能为空 是

否

否 是

否

business=trim(request.Form("business")) '职务

department=trim(request.Form("department")) '所属部门

E_mail=trim(request.Form("Email")) '电子邮件

phone=trim(request.Form("phone")) '联系电话

address=trim(request.Form("place")) '住址

if E_mail="" then

E_mail="未知"

end if

在添加新用户的信息时，如果是这几种信息未加入时，则添加成功的页面中这一条用户信息显示为“未知”。

if phone="" then

phone="未知"

end if

if place="" then

place="未知"

end if

if user_name="" or pwd="" or okpwd="" or business="" or department="" then

Response.write""

else

if pwd=okpwd then

'判断在添加用户时输入的密码与确认密码是否一致，如果一致则将新输入的用户信息插入到用户信息表（userinforma）中,否则不能添加。

conn.execute("insert into userinforma values('"&user_name&"','"&pwd&"','"&business&"','"&department&"', '"&E_mail&"','"&phone&"','"&address&"')")

else

Response.write""

end if

end if

%>

修改用户信息(modifyuser.asp)

在企业中为了能确保用户个人信息的安全性及准确性，用户有权更改自己的

个人信息。

if pwd1=pwd2 then

'判断在用户在修改个人的资料信息时输入的密码与确认密码是否一致，如果一致则将允许用户修改个人的资料信息,否则不能修改。

set rst=server.CreateObject("adodb.recordset")

rst.open "update userinforma set pwd='"&pwd1&"',E_mail='"&E_mail&"',address='"&address&"',phone='"

&phone&"' where user_name='"&user_name&"'",conn

set rst=nothing

else

Response.write""

end if

删除用户信息

sql="delete from userinforma where user_name='"&user_name&"'"

conn.execute sql

5、公告管理模块

公告管理模块是实现首页公告信息的管理，当有新的公告由管理员添加到数据库时，首页的公告信息会自动更新，方便企业内部能及时获得公告消息。

添加首页公告

<%

rs.PageSize = 25

rs.CursorLocation = 3 ‘记录下载到浏览器端

rs.open sql,conn, 2,2

pre = true

last = true

page = trim(Request.QueryString(“page”)

if len(page) = 0 then

intpage = 1

pre = false

else

if cint(page) =< 1 then

intpage = 1

pre = false

else

if cint(page) >= rs.PageCount then ‘pagecount返回recordset对象的分页总数

intpage = rs.PageCount

last = false

else

intpage = cint(page)

end if

end if

end if

if not rs.eof then

rs.AbsolutePage = intpage ‘当recordset对象有设置分页时，absolutepage会返回目前的页码

end if

for i=1 to rs.PageSize ‘挡recordset对象内有设置分页时，pagesize 为每页的记录条数

if rs.EOF or rs.BOF then exit for

%>

6、文件管理模块

保存上传文件(add_docok.asp)

<%

set conn=server.createobject("adodb.connection")

conn.connectionstring="dsn=xh;uid=xh;pwd=xh"

conn.open

dim filepath '定义文件路径变量

dim fileext '定义文件简介变量

dim file_subject '定义文件主题变量

dim errflag '定义出错标识

dim errnumber

dim savepath '定义文件保存路径变量

dim maxfilesize '定义文件大小

dim bm

savepath="savepath" '虚拟路径（后面不加“/”）符号

maxfilesize=5*1024 限制上传的文件为5MB

errflag=false

filepath=savepath '使用虚拟路径进行赋值

filepath=server.MapPath(filepath) '将虚拟路径转换为磁盘路径

fileext==GetFromVal("fileext") '取得文件介绍

errnumber==GetFromVal("errnumber")

bm=GetFromVal("bm") '取得部门名

errnumber=cint(errnumber)

if len(trim(file_subject))=0 then

response.Write"文件主题不能为空！"

response.End

end if

if len(trim(fileext))=0 then

fileext="无简介！"

end if

upfilename=SaveFile("fruit",filepath,maxfilesize,errnumber,1) '保存并取得文件名

select case trim(upfilename)

case "patherror"

msg="错误：指定的路径不存在!"