中小型企业内部网(Intranet)的实现

图略

4.ISDN（Intergrate Service Digital Network）:

ISDN分为窄带和宽带两种，现开通的均为窄带，一般向用户提供2B（B=64Kb/s）+D（D=16Kbps）的接入速率。其所需设备为NT和TA。

NT为网络终端，相当于电话机的接线盒，一般由电信局在安装时提供。

TA为终端适配器，有外置和内值两种，将非标准ISDN终端设备（如PC、电话机、传真机）适配为标准的ISDN终端。

其连接为：ISDN网――电话线――NT――TA―――PC机

└――电话机

5．光纤：参见其他资料及文章，此处略。

B．软件安装与设置

1．操作系统及网络配置：

（以下之设置以我的服务器设置为例，其主机名称/域名/IP地址系统等可根据具体情况自行定制）

a.基本系统安装:

安装前的准备：

足够的未分区的硬盘空间（建议不低于2G）;

网卡的IRQ和I/O地址;

MODEM或TA适配器的驱动程序;

显卡的驱动程序;

SCSI卡、声卡、或其他设备的驱动程序；（可选）

计算机名、域名、Ip地址系统。(为保证在连入Internet时IP地址不起冲突，IP地址系统建议采用Internet保留的C类私有地址：192.168.0.0 － 192.168.0.255；子网屏蔽均为255.255.255.0)

拷贝安装程序：

MS-DOS环境下：进入安装光盘之I386目录以WINNT/B命令开始拷贝；

Windows 95环境下：放入安装光盘自动运行后进行拷贝。

基本系统设置： 重启计算机、检测硬件配置、装载安装文件；

按F8键接受许可协议；

选择安装NT的磁盘分区及文件系统各式，强烈建议采用NTFS文件系统；

复制基本系统文件；

再次重启计算机。

基本系统安装：

输入用户名称、组织，输入10位注册CD码；

根据你的用户数量确定每服务器有多少个同时连接的许可协议；

输入计算机名称“PANGTHAI“，选择服务器类型为“主域控制器（PDC）”；

输入并确认管理员帐号密码；

选择是否创建紧急修复磁盘；

选择Windows NT的安装组件；

选择网络连接方式为“用线路连接到网络”；

选择“安装Microsoft Internet Information Server”；

检测、安装网络适配器；

安装网络协议，选择“TCP/IP协议”、“NWLink IPX/SPX兼容协议”、“NetBEUI通讯协议”，如要远程启动选择“DLC协议”；

安装网络服务，除已有的服务外，选择DNS服务、WINS服务、DHCP服务、RAS服务器, 如要远程启动则还要选择“远程启动服务”；

检测、安装调制解调器

在TCP/IP属性设置中输入为本服务器指定的IP地址，例如：192.168.0.1

指定域名为“COM”；

安装IIS2.0，选择 WWW、FTP、Gopher服务。

在日期/时间属性窗口中进行时区选择；

设置显示适配器； 复制系统文件、制作系统启动盘、删除临时安装文件。

b.网络服务与协议简要说明:

RAS服务:远程访问服务程序,使Intranet中的计算机可通过MODEM拨入Internet或使外部用户拨入Intranet。

DNS服务:域名系统,使其在网络中可以采用计算机名来替代IP地址以实现资源定位。

DHCP服务:动态主机配置协议，可为Intranet中的其他计算机或拨入用户动态分配IP地址。

WINS服务:Windows Internet Name Server,与DHCP互补，提供名字注册与解析,将TCP/IP上的NetBIOS名字解析为由DHCP分配的动态地址。

TCP/IP协议: 传输控制协议/网际协议, Internet中采用的主要协议，也是本文采用的主要网络协议。

NWLink IPX/SPX兼容协议:网间包交换/顺序包交换协议,使Web Server能访问Netware服务器。

NetBEUI通讯协议: 使DOS工作站登录至NT服务器并提供简单的文件共享和打印功能,网络邻居就是采用此协议。

RAS服务、IP地址、DHCP服务的配置: 

