ASP网络多功能办公系统设计与实现

       互联网的出现与迅速发展，信息技术步伐的加快，使得企业面临着众多的挑战与竞争，在竞争过程中，对于一个集团企业而言，对信息的掌握程度、信息获取是否及时、信息能否得到充分的利用、对信息的反应是否敏感准确，也越来越成为衡量一个企业市场竞争能力的重要因素。随着中国加入WTO，各行各业都在努力提高自身的竞争力，各企业根据自身发展的多方需要，进行有关的改革，企业信息化管理进程的加快都在说明一个趋势：传统以红头文件为主的、强调公文处理的办公自动化将从主导地位逐渐减弱，以强调信息服务、知识管理为主的企业信息服务系统将逐渐代替原有的办公自动化。商场如战场，新一代的战争是信息化战争，如何通过互联网这一利器，使企业信息化建设完善起来，这就需要一种高效、稳定的办公自动化系统！

      人们普遍使用计算机来提高个人工作效率，但是在需要许多人一起协同工作的现代工作环境中，我们更需要提高我们的整体工作效率。利用网络通讯基础及先进的网络应用平台，建设一个安全、可靠、开放、高效的信息网络和办公自动化、信息管理电子化系统，为管理部门提供现代化的日常办公条件及丰富的综合信息服务，实现档案管理自动化和办公事务处理自动化，以提高办公效率和管理水平，实现企业各部门日常业务工作的规范化、电子化、标准化，增强档案部门文书档案、人事档案、 财务档案等档案的可管理性，实现信息的在线查询、借阅。最终实现“无纸”办公。在网络应用日益普及的今天，无纸化网络办公是目前企事业单位提高办公效率和机构精简改革趋势的一个重要要求。采用无纸化网络办公不仅可以实现资源的共享、提高办公效率，而且也可以使工作人员的办公更加轻松自如，同时也节减了许多不必要的开支。无纸化网络办公系统具有众多优点，已经越来越多地进入到各级单位的日常工作中。系统开发主要包括前台界面的设计和后台数据库的设计。

本次的任务是，构建一个网络多功能办公系统，采用的主要技术是基于IIS服务器端的ASP、IIS的组件、网页编程语言HTML、数据库以Microsoft Office 的Access为平台以及链接数据库ODBC。

1.1   HTML

HTML是用来表示Web文档的规范，它使用标记来确定网页显示的格式静态网页是标准的HTML文件，动态网页经过应用程序服务器的处理后也将生成标准的HTML文件。

1.1.1  HTML的工作原理

HTML是一种规范，是用于Web文档的格式语言。HTML通过标记（Tag）来标记要显示的网页中的各个部分。以告诉Web浏览器应该如何显示网页，既确定网页内容的格式。浏览器按照顺序阅读HTML文件，然后根据内容附近的HTML标记来解释和显示各种内容，这个过程称为语法分析。

1.1.2  HTML文档的基本结构

HTML文档的基本结构可以表示如下：

         

            

                

            

            

                     文本、图像、动画、HTML指令等

            

        

1.1.3  HTML标记

 1．HTML文档标记

 格式：…标志文件开始和结尾的标记。

 2．HTML文件头标记

 格式：…用于包含文件的基本信息。

 3．HTML文件主体标记

 格式：…文件主体标记。 

 注意：与为独立的两个部分，不能互相嵌套。

1.1.4设置的属性

格式：----

功能：文件主体标记，其中包含了Web文档的内容。

属性：

BACKGROUD:设置网页背景。

BGCOLOR: 设置网页的背景颜色。

TEXT: 设置网页文本颜色。

LINK: 设置网页链接的颜色。

VLINK: 设置网页已被访问过的链接的颜色。

ALINK: 设置网页正被选中的链接的颜色。

BGPROPERTIES: 设置背景是否随滚动条滚动。

LEFTMARGIN: 设置网页左右边的空白。

TOPMARGIN设置网页上下方的空白。

