IDC资讯中心
如何在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:\inetpub\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("<br>")
else
response.write(mid(textbuffer,i,1))
end if
next
textfile.close
filesys.deletefile "d:\inetpub\cgi-bin\" & filename & ".txt"
%>
我心飞扬