Ⅰ、顺序选取“控制面板” －>“网络” －>“服务” －>“远程访问服务” －>“属性”，进行RAS服务设置，在“配置”属性中设定端口用法为“拨出和接收”，在“网络”属性的服务器设置之TCP/IP协议配置中选用“使用DHCP分配远程TCP/IP客户地址”。图略 

Ⅱ、顺序选取“控制面板”－>“网络”－>“协议”－>“TCP/IP协议”，进行以下设置：

1.在“IP地址”标签中确认IP地址为“192.168.0.1” ，子网掩码为“255.255.255.0”，默认网关无；图略 

2.在“IP地址”标签中的“高级”选项中添加192.168.0.11—192.168.0.20等IP地址以备后面的各种服务使用，子网掩码均为“255.255.255.0”。图略

3.在“DNS”标签中设置主机名、域名、DNS服务器搜索地址；图略

4．在“WINS地址”标签中设置WINS服务器地址；图略

Ⅲ、顺序选取“开始”?gt;“程序”－>“网络管理”－>“DHCP服务”，进行以下设置：

添加服务器（192.168.0.1）至服务器列表； 

选中该服务器，依次选取“作用域”、“属性”设置如下地址： 

起始地址：192.168.0.0 ；结束地址：192.168.0.255；排除地址：192.168.0.0 － 192.168.0.20。图

第三部分、方案实施(下)

2.WEB服务、FTP服务：

a. 安装IIS3.0及ASP

在安装NT4.0时如果没有安装其附带的Internet Information Server 2.0则先进行安装，然后再安装SP3(Windows NT Server Pack 3)将IIS升级至3.0；

安装ASP以便支持动态数据发布。建议安装升级软件包SP4+SP5和IIS4.0。

b.配置DNS

顺序选取“开始”-“程序”-“管理工具（公用）”-“DNS管理器”，进入域名服务管理器设置。

Ⅰ、单击“DNS”-“新建服务器”，在DNS服务器处输入主机名称“PANGTHAI”后建立DNS服务器并出现在服务器清单中；

Ⅱ、在服务器清单中选取“PANGTHAI”，然后单击“DNS”-“新建区域”，在区域类型处点选“主要”，并在“区域”出输入“COM”，点击“服务器”输入栏自动出现“COM.DNS”文件名，再单击“下一步”、“完成”，即建立了COM区域。图略

Ⅲ、选取新建的区域COM，然后单击“DNS”-“新建域”，在域名处输入“PANGTHAI”后单击“确定”，即建立了区域COM下的PANGTHAI域。

Ⅳ、选取新建的域PANGTHAI，然后单击“DNS”-“新建主机”，分别输入以下主机名、IP地址并单击“添加主机”，创建以下主机及相关的IP地址映射：

主机名 主机IP地址 服 务

WWW 192.168.0.11 WWW主页 HTTP://WWW.PANGTHAI.COM
FTP 192.168.0.11 文件传输 FTP://FTP.PANGTHAI.COM
NEWS 192.168.0.12 新闻服HTTP://NEWS.PANGTHAI.COM
MAIL 192.168.0.13 邮件服HTTP://MAIL.PANGTHAI.COM
HOME 192.168.0.14 IIS的HTML式管HTTP://HOME.PANGTHAI.COM

图略

c. 配置IIS

顺序选取“开始”--“程序”--“Microsoft internet server(公用)”—“Internet服务管理器”—“WWW服务”—“属性”—“服务属性”—“目录标签”—“添加” 设置WEB页面的存放路径，选取”主目录”选项, 选取”虚拟服务器”并填入在上述DNS中设置的IP地址(192.168.0.11)；图略

同理设置FTP服务的目录；设置HOME服务的目录和IP地址。

FTP服务目录设置图图略

3.安装并配置E-mail服务:

a.以管理员身份安装Exchange5.5

在进入Exchange安装向导界面后，指定安装目录并选择“完全安装”，在接下来的安装选项窗口勾选所有选项并单击“Coutinue"，输入产品序列号及用户许可协议，根据安装向导的提示创建组织和新节点（建议使用其默认值），指定节点服务账号（建议使用管理员账号），开始复制文件并完成安装。

b.安装Internet Mail Service