ONLOAD: 设置网页首次加载时调用的事件处理程序。

ONUNLOAD: 设置网页卸载时调用的事件处理程序。

1.1.5  段落格式化

1．标题标记

格式：

…

，

…

…

…

设置各种大小不同标题的标记。

2．段落标记

格式：

…

设置段落标记。

3．预定格式标记

格式：

…

在浏览器中浏览时，按照文档中预先排好的形式显示内容。

4．分区显示标记

格式：

…

分区显示标记。

5．词标记

           

格式：
强制进行换行标记。  

6．注释标记

格式：注释标记。

1.1.6插入图像

图像在网页设计中是必不可少的，所以用户应掌握在网页中操作图像的方法。

 格式：…

 功能：在网页中加入图像。

1.1.7 超连接

超连接是由源端点到目的端点的一种跳转。

按照目标端点的不同。可以分为以下几种：

文件连接：这种连接的目标是一个文件，它可以位于当前网页的服务器，也可以位于其他服务器。

锚连接:这种连接的目标是网页的一个位置，通过这种连接可以从当前网页跳转本网页或其他网页的某个位置。

E-mail连接：通过这种连接可以启动电子邮件客户端程序，并允许访问者向指定的地点发邮件。

 格式：…

创建锚点

创建锚点连接：

…

1.1.8表单

 HTML表单(Form)是HTML的一个重要部分，主要用于采集和提交用户输入的信息。

学习HTML表单(Form)关键要掌握的有三个要点:

表单控件(Form Controls)

Action

 Method

先说表单控件(Form Controls)，通过HTML表单的各种控件，用户可以输入文字信息，或者从选项中选择，以及做提交的操作。

用户填入表单的信息总是需要程序来进行处理，表单里的action就指明了处理表单信息的文件。

至于method，表示了发送表单信息的方式。method有两个值：get和post。get的方式是将表单控件的name/value信息经过编码之后，通过URL发送(你可以在地址栏里看到)。而post则将表单的内容通过http发送，你在地址栏看不到表单的提交信息。那什么时候用get，什么时候用post呢？一般是这样来判断的，如果只是为取得和显示数据，用get；一旦涉及数据的保存和更新，那么建议用post。

1.1.9表格

HTML表格用

表示。一个表格可以分成很多行(row)，用表示；每行又可以分成很多单元格(cell)，用

