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

　　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()