在Exchange Server 5.5安装完毕后，单击“开始”?/FONT>“程序”?/FONT>“Microsoft Exchange”?/FONT>“Microsoft Exchange Administrator”，进入Exchange Server的设置。

在首次运行时，出现连接到服务器的对话框，输入服务器的名字（pangthai）单击“OK”，进入Microsoft Exchange Administrator主菜单。

安装和启动Internet Mail Service, 在“File”菜单中，指向“New Other”，然后单击“Internet Mail Service”，运行安装向导，选择“使用DNS收发邮件”，并创建节点地址(如@mail.pangthai.com)，其余对话框均取默认值并完成安装。

c.添加管理员、部门及各用户的电子信箱。 在“File”菜单中，指向“New Mailbox”，出现邮箱属性窗口，在“name”组的“First”输入用户账号名，单击“Primary Windows NT Account”,选择“Select an existing Windows NT account”，选择一个存在的域用户，单击“add”,“ok”即完成一个邮箱建立，如此这般为NT域内用户逐一添加邮箱。

4.代理服务器及其它

a.在拨号网络中建立一个拨号连接并检查是否能接入Internet；

如使用Sygate作为代理服务器： 

下载并安装Sygate 3.0，在其设置中将上述拨号连接作为其自动拨接上网的拨号网络,并根据需要设置拨号网络的空闲时间（默认为180秒），以便在超过空闲时间时自动切断拨号连接，其他不做任何设置。

安装完成后，Sygate会被作为一项服务来运行，即在计算机每次启动时会自动运行。

如使用Wingate作为代理服务器：&n

下载并安装Wingate 3.0，当提示输入SMTPServer、NEWServer等数据时请输入你的ISP所提供的数据，但不要改变默认的端口数值，其他设置选择默认值即可。安装完成后，同Sygate一样，WinGate也会被作为一项服务来运行。

安装IE 4.01中文版，安装FrontPage 98+Image Composer 1.5，安装 Ulead COOL 3D 2.0，安装Photoshop5.0CS，安装Office 97，安装Winzip7.0以及其他常用软件 

至此，服务器的安装与设置基本完成，建议安装Option Pack软件包将IIS升级至IIS4.0,建议安装SP4以解决Y2K问题，建议安装NT最新升级软件包SP5。

5.工作站设置

a.网络设置

①.在网络配置中添加Microsoft网络用户、Netware网络用户，添加TCP/IP协议、IPX/SPX兼容协议。

②.在“Microsoft网络用户”属性中设置登录到NT域并输入服务器域名“COM”；在“Netware网络用户”属性中选择首选服务器为“PT”。（PT为Netware文件服务器名）

③.在TCP/IP协议中设置如下： IP地址――自动获取IP地址

DNS配置――192.168.0.1(Web Server的DNS地址), 202.99.160.68(ISP的DNS地址)

WINS配置――使用DHCP进行WINS解析

网关――192.168.0.1

b.浏览器设置

如操作系统为Win95或Win95(OSR2),先安装IE 4.01中文版, 然后在浏览器的选项中设置:

如使用Sygate作为代理服务器： 

默认主页地址---http://www.pangthai.com

连接----通过局域网连接到Internet

代理服务器----无需设置代理服务器选项

②．如使用Wingate作为代理服务器：

默认主页地址---http://www.pangthai.com

连接----通过局域网连接到Internet

代理服务器----在代理服务器地址中填入192.168.0.1，端口：80；进入代理服务器设置之“高级”选项，选择“对所有协议均选用相同的代理服务器”

b.电子邮件程序设置:

①. 如使用Sygate作为代理服务器：

信息网内部之电子信箱帐号：邮件接收服务器(POP3)和邮件发送服务器(SMTP)均为以上在Exchange中设置的mail.pangthai.com或直接使用IP地址:192.168.0.1，信箱名格式为Username@mail.pangthai.com。

Internet上的电子信箱帐号同单机上网一样。

②. 如使用Wingate作为代理服务器：

信息网内部之电子信箱帐号设置同上。

Internet上的电子信箱帐号名中要用“＃”号代替“@”，例如单机上网时电子邮件地址

为Username@public.qhptt.he.cn, 在使用Wingate代理服务器时则要改为：