表示。…创建表格，可用于数据表或控制你网页的布局，定义单元格，…设计表内的一行。 1.2  VBscript VBScript是程序开发语言Visual Basic家族的最新成员，可以将灵活的脚本应用于更广泛的领域，包括Microsoft Internet Explorer中的Web客户端脚本和Microsoft Internet Information Server中的Web服务器端脚本。 1.2.1   VBScript代码的基本格式 一般ASP程序都是将VBScript代码放在服务器端执行的，此时有两种方法。 方法一：<%VBScript%> 方法二： 1.2.2   数据类型  在VBScript语言中只有一种数据类型，即Variant，这种数据类型可以包含不同类别的信息，它也是VBScript中所有函数的返回值的数据类型。Variant是一种特殊的数据类型，根据不同的使用方式，它可以包含不同的数据类别信息，这些不同的数据类别称为数据子类型。具体如下表 … 子类型 说明 String 其值是变长字符串类型，最大长度可谓20亿个字符 Byte 其值是0到255之间的无符号整数 Integer 其值是-32768到32767之间的带符号的整数 Long 取值范围是-2147483648到2147483647之间的长整型整数 Single 其值是单精度浮点数。 Double 其值是单精度浮点数。 Date 其值是代表某个日期和时间的数字。 Boolean 其值是True和False的布尔型 Currence 取值范围是-922337203685477.5808到922337203685477.5807 Empty 未初始化变量 Null 不包含任何有效数据的变量 Object 包含一个对象 （1）常量 常量时在程序执行期间其值不发生变化的数据。在VBScript中，常量分为普通常量和符号常量。常量的命名规则和一般的程序设计语言一样，可以使用字母、数字、下划线等字符，但每一个字母必须是英文字母，中间不能有标点符号和运算符号，长度不能超过255个字符。 1）普通常量 普通常量分为字符串常量和数值常量两种。 字符串常量简称字符串，它由一对双引号括起来的字符序列所组成，其中可以包含字母、汉字、数字，空格以及标点符号等，长度不超过20亿个字符。 　　数值常量分为整型数、长整型数和浮点数。 　　整型数和长整型数都可以用十进制、十六进制和八进制三种形式来表示。使用十六进制数时，应在数字前面加上&H前缀；使用八进制数时，应在数字前面加上&O前缀。对于长整型数，使用十六进制或八进制形式表示时，还要在数字后面加上后缀&。 　　 浮点数也称为实型数，分为单精度浮点数和双精度浮点数。浮点数可以用小数形式表示，也可以用科学记数法表示。 2）符号常量 符号常量是用一个标识符表示的常量，用于代替数字或字符串，其值从发生不改变。在VBScript中，符号常量分为预定义符号常量和用户自定义常量。 　　VBScript提供了许多预定义符号常量，在编写脚本代码时无须声明即可直接使用。例如，vbCrLf表示回车符和换行符的组合，vbGreen表示绿色的数值。 3）用户自定义常量。 可以使用 const 语句在 vbscript 中创建用户自定义常数。（const修饰符可以把对象转变成常数对象，意思就就是说利用const进行修饰的变量的值在程序的任意位置将不能再被修改，就如同常数一样使用） 注意：不能使用的VBScript的关键字，就是Dim、Sub、End、Request等VBScript使用的一些特殊字符串。 （2）变量 变量时一种使用方便的占位符，用于引用计算机的内存地址，该地址可以存储脚本运行时可更改的数据。 1）声明变量 变量的声明包括显式声明、隐式声明和强制显式声明。 在VBScript中，通常使用Dim语句显式声明变量并分配存储空间，语法格式如下： 　　 Dim 变量名[, 变量名] 此外，也可以通过直接在脚本中使用变量名这种方式隐式声明变量。但这通常不是一个好习惯，因为这样有时会由于变量名被拼错而导致在运行脚本时出现意外的结果。 若要强制显式声明所有变量，可以在脚本程序的开头处使用下面的语句： 　　 Option Explicit （3）VBSript数组   所谓数组，存储在内存中的用来包含数据的一组地址的名字。 1）声明数组 a.静态数组   静态数组可以分为一维数组、二维数组或多维数组。数组的数维和大小由数组名之后紧跟的括号中的数字的个数和数值的大小来决定的。 b动态数组   动态数组是在程序运行时数组大小发生变化的数组，对动态数组的最初声名可以使用Dim语句或ReDim语句来实现，但括号中不能包含任何数字。 （4）vbscript 运算符 vbscript 有一套完整的运算符，包括算术运算符、比较运算符、连接运算符和逻辑运算符。 当表达式包含多个运算符时，将按预定顺序计算每一部分，这个顺序被称为运算符优先级。可以使用括号越过这种优先级顺序，强制首先计算表达式的某些部分。运算时，总是先执行括号中的运算符，然后再执行括号外的运算符。但是，在括号中仍遵循标准运算符优先级。 当表达式包含多种运算符时，首先计算算术运算符，然后计算比较运算符，最后计算逻辑运算符。所有比较运算符的优先级相同，即按照从左到右的顺序计算比较运算符。算术运算符和逻辑运算符的优先级如下所示： 算术运算符   比较运算符   逻辑运算符    各种运算符及说明： 描述     符号     描述       符号      描述           符号 求幂       ^      等于        =       逻辑非          not 负号      -      不等于       <>      逻辑与         and 乘        *      小于         <       逻辑或         or 除        /     大于          >      逻辑异或        xor 整除      /    小于等于      <=      逻辑等价        eqv 求余     mod   大于等于      >=      逻辑隐含        imp 加       +                        对象引用比较        is        减        -                        字符串连接           &             （5）Vbscript函数 所谓函数，类似于过去所学的三角函数，就是别人将一些复杂的功能编成了一个函数，你不需要知道函数内部是怎么计算的，只要会使用就行。恰当的使用已有的函数可以节省大量的时间。下面介绍常用的几种VBScript中的函数。 1．转换函数 通过转换函数将子数据类型转换成需要的数据类型。 2．字符串函数 在VBScript中，包含很多处理字符串的函数，主要功能是：删除字符串前后的空格符、比较两个字符串、转换字符串的大小写字母等。 3．日期和时间函数 在VBScript中，可以使用日期和时间函数来得到各种样式的日期和时间。 （6）Vbscript过程 VBScript中，过程有两种，一种是Sub 过程，一种是Function函数。Sub 过程只执行程序而不返回值，而Function函数可以将执行代码的结果返回给请求程序。 1．Sub 过程 Sub 过程是包含在 Sub 和 End Sub 语句之间的一组 VBScript 语句，执行操作但不返回值。Sub 过程可以使用参数（由调用过程传递的常数、变量或表达式）。 语法如下： Sub 过程名 (参数1,参数2,…) … End Sub 说明： 其中参数是指由调用过程传递的常数、变量或表达式。如果 Sub 过程无任何参数，则 Sub 语句必须包含空括号 ( )。 Sub 过程名 ( ) … End Sub 2．Function 函数 Function函数，是包含在 Function 和 End Function 语句之间的一组 VBScript 语句。Function函数与 Sub 过程类似，但是 Function函数可以返回值。Function 函数可以使用参数（由调用过程传递的常数、变量或表达式）。如果 Function 函数无任何参数，则 Function 语句必须包含空括号 ( )。Function函数通过函数名返回一个值，这个值是在过程的语句中赋给函数名的。Function 返回值的数据类型总是 Variant。 语法如下： Function 函数名 (参数1,参数2...) … End Function 1.3 Asp内置对象 ASP的内置对象是嵌入在系统中的一组共享代码，他是由系统开发商根据Web应用程序的需要，将一些常用的操作代码经过优化得来的。 1.3.1  Request对象 接收客户端在请求一个页面或传送一个表单时提供的所有信息，包括能够标识浏览器和用户的HTTP变量、Cookie信息以及附在URL后面的值（查询字符串或表单数据）。 （1）Request对象的获取方法 （2）Request对象的属性 Request对象唯一的属性，它提供关于用户请求的字节数量的信息，它很少用于ASP页，我们通常关注指定值而不是整个请求字符串。 TotalBytes 只读，返回由客户端发出的请求的整个字节数量。 （3）Request对象的方法 Request对象只有一个方法：即BinaryRead。该方法以二进制方式来读取客户端使用POST传送方法所传递的数据。 1.3.1  Response对象介绍 用于向客户端浏览器发送信息，或者将访问者转移到另一个网址，并可以设置和控制Cookie信息等。 （1）Response对象的集合 Response对象只有一个集合，即Cookies集合。 （2）Response对象的方法 方法 说明 Write Response对象中最常见的方法，用来送出信息给客户端 Redirect 引导客户端浏览器至新的Web页面，前面已经作国星系介绍 Binary Wrtie 输出二进制信息 End 终止处理ASP并返回当时的状况 Flush 立刻送出缓冲区的HTML数据 Buffer 设置为缓冲信息。取值为True或False contenttype 控制送出的文件类型 Clear 清除在缓冲区的所有HTML页面 （3）Response对象的属性 属性 说明 Buffer 设置为缓冲信息，取值为Tue或Flse,默认为Flse CntenType 控制送出的文件类型 1.3.5  Session对象： 存储一个会话内的信息。Session对象是在每一位访问者从Web站点或Web应用程序中首次请求一个ASP页时创建的，它将保留到默认的期限结束或者通过脚本设置中止的期限。    （1）Session工作作原理 在一个应用程序中，当客户端启动一个Session时，ASP会自动产生一个长整数SessionID，并且把这个SessionID送回给客户端浏览器，浏览器会把这个SessionID存放在Cookies内。当客户端再次向服务器送出HTTP请求时，ASP会去检查申请表头的SessionID，并返回该SessionID对应的Session信息。    （2）Session对象的集合 Session.contents 集合包括所有未使用

