如何在ASP中实现PING

　　使用WSH调用系统的Ping命令,将Ping的结果重定向到一个文本文件中去,再把文本文件显示到网页中    

　　具体做法如下:    

　　首先,建一个.BAT文件(例如:myPing.BAT:),这个文件要在ASP中调用,文件代码如下:    

　　ping -a  %1 > d:\INetPub\cgi-bin\%2.txt    

　　(%1)是将来要ping的地址,

    (%2)是存储ping结果的文件.

    以下是ASP的代码:    

<%    

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

FileName = FileSys.GetTempName    

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

IP    =    "xxx.xxx.xxx.xxx"    ’你要ping的地址    

RetCode    =    WShShell.Run("d:\.netpub\cgi-bin\
myPing.bat    "    &    IP    &    "    "    &    FileName,    1,    True)    

if    RetCode    =    0    Then    

’没有错误

else    

Response.Redirect    "PingErrors.htm"    

end    if    

Set    TextFile    =    FileSys.OpenTextFile
("d:\InetPub\cgi-bin\"    &    FileName    &    ".txt",    1)    

TextBuffer    =    TextFile.ReadAll    

For    i    =    1    to    Len(TextBuffer)    

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

Response.Write("
")    

else    

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

end    if    

Next    

TextFile.Close    

FileSys.DeleteFile    "d:\Inetpub\cgi-bin\"    &    FileName    &    ".txt"    

%> 

文章来源于领测软件测试网 https://www.ltesting.net/