Username＃public.qhptt.he.cn；

邮件接收服务器(POP3)和邮件发送服务器(SMTP)地址均要改为填写代理服务器的IP地址而非ISP提供的地址，如在此应填入192.168.0.1。

C.应用部分

上述硬件和软件的安装与配置只是一些技术性的工作，并不需多长时间，在此基础上的应用才是整个信息网的关键部分，由于采用Web页面的方式，建议采用以下几个过程： 

1. 应用规划

a.调查信息需求：

通过下发调查表或召开座谈会等形式了解各部门的工作内容、业务流程，并让业务人员展开讨论以并确定其信息需求。

b.规划网页结构：

企业中心――全面系统的介绍公司的整体情况

a.我们的公司 b.我们的员工 c.我们的原料 d.我们的设备 e. 我们的工艺 f. 我们的品质 g.我们的产品 h.我们的市场 i.我们的服务 j.我们的未来

产品中心――全面系统的介绍公司产品性能、特点、包装规格、使用方法等

a.面包粉系列 b. 饺子粉系列 c. 低筋粉系列 d. 通用粉系列 e. 专用粉系列

信息中心――重要新闻信息、行业动态信息、内部刊物电子版

a.国际新闻 b.国内新闻 c.专题报道 d.粮油信息 e.鹏泰通讯 f.研发动态 g.工会之声

文化中心――

a.经营理念 b.学术论文 c.观点文章 d.鹏太论坛 e.清韵书院 f.诗词精选 g.武侠天地 h.留言薄 i.聊天室 j.游戏乐园

资源中心――

a.规章制度 b.职能职责 c. 资料档案 d.公司标示 e.文案格式 f.包装图案 g.办公软件 h.工具软件 i.病毒防杀 j.桌面主题 k.屏幕保护

学习中心――

数据中心――

a.产品价格 b.销售数据 c.财务报表 d.生产日报 e.库存状况 f. 原料品质 g.滚动计划 h.综合统计 i.费用考核 j.个人往来 k人力资源

c.数据库的动态发布：

考虑用CGI访问数据库的开发难度，建议采用ASP(Active Server Page)技术来实现数据库的动态发布。ASP技术可以通过三种方法访问数据库，即IDC(Internet Database Connector)、 ADO(Active Data Objects)、RDS(Remote Data Service)，建议使用功能强大，方便灵活的ADO方式。

2.收集、整理

a.资料收集：收集、汇总、归纳、整理企业的大量信息资源，应包括公司简介、历年大事、公司章程、组织机构及其职能职责、公司及部门的规章制度、产品技术资料等等。建议统一采用Word 97格式。

b.图片收集：收集、整理、扫描公司的各种产品、设备、风景、广告宣传等图片资料；收集适用的按钮、图像、动画、背景等通用的图片。均统一采用JPG、GIF格式。

c.报表整理: 用Excel 97格式规范、统一公司的所有财会、销售、生产、统计等方面的报表，包括文件命名规则、报表报送单位、报表的保密程度、报表中采用的字体、颜色、大小等格式。

d.数据库整理：整理企业的有关产品产量、销量、库存、价格、技术指标的数据库、整理企业有关员工、客户、供应商的数据库。均统一为Access 97格式，以实现信息网上的动态查询功能。

e. 下载、整理常用的各种软件：从报刊的电子版或配套光盘中下载、归类各种实用的文章、资料、软件等。

3.网页制作

a.基本网页制作(*.HTM)

有了上述框架规划以及收集、整理好的各种资料、图片，利用FrontPage98的强大功能制作网页应是得心应手，但网页制作不是一个简单的技术问题，而是多门知识的综合，尤其需要一些艺术与美学眼光。以下介绍制作过程中领悟的一些经验： 

①网页设计基本原则：

条理清楚――条理分明，层次清晰；

简洁干练――布局简单，不要太多、太大的图片和动画，内容上言简意赅；

淡雅美观――背景色素淡雅致,字体色便于阅读；

由于网页仅限于内部浏览且统一采用IE浏览器，故设计过程中可以不考虑网页在Netscape、Opera等浏览器下的兼容性问题。

②多媒体和动画：