<%

call bgmid()

%>

<%

if myyear<>"" then

mydate=myyear & "-" & mymonth & "-" & 1

mydate1=dateadd("m",1,mydate)

else

mydate=""

end if

set conn=opendb("oabusy","conn","accessdsn")

Set rs=Server.CreateObject("ADODB.recordset")

sql="select * from newnotice order by id desc"

if request("lookfor")="yes" then sql="select * from newnotice where noticedate between " & "#" & mydate & "# and #" & mydate1 & "# order by id desc"

rs.open sql,conn,1

if not rs.eof and not rs.bof then

rs.pagesize=20

page=clng(request("page"))

if page<1 then page=1

if page>rs.pagecount then page=rs.pagecount

href="noticecontrol.asp"

rs.absolutepage=page

%>

<%

for ipage=1 to rs.pagesize

%>

<%

rs.movenext

if rs.eof then exit for

next

%>

4.5公文信息管理模块

  (1) 发送公文可以发送公文，当公文发送后，发送对象会及时弹出你的公文   信息，只有他回复后才不会再弹出此信息。在对方回复后，你也会及时弹出对方的回复信息。

  (2) 已发公文可以查看以前发送的公文。    

  (3) 已收公文可以查看以前收到的公文、转发公文、再次回复公文。

  如果具有管理员身份进入系统，还具有可以查看、删除企业以前的所有公文。

