如何在ASP程序中使用Telnet协议

时间:2008-10-07 12:16:48  来源:第二电脑网上收集  作者:

  第二电脑网导读:的访问和控制,例如:通过浏览器查看UNIX系统中的用户进程、查看网络状态、甚至完成杀死一个进程这样的控制操作。以前我们可以通过Telnet程序远程登录到UNIX主机上,输入用户名和口令,并在命令行方式下输入命令。通过ASP中的ActiveX控件编程,我们同样可以使用Telnet协议访问UNIX主机,这样,UNIX系统中的资源就可以在B/S环境中得到更加充分的利用。  2 控件的功能
  正文: 1 设计背景

  越来越多的企业在建立自己的WEB站点时选择了基于微软的构架。Windows操作系统、IIS WEB Server和ASP/ target=_blank class=infotextkey>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/ target=_blank class=infotextkey>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 photoshop/ target=_blank class=infotextkey>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 then
  AddResult vbCrLf + Disconnecting... SUCCESS!
  Else
  Display info about the error
  AddResult vbcrlf + ERROR # + CStr(Err.number) + : + Err.Description
  End if
  Response.Write Session(RESULT)
  End Sub
  Private Sub AddResult(s)
  Session(RESULT) = Session(RESULT) + ReadyForHtml(s)
  End Sub
  Substitute escape codes for some of the HTML reserved characters
  Function ReadyForHtml(Data)
  On Error Resume Next
  ReadyForHtml = Data
  ReadyForHtml = Replace(ReadyForHtml, , gt;)
  ReadyForHtml = Replace(ReadyForHtml, , lt;)
  ReadyForHtml = Replace(ReadyForHtml, , nbsp;)
  ReadyForHtml = Replace(ReadyForHtml, vbCrLf , brnbsp;)
  ReadyForHtml = Replace(ReadyForHtml, vbCrLf, br)
  End Function
  Dim txtHost
  Dim txtLoginPrompt
  Dim txtUser
  Dim txtPassPrompt
  Dim txtPass
  Dim txtCommandPrompt
  txtHost = 192.0.1.6
  txtLoginPrompt = login:
  txtUser = root
  txtPassPrompt = Password
  txtPass = hp123
  txtCommandPrompt = #
  DoLogin()
  5 小结

  通过使用Telnet Tool ActiveX控件,我们可以在ASP程序中登录到UNIX系统上,轻松地完成很多命令行操作。类似的,我们也可以实现通过浏览器查看CISCO路由器、交换机中的网络配置和运行状态。

  企业的防火墙设置一般来说应该禁止从外部网直接远程登录到内部的UNIX主机上,但是我们可以通过在浏览器上简单的点击选择特定的操作,由WEB Server端的ASP程序登录到UNIX主机上完成指定操作,在方便管理的同时增加了系统的安全性。

  当然,我们在ASP编程中应该随时考虑到安全性问题,尤其是要避免不慎造成的ASP源代码和UNIX口令的泄露。

"如何在ASP程序中使用Telnet协议"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Programming/ASP/2008-10-07/3328.html


关键字:

关于《如何在ASP程序中使用Telnet协议》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td