为使WEB页面生动活泼，插入适当的声音、图片、动画、视频等多媒体特性，网页便更具可视性和吸引力。下面的两个小软件会成为你在这方面的好助手。

Image Composer1.5 – 正版FrontPage98附带, 主要用来制作各式各样的按钮。

COOL 3D 2.0 — Ulead公司出品， 制作三维字体动画的最佳工具。

③充分利用FrontPage98提供的强大功能：

在网页的制作过程中，充分利用了FrontPage 98的下述功能，使网页的设计更加快捷。

FrontPage Component(FrontPage组件): Include Page(包含页)、(Timestamp)时间、Confirmation Field(确认表单域)等；

Active Elements(Active 单元)：Banner Ad Manager(广告看板)、Hit Counter(计数器)、Hover Button(动画按钮)、Marquee(跑马灯)等；

From Wizard or Template(向导或模板)：电子论坛向导(Discussion Web Wizard)、 表单向导(Form Page Wizard)等。

④其他：留言薄、聊天室均采用ASP编程，简单、方便之极。

b.数据库发布网页制作(*.ASP)

①制作数据源：根据已建立的数据库,利用控制面板中的32位ODBC创建系统DNS；

②创建数据库链接：使用ADO的Connection对象建立对数据源的链接并用Open方法打开此链接；

③创建数据对象：使用ADO的Recordset对象建立一个数据对象，用来保存读取回来的数据记录；

④操作数据库：根据标准SQL语句利用Open 或Execute方法查询、修改、增加、删除数据库记录； ⑤输出记录：将数据对象中的数据记录输出至WEB页面并关闭数据对象。

具体方法和操作可参见附录B之ASP实例

4．应用推广

a.举办应用培训――开办网络快训班，对信息网进行简单介绍，让办公人员熟悉其查找、获取信息的方法，并培训其利用FrontPage98发布、更新相关信息；

b.改变报表传递方式――可将各部门的报表由原来的制表à 打印à 复印à 分发à 接收 发布方式 逐步改为:

制表--┬--> (保密) à E-mail分发 à 接收&nb

└--> (公开) à WEB发布 à 浏览 à 打印(可选)

c.发布动态数据――利用ASP的强大功能发布生产、销售、财会等动态数据，后台数据库均统一放置在服务器上，并由各应用部门之维护人员按其权限随时登录至服务器进行修改、更新；

d.同步电子刊物――将各种内部刊物改为电子版；先并行后逐步取消其书面发行方式。

第四部分、信息网维护及附录 
A．更新：

WEB页面的版面、样式更新；公司共享资料更新；网络教室、软件下载内容的更新；聊天室及电子论坛的维护等工作由管理员进行；

各种报表、数据库的更新以及信息的发布由相关部门的计算机应用人员依据相关权限从本地机登录至服务器上随时进行。

B．备份：

由于考虑最低投资，未采用磁带机备份，而使用磁盘镜像技术容错，这样不但得到完整的数据备份，而且还提高了系统的性能。

利用NT提供的AT命令每日将重要数据自动备份至MO光盘机。

定期对重要数据和资料进行归类、汇总、存档，并转存为光盘片,以建立电子档案。

C．诊断：

由于内部信息网主要采用TCP/IP协议,在网络的调试中主要采用了以下几个诊断程序:ping、ipconfig、winipcfg、 nbtstat、 netstat、 hostname等。

这些诊断程序都是Windows 95/NT自带的小程序,其使用方法参见帮助及报刊相关文章。

D．安全：

利用代理服务器Sygate和Wingate的FireWall功能可以自动阻挡Internet上的系统或使用者直接进入PT Intranet；

网络管理员的密码和各用户的密码均利用NT的“域用户管理器”进行管理，并利用其“帐号规则”功能设置密码策略，包括最长、最短的有效期、密码长度、唯一性和帐户锁定等项目； 用户 的权限也利用“域用户管理器”进行管理，共享文件夹和目录的权限可按以下顺序 属性à 共享à 权限 进行设置。

E．磁盘整理：

由于NT4.0自身未包括磁盘碎片整理程序,建议采用第三方的程序Diskeeper定期整理磁盘碎片。该软件由Executive Software公司出品，可http://www.diskeeper.com处下载 。

