日期:2010-03-29  浏览次数:21286 次

  1 设计背景

  越来越多的企业在建立自己的WEB站点时选择了基于微软的构架。Windows操作系统、IIS WEB Server和ASP技术得到了广泛的使用。但很多企业的网络中存在大量的UNIX主机,导致我们经常希望在浏览器中实现对UNIX系统资源的访问和控制,例如:通过浏览器查看UNIX系统中的用户进程、查看网络状态、甚至完成杀死一个进程这样的控制操作。以前我们可以通过Telnet程序远程登录到UNIX主机上,输入用户名和口令,并在命令行方式下输入命令。通过ASP中的ActiveX控件编程,我们同样可以使用Telnet协议访问UNIX主机,这样,UNIX系统中的资源就可以在B/S环境中得到更加充分的利用。

  2 控件的功能

  本文要介绍的控件是美国Dart Communications公司开发的PowerTCP Tools控件组中的Telnet Tool ActiveX控件。它支持Visual Studio、 ASP、Office 97 (VBA)、C++Builder、 Delphi、PowerBuilder 等开发环境。

  它可以管理Telnet, rsh, rexec和rlogin连接,提供了建立、使用和终止会话的方法,支持自动选项协商,如终端类型、回显模式、窗口大小等,使用者不必关心协议实现细节,极大的简化了使用这些协议的编程难度。控件可以和UNIX主机、路由器、终端服务器等设备直接进行Telnet通信,并支持间接的Telnet访问 。

  3 控件的ASP编程方法

  Telnet Tool ActiveX控件的使用极其简单,下面介绍它的主要属性和方法。

  TermType属性:指定终端类型,如ANSI、VT320等,可以通知UNIX主机客户端所仿真的终端类型。

  Timeout属性:当设定为0值时,控件使用非阻塞方式控制会话。当设定为大于0的值时,控件使用阻塞方式控制会话,Timeout表示超时设定,单位为毫秒。

  State属性:返回TCP连接状态。

  Connect方法:建立一个连接,格式为:

  Object.Connect RemoteName [,RemotePort] [,LocalName] [,LocalPort] 。其中RemoteName为要连接的UNIX主机的名字或IP地址。RemotePort为要连接的UNIX主机的端口号,缺省为23,是标准的telnet端口。LocalName和LocalPort为本地主机名和端口,一般可以省略。

  Close方法:关闭一个连接,格式为 Object.Close

  Send方法:在连接建立后,发送数据。格式为:

  Object.Send Data 。Data为要发送给UNIX主机的数据。

  Serach方法:接受UNIX主机返回的数据,并在数据流中寻找指定的结束标志,结果包括到结束标志为止的所有返回数据。如果在Timeout规定的时间内未得到指定的结束标志,则产生超时错误。格式为:Object.Search Data,Token 。Data中保存返回结果,Token指定了结束标志字符串。

  4 编程实例

  下面是一个简单的Telnet Tool ActiveX控件的ASP编程实例。 实验环境是: Windows 2000 Professional、IIS 5.0、SCO OpenServer 5.0.2和Telnet Tool ActiveX控件。Telnet Tool ActiveX控件可以在www.dart.com下载30天试用版,只需要安装在WEB服务器上。

  程序并不复杂,登录到一个SCO UNIX系统后,执行了2条命令,命令的结果显示在浏览器页面上。

  HTML

  HEADTITLEPowerTCP Telnet Tool Demo Page/TITLE/HEAD

  BODY

  *******************************************************************

  Program: PowerTCP Telnet Tool Demo

  Author: Yin

  Date: 07/16/2001

  Purpose: To demonstrate how to login into a SCO UNIX server.

  ********************************************************************}

  Sub DoLogin()
  Session(RESULT) =
  On Error Resume Next
  Create a Telnet control
  Dim Telnet1
  Set Telnet1 = Server.CreateObject(Dart.Telnet.1)
  Use a 10 second timeout
  Telnet1.Timeout = 10000
  Specifies terminal type
  Telnet1.TermType = ansi
  AddResult Connecting to + txtHost + ... + vbCrLf
  Connect to the host on port 23
  Telnet1.Connect txtHost,23
  Dim a string to be used by the search method
  Dim Data
  Data =
  Search for login prompt
  Telnet1.Search Data, txtLoginPrompt
  AddResult Data
  Send username
  Telnet1.Send txtUser + vbCrLf
  Search for password prompt
  Telnet1.Search Data, txtPassPrompt
  AddResult Data
  Send password
  Telnet1.Send txtPass + vbCrLf + vbCrLf
  Search for command prompt
  Telnet1.Search Data, txtCommandPrompt
  AddResult Data
  Send command
  Telnet1.Send ps + vbCrLf
  Search for command prompt
  Telnet1.Search Data, txtCommandPrompt
  AddResult Data
  Send command
  Telnet1.Send netstat -rn + vbCrLf
  Search for command prompt
  Telnet1.Search Data, txtCommandPrompt
  AddResult Data
  Close the connection
  Telnet1.Close
  If Err.number = 0&