在NetwareWeb服务器上编写Ping网页.pdf

在Netware Web 服务器上编写Ping网页 在局域网和广域网的建设中，我们经常遇到的一个问题就是：对于一般工作人员如何以最简单的方式知 道他周围指定的服务器是否可以连通。我所处的网络中有NT、Netware、SCO UNIX、AS/400等各种服务器， 用Win95上的网络邻居是无法看到所有这些服务器的。为了便于通讯，这些服务器全部配置了TCP/IP协议及 FTP服务。为此我们决定用Novell Script for NetWare (NSN)在Netware 5服务器上编写一个CGI脚本，用网 页显示指定服务器的连接状态。 1. 环境介绍 ●Netware 4.11 / 5 服务器配置TCP/IP协议或纯IP方式。安装Fast Track web服务器。NSN软件，可以 从 /ndk 站点下载。 ●在其他服务器上必须配置TCP/IP协议及相应端口操作（如FTP服务，Web服务）。 2. 各种TCP/IP操作使用的默认端口表 在检查服务器连接时需使用下列端口号。 操作 端口号 传输层协议 HTTP 80 TCP FTP 21 TCP TELNET 23 TCP SMTP 25 TCP TFTP 69 UDP SNMP 161 UDP 3. 编程 Novell的NSN由VBScript 语法兼容脚本语言组成,对于熟悉VB编程的人员使用起来非常方便。它提供了 大量对Netware服务器、NDS、数据库、FTP、客户/服务器Socket、Web的高级操作命令，这对于编写Ping这 样的软件是比较简单的。它的原理是连接一个指定服务器的端口，看是否连通，能连通表示服务器是可操作 的，否则服务器的连接有问题或已关机。该程序放在服务器SYS卷的\nsn\web目录下，以BAS为扩展名。使用 时，在浏览器中输入 8/nsn/xping.bas 。程序及注释如下： Dim Server ′ 定义常量 Public Const SCRIPT—NAME = ″xping″ Public Const SERVERIP = ″8″ Public Const PBCNAME = ″中国人民银行徐州市中心支行科技科″ ′ 主程序 1 sub main() ′ WAN网服务器列表,在这里以DOC.开头的语句都是对网页的操作。 sheading ＃ 定义网页头 doc.beginTag(″CENTER″) ＃ 将以下文字表格放在网页中间 doc.begintable(true,″20″,″ ″,″ ″,0,2) ＃ 在网页中定义表 doc.beginrow ＃ 定义表头开始 DOC.datatable(″单位名″,″20″, ″260″, DOC—ALIGN—CENTER,DOC—ALIGN—TOP, DOC— LTGREEN) ＃ 定义第一列表头及颜色 DOC.datatable(″服务器名″,″20″, ″80″, DOC—ALIGN—CENTER,DOC—ALIGN—TOP, DOC— LTGREEN) ＃ 第二列表头