附录A：参考资料

《电脑报》报纸及其配套光盘

《软件》杂志及其配套光盘

《计算机世界》报纸

《中国计算机用户》报纸

《电子&电脑》杂志 

《Active Server Pages &WEB数据库》棗人民邮电出版社

《Active Server Pages 编程指南》棗宇航出版社

《Frontpage 98实用指南》棗清华大学出版社

《SQL Server数据库应用开发技术》棗人民邮电出版社

《WINDOWS NT 4.0安装与配置手册》棗机械工业出版社

附录B : ASP编程实例

这是一个用ASP编写的留言薄，由以下几个文件组成：

addguest.htm -- 书写留言薄

guesbook.asp -- 阅读留言薄

gbook.asp --处理并记录留言

guestbook.mdb --Access97数据库,存放留言

Adovbs.inc --存放ADO常数的定义

Inmtextb.gif --WEB页面背景图片

具体内容如下:

guestbook.mdb棗该数据库有一个名为guestbook的表，包含了以下字段：

字段名称 数据类型 字段大小 说明

Name 文本 10 姓名

Email 文本 40 电子邮件地址

Url 文本 50 网址

Country 文本 10 国家

State 文本 10 省份

City 文本 10 城市

Comments 备注 留言内容

Time 时间 默认值为函数Now() 留言时间，自动记录

建立ODBC数据源

打开在控制面板中的32位ODBC,在系统DSN中添加新的数据源,

数据源名:guestbook, 驱动程序:Microsoft Access Driver(*.mdb),

选取数据库为以上的guestbook.mdb

addguest.htm 

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80"> 

<meta name="GENERATOR" content="Microsoft FrontPage 4.0"> 

<title>写留言簿</title> 

</head>

<body vlink="#008000" link="#0000FF" alink="#FF0000" background="INMTEXTB.GIF"> 

’留言簿标题 

<p align="center"><big><big><font face="隶书" color="#FF0000"><strong>写    

留    言    簿</strong></font></big></big></p> 

’留言提示信息 

<p align="left">    <strong><font color="#008080">We'd like to know what 

you think about our web site. Please leave your comments in this public guest book so we

can share your thoughts with other visitors.</font></strong></p> 

’留言表单 

<form method="POST" action="gbook.asp"> ’表单内容将提交到gbook.asp进行处理 

<p><font face="宋体" color="#008040"><strong> 

您的名字:   <input type="text" name="Name" size="21"><small>（不能空?lt;/small><br> 

您的E-Mail: <input type="text" name="Email" size="35"><br> 

您的主页URL: <input type="text" name="Url" size="40"><br> 

您来自  国家: <input type="text" name="Country" size="16"> 

省份: <input type="text" name="State" size="10"> 

城市: <input type="text" name="City" size="10"></strong></font></p> 

’留言内容 

<p><font face="宋体" color="#008040"><strong>请把您的留言写在下面<small>（不能空）</small>:<br> 

<textarea name="Comments" COLS="66" ROWS="11"></textarea></strong></font></p> 

’留言之提交和清除按钮 

<div align="left"><p>         <font face="宋体" 

color="#008040"><strong><input type="submit" value="提 交(Submit)" name="Submit" 

style="font-family: 隶书; font-size: 10pt; color: rgb(0,0,255); font-weight: bold"><input 

type="reset" value="清 除(Reset)" name="Reset" 

style="font-family: 隶书; font-size: 10pt; color: rgb(0,0,255); font-weight: bold"></strong></font></p> 

</div>

</form>

</body>

</html> 

gbook.as

’<% %>均为ASP语句 

<% 

’将数据中的单引号替换为双引号并在前后加上单引号 

Function SqlStr( data ) 

SqlStr = "'" & Replace( data, "'", "''" ) & "'" 

End Function 

’ 利用Request对象从addguest.htm表单中取输入之留言信息 

Name = Request("Name") 

Email = Request("Email") 

Url = Request("Url") 

Country = Request("Country") 

State = Request("State") 

City = Request("City") 

Comments = Request("Comments") 

’ 判断姓名和内容是否为空,否则给出提示信息 

