关于asp实现ping的问题！～

来源：百度知道 编辑：UC知道 时间：2024/05/09 18:33:22
想建一个网页，点击网页上的一个按钮就可以自动ping另一台电脑，并根据不同的结果弹出不同的界面，请高手指点

可以实现，你需要 WScript.Shell 组件支持。

给你代码：

<%

Set FileSys = Server.CreateObject("Scripting.FileSystemObject")
FileName = FileSys.GetTempName

Set WShShell = Server.CreateObject("WScript.Shell")

IP = "127.0.0.1" ' ip地址
RetCode = WShShell.Run("d:\DoPing.bat " & IP & " " & FileName, 1, True)

if RetCode = 0 Then

else

response.write "错误！"

end if

Set TextFile = FileSys.OpenTextFile("d:\" & FileName & ".txt", 1)
TextBuffer = TextFile.ReadAll

For i = 1 to Len(TextBuffer)

If Mid(TextBuffer,i,1) = chr(13) Then

Response.Write("<BR>")

else

Response.Write(Mid(TextBuffer,i,1))

end if

Next

TextFile.Close

FileSys.DeleteFile "d:\" & FileName & ".txt"