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

[复制链接]

简单快乐

电梯直达

1^#

发表于 2009-3-16 22:41:00 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

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 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口令的泄露。

收藏0

使用道具举报

返回列表

		自动登录	找回密码
密码			注册