If Name <> "" And Comments <> "" Then 

’ 创建ADODB对象 

Set conn = Server.CreateObject("ADODB.Connection") 

’打开ODBC数据源guestbook 

conn.Open "guestbook","","" 

’对信息按数据库中字段定义长度进行处理,因插入数据时其值不能为空,故由空格表示 

Name = Left( Name, 10 ) 

if email="" then 

Email=" " 

else 

Email = Left( Email, 40 ) 

end if 

if Url="" then 

Url=" " 

else 

Url = Left( Url, 50 ) 

end if 

if Country="" then 

Country=" " 

else 

Country = Left( Country,10) 

end if 

if State="" then 

State=" " 

else 

State = Left( State,10) 

end if 

if City="" then 

City=" " 

else 

City = Left( City,10) 

end if 

’定义SQL语句,将信息加入数据库中 

sql = "Insert Into Guestbook (Name, Email, Url, Country,State,City,Comments) Values( " 

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

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

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

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

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

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

sql = sql & SqlStr(Comments) & ")" 

’执行SQL语句
conn.Execute sql 

’自动转至查看留言薄页面 

Response.Redirect "guestbook.asp" 

end if 

%> 

<html>

<head>

<title>留言处理</title> 

</head>

<body background="INMTEXTB.GIF"> 

<p></p> 

’ 如果姓名和内容为空,给出提示信息 

<p align="center">  <big>  <font color="#FF0000" face="仿宋_GB2312"><strong>姓名和留言必须输入！</strong></font></big></p> 

<p align="center"><strong><font face="隶书"><a href="addguest.htm">返 回</a></font></strong></p> 

</body> 

</html> 

guesbook.asp 

’插入ADO常数定义信息文件adovbs.inc 

<!--#include file="adovbs.inc" --> 

<% 

’分页显示之子程序 

Sub ShowOnePage( rs, Page ) ’rs为数据库记录对象, Page为页数 

rs.AbsolutePage = Page ’AbsolutePage属性将当前数据记录移到第Page页的第一条 

For iPage = 1 To rs.PageSize ‘PageSize为每页的数据条数 

Rstogbook rs ‘调用处理显示内容之子程序 

rs.MoveNext ‘将当前数据记录移至下一条 

If rs.EOF Then Exit For ’如果显示页码为最后一页,则要判断是否移至数据记录未 

Next 

End Sub 

‘打开或直接得到数据库连接对象Connection之子程序 

Function OpenOrGet_Database(SessionName) ‘SessionName为公用对象中的名称 

Dim conn 

‘如果数据库连接对象未打开则创建此对象并打开 

If Not IsObject(Session(SessionName)) Then

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "guestbook","",""

Set Session(SessionName) = conn’将打开的数据库连接对象存入公用对象Session中 

End If 

’直接从公用对象SessionnName中取出已打开的数据库连接对象 

Set OpenOrGet_Database = Session(SessionName) 

End Function 

‘直接打开数据库连接对象Connection之子程序 

Function Open_Database(SessionName ) 

Dim conn 

Set conn = Server.CreateObject("ADODB.Connection") 

conn.Open "guestbook","","" 

Set Session(SessionName) = conn 

Set Open_Database = Session(SessionName) 

End Function 

‘打开或直接得到数据库记录对象Recordset之子程序 

Function OpenOrGet_RsAndPageSize( conn, sql, SessionName, PageSize ) 

‘conn为数据库连接对象,sql为SQL语句, SessionName为公用对象名称, PageSize为每页显示记录条数 

Dim rs 

‘如果数据库记录对象未打开则创建此对象并打开 

If Not&n

【中小型企业内部网(Intranet)的实现】相关文章：

采用加密网卡实现内部网的信息安全08-06

浅谈Intranet在现代企业中的应用08-06

企业网Intranet的构建方案08-06

基于Intranet的储粮测控与粮情分析推理系统的设计与实现08-06

为什么中国需要中小型企业08-06

关于中小型企业纳税问题的探讨08-15

关于中小型企业纳税问题的探讨08-12

皖能集团Internet/Intranet应用系统08-06

构建中小型企业网络论文08-15