如何在ASP中实现PING

原创 2001年04月30日 16:49:00

如何在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"

%>


 

(转)如何用ping 命令简单测试网速

命令格式: ping ip地址 -l 字节数 注:上面的命令中 l 是字母l,不是数字1 网速等于≈(发送的字节数/返回的时间[毫秒])K字节 以上计算的结果速为字节(byte),不是我们通常...
  • jackyrongvip
  • jackyrongvip
  • 2013年07月01日 17:38
  • 2065

在线ping代码(asp.net c#)

  • 2010年03月24日 20:42
  • 1KB
  • 下载

如何在ASP中实现PING

如何在ASP中实现PING使用WSH调用系统的Ping命令,将Ping的结果重定向到一个文本文件中去,再把文本文件显示到网页中具体做法如下:首先, 建一个.BAT文件(例如:myPing.BAT:),...
  • 11830
  • 11830
  • 2001年04月30日 16:49
  • 706

设置开发板与ubuntu虚拟机ping通

本文使用win7,ubuntu12.04。 本文介绍开发板与虚拟机ping通的设置方法:(注:与主机是否联网无关)   1、用一根网线将开发板和主机(电脑)连接,在uboot环境下,输入命令设置开发...
  • marc07
  • marc07
  • 2017年03月17日 12:41
  • 381

插入ASP代码让网站ASP木马

不过在上传代码过程中,许多网页程序都不允许包含〈%%〉标记符号的内容的文件上传。这样就有好多SHELL不能上传上去了。可以采用下面的方法解决。以蓝屏最小ASP木马为例。首先:原程序代码是:〈%exec...
  • kzh4435
  • kzh4435
  • 2007年09月22日 23:25
  • 298

asp.net会员管理系统源码

  • 2016年01月29日 08:59
  • 2.76MB
  • 下载

ASP 网页登录1秒后自动模拟点击input按钮

例如:表单中有一个名为 byt 的按钮,要求网页打开1秒后,自动点击按钮,方法:把如下代码加在后。function window.onload(){setTimeout("document.form1...
  • yanjiaye520
  • yanjiaye520
  • 2009年09月12日 10:41
  • 1898

如何在ASP.NET中使用JavaScript脚本

function getconfirm (){    if (confirm("Do you want to delete record?")==true)     return true;    e...
  • jackeyabc
  • jackeyabc
  • 2007年01月09日 13:09
  • 580
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何在ASP中实现PING
举报原因:
原因补充:

(最多只允许输入30个字)