4.6力资源管理模块

   人力资源管理模块该模块可以查看个人基本档案、员工基本档案。

   如果具有管理员身份进入系统，还具有可以编辑个人基本档案、员工职位变动、员工奖惩情况、员工考核情况、员工工资档案、查询员工基本档案。

编辑个人基本档案设计效果如图8

 功能实现的关键代码

<%

'打开数据库，读出编辑通讯录权限

set conn=opendb("oabusy","conn","accessdsn")

set rs=server.createobject("adodb.recordset")

sql="select * from userinf where username=" & sqlstr(oabusyusername)

rs.open sql,conn,1

allow_edit_person_personinf=rs("allow_edit_person_personinf")

%>

<% call bghead() %>

	通告标题	发布日期
>	" target="_blank"><%=rs("title")%>	<%=rs("noticedate")%>

<%

if allow_edit_person_personinf="yes" then

%>

<%

end if

%>

<%=oabusyname%>的个人基本档案

<%

call bgmid()

%>

<%

if request("submit")="删除" then

set conn=opendb("oabusy","conn","accessdsn")

sql="delete from personinf where username=" & sqlstr(oabusyusername)

conn.execute sql

end if

'打开数据库，读出个人档案

set conn=opendb("oabusy","conn","accessdsn")

set rs=server.createobject("adodb.recordset")

sql="select * from personinf where username=" & sqlstr(oabusyusername)

rs.open sql,conn,1

dim a(33)

if not rs.eof and not rs.bof then

for i=1 to 33

a(i)=rs("a" & i)

next

inputdate=rs("inputdate")

updatedate=rs("updatedate")

havephoto=rs("havephoto")

id=rs("id")

else

for i=1 to 33

a(i)=""

next

inputdate=""

updatedate=""

havephoto="no"

end if

%>

   员工职位变动设计效果如图9

 功能实现的关键代码

<%

'打开数据库，读出员工职位变动数据库

set conn=opendb("oabusy","conn","accessdsn")

