·您的位置: 首页 » 资源教程 » 编程开发 » ASP » 如何在ASP中实现PING

如何在ASP中实现PING

类别: ASP教程  评论数:0 总得分:0

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

  具体做法如下:    

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

  ping -a  %1 > d:INetPubcgi-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:Inetpubcgi-bin
myPing.bat    "    &    IP    &    "    "    &    FileName,    1,    True)    

if    RetCode    =    0    Then    

’没有错误

else    

Response.Redirect    "PingErrors.htm"    

end    if    

Set    TextFile    =    FileSys.OpenTextFile
("d:InetPubcgi-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:Inetpubcgi-bin"    &    FileName    &    ".txt"    

%> 

-= 资 源 教 程 =-
文 章 搜 索
关键词:
类型:
范围:
纯粹空间 softpure.com
Copyright © 2006-2008 暖阳制作 版权所有
QQ: 15242663 (拒绝闲聊)  Email: faisun@sina.com
 纯粹空间 - 韩国酷站|酷站欣赏|教程大全|资源下载|免费博客|美女壁纸|设计素材|技术论坛   Valid XHTML 1.0 Transitional
百度搜索 谷歌搜索 Alexa搜索 | 粤ICP备19116064号-1