set rs=server.createobject("adodb.recordset")

sql="select * from changjob where username=" & sqlstr(username)

rs.open sql,conn,1

while not rs.eof and not rs.bof

oldjob=rs("oldjob")

changjob=rs("changjob")

changdate=rs("changdate")

changfile=rs("changfile")

changsort=rs("changsort")

changtype=rs("changtype")

changreason=rs("changreason")

recusername=rs("recusername")

recdate=rs("recdate")

updateusername=rs("updateusername")

updatedate=rs("updatedate")

id=rs("id")

%>

   员工奖惩情况设计效果如图10

功能实现的关键代码

<%

'打开数据库读出员工姓名

set conn=opendb("oabusy","conn","accessdsn")

set rs=server.createobject("adodb.recordset")

sql="select name from userinf where username=" & sqlstr(username)

rs.open sql,conn,1

name=rs("name")

%>

<%=name%>的奖惩档案

<%

'打开数据库，读出员工职位变动数据库

set conn=opendb("oabusy","conn","accessdsn")

set rs=server.createobject("adodb.recordset")

sql="select * from rewpuninf where username=" & sqlstr(username)

rs.open sql,conn,1

while not rs.eof and not rs.bof

rewpunname=rs("rewpunname")

rewpundate=rs("rewpundate")

rewpunfile=rs("rewpunfile")

rewpunsort=rs("rewpunsort")

rewpuntype=rs("rewpuntype")

remark=rs("remark")

recname=rs("recname")

recdate=rs("recdate")

updatename=rs("updatename")

updatedate=rs("updatedate")

id=rs("id")

%>

   员工工资档案设计效果如图11

功能实现的关键代码

<%

'打开数据库读出员工姓名

set conn=opendb("oabusy","conn","accessdsn")

set rs=server.createobject("adodb.recordset")

sql="select name from userinf where username=" & sqlstr(username)

rs.open sql,conn,1

name=rs("name")

%>

<%=name%>的工资档案

<%

'打开数据库，读出员工工资数据库

set conn=opendb("oabusy","conn","accessdsn")

set rs=server.createobject("adodb.recordset")

sql="select * from wageinf where username=" & sqlstr(username)

rs.open sql,conn,1

while not rs.eof and not rs.bof

wagelevel=rs("wagelevel")

basewage=rs("basewage")

stafjob=rs("stafjob")

jobwage=rs("jobwage")

workyear=rs("workyear")

workyearwage=rs("workyearwage")

rentwage=rs("rentwage")

carwage=rs("carwage")

prize=rs("prize")

insurance=rs("insurance")

tax=rs("tax")

affairday=rs("affairday")

affairfund=rs("affairfund")

sickday=rs("sickday")

sickfund=rs("sickfund")

mustwage=rs("mustwage")

actwage=rs("actwage")

changreason=rs("changreason")

actdate=rs("actdate")

remark=rs("remark")

recname=rs("recname")

recdate=rs("recdate")

updatename=rs("updatename")

updatedate=rs("updatedate")

id=rs("id")

%>

4.7通讯资料管理模块

   该模块包括员工资料管理、客户资料管理。设计效果如图12，图13

功能实现的关键代码

<%

'打开数据库显示通讯信息

set conn=opendb("oabusy","conn","accessdsn")

set rs1=server.createobject("adodb.recordset")

sql="select * from stafaddressinf where username=" & sqlstr(rs("username"))

rs1.open sql,conn,1

if not rs1.eof and not rs1.bof then

companytel=rs1("companytel")

email=rs1("email")

else

companytel=""

email=""

end if

%>

4.8资源预约管理模块

   资源预约管理主要是增加和预约资源，如何进行预约如何？在预约的资源中没有我要的资源怎么办？如何编辑和删除？

登录→选（通用）→选（资源预约管理）→点选“预约”→填写预约资料→预约

 当你预约资源时发现没有我要预约的资源，你可以增加预约资源，增加资源的方法：

      登录→选（通用）→选（资源预约管理）→点选“增加”→填写要增加的资源信息。

   登录→选（通用）→选（资源预约管理）→点选要编辑和删除的资源名称→编辑或删除。

   如何删除预约信息？只有填写预约信息的用户才有权人工删除本条预约信息。过期的预约信息会自动删除。 

   添加新的资源设计效果如图14

 功能实现的关键代码

<%

if request("submit")="增加" then

equipment=request("equipment")

controller=request("controller")

remark=request("remark")

'打开数据库判断设备名称是否重复

set conn=opendb("oabusy","conn","accessdsn")

set rs=server.createobject("adodb.recordset")

sql="select * from equipment where equipment=" & sqlstr(equipment)

rs.open sql,conn,1

if not rs.eof and not rs.bof then

%>

输入的资源名称与原来记录重复，请重新输入！

<%

else

set conn=opendb("oabusy","conn","accessdsn")

sql = "Insert Into equipment (equipment,remark,controller) Values( "

sql = sql & SqlStr(equipment) & ", "

sql = sql & SqlStr(remark) & ", "

sql = sql & SqlStr(controller) & ")"

conn.Execute sql

%>

成功输入资源！

<%

end if

else

%>

资源预约设计效果如图15

功能实现的关键代码

if request("submit")="预约" then

starttime=request("starttime")

endtime=request("endtime")

username=oabusyusername

equipment=request("equipment")

purpose=request("purpose")

if isdate(starttime) and isdate(endtime) then

'打开数据库，判断预约时间是否冲突

set conn=opendb("oabusy","conn","accessdsn")

set rs=server.createobject("adodb.recordset")

sql="select * from booking where equipment=" & sqlstr(equipment)

rs.open sql,conn,1

bookingallow="yes"

'response.write "bookingallow=" & bookingallow & "
"

while not rs.eof and not rs.bof

if (cdate(starttime)>cdate(rs("starttime")) and cdate(starttime)cdate(rs("starttime")) and cdate(endtime)cdate(rs("endtime"))) or (cdate(starttime)>=cdate(rs("starttime")) and cdate(endtime)<=cdate(rs("endtime"))) then bookingallow="no"

rs.movenext

wend

if bookingallow="no" then

%>

您预约的时间段已经被占用！

<%

else

set conn=opendb("oabusy","conn","accessdsn")

sql = "Insert Into booking (username,starttime,endtime,equipment,purpose) Values( "

sql = sql & SqlStr(username) & ", "

sql = sql & "#" & starttime & "#, "

sql = sql & "#" & endtime & "#, "

sql = sql & SqlStr(equipment) & ", "

sql = sql & SqlStr(purpose) & ")"

conn.Execute sql

%>

预约成功！

<%

end if

else

%>

4.9帮助信息模块

   帮助信息管理模块主要是对上面模块功能及具体操作的详细介绍，主要包括工作计划帮助，通告信息帮助，公文信息帮助，人力资源帮助，客户资料帮助，资源预约帮助，帐号设置帮助，权限设置帮助，管理帮助类别，输入帮助信息几个方面。

4.10设置用户权限模块

   该模块包括有用户帐号设置和用户权限设置

   (1) 用户帐号设置,如果是管理员身份进入系统，用户帐号设置具有增加下属用户，管理下属用户，增加用户，管理用户，个人资料维护的功能。否则只能个人资料维护。增加用户页面设计效果如图15

                                 

 功能实现的关键代码

<%

oabusyuserdept=request.cookies("oabusyuserdept")

if request("submit")="增加" then

username=request("username")

password=request("password")

name=request("name")

userdept=request("userdept")

userlevel=request("userlevel")

'判断是否有与申请的用户名相同的

set conn=opendb("oabusy","conn","accessdsn")

set rs=server.createobject("adodb.recordset")

sql="select * from userinf where username=" & sqlstr(username) & " and password=" & sqlstr(password)

rs.open sql,conn,1

if not rs.eof and not rs.bof then

%>

用户名为<%=username%>的用户已经存在，请选择其他用户名

返回

<%

else

sql = "Insert Into userinf (username,password,name,userdept,userlevel) Values( "

sql = sql & SqlStr(username) & ", "

sql = sql & SqlStr(password) & ", "

sql = sql & SqlStr(name) & ", "

sql = sql & SqlStr(userdept) & ", "

sql = sql & SqlStr(userlevel) & ")"

conn.Execute sql

%>

用户名为<%=username%>的用户注册成功！

<%

end if

else

%>

    (2)用户权限设置包括工作计划权限，通告公文权限，基本档案权限，职务变动权限，奖惩编辑权限，考核编辑权限，工资编辑权限，通讯资料权限，用户管理权限工作计划权限页面设计效果如图16，其它权限设置跟工作计划权限大同小异，这里就不在一一介绍了。

 功能实现的关键代码

<%=rs("name")%><%=rs("userdept")%><%=rs("userlevel")%>

>

>

>

>

4.11系统注销模块

用户可以通过注销模块退出该系统，程序清单如下

<%

response.cookies("oabusyname")=""

response.cookies("oabusyusername")=""

response.cookies("oabusyuserdept")=""

response.cookies("oabusyuserlevel")=""

response.cookies("cook_allow_see_all_workrep")=""

response.cookies("cook_allow_see_dept_workrep")=""

response.cookies("cook_allow_control_dept_user")=""

response.cookies("cook_allow_control_all_user")=""

response.cookies("cook_allow_send_note")=""

response.cookies("cook_allow_control_note")=""

response.cookies("cook_allow_control_file")=""

response.cookies("cook_allow_control_level")=""

response.redirect "default.asp"

%>

第五章 测试和维护

测试方法

关于程序修改：

经过多次的观察，改错题常见错误如下：

1、语法错误。

　　a、丢失分号；

　　b、关键字拼写错误。 

　　c、语句格式错误，例如for语句中多写或者少写分号

　　d、函数类型说明错误。与main中不一致。

　　e、函数形参声明错误。例如，少*等。

　　f、运算符书写错误，例如：/写成了\

2、逻辑错误

　　这类错误不太好判断，常见的有：

　　a、循环次数不对

　　b、下标越界

c、运算类型不匹配，例如：两个整形运算的结果还是整形

关于程序设计问题。

　　程序设计有很头疼的问题，经常表现为出现问题后不知道从何处下手，经过我的仔细分析发现，主要分为以下几类：

　　第一、数值计算类。这类问题通常表现在多项式求和的问题，例如：S=1+2+3+…+100等等，对于这类程序，一般都是先找出规律然后根据规律确定循环的初值和终值，在循环体里面，一般都是先求出单项的值，然后进行累加就可以了。关于这方面的例子我会在接下来的文章中发表，请大家关注。

　　第二、字符串运算类。这类问题在等级考试中占的比例较大，根据具体情况，一般有下面几种：

　　１、删除字符串里面特定的字符串。这类问题一般都需要另外一个字符数组，然后对里面的字符进行扫描，然后逐个判断是否是需要删除的字符，是的话就不进行复制，不是的话就要进行复制。

　　２、对特定的字符进行替换操作。这类问题一般也是先扫描字符串，然后判断是否符合条件，若是需要替换的字符，则进行替换，否则不替换。详细操作见我后面的例题。

　　３、查找特定字符串出现的次数。

    ４、对特定字符串进行替换。这个问题解决的办法和我们上面的题比较相象，首先是查找，如果找到了，则进行替换就可以了。

经过前面的介绍，一个办公系统建设完毕。由于篇幅有限，文中只是介绍了比较复杂的代码。至于简单的我在这里就不再做介绍了。通过本系统，详细介绍了系统的开发过程。并对系统中的模块也有了一定的了解。在今后的类似制作中我将按照这种方法来完成。