 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
在Win2000系统中，可以通过Wscript.Shell对象的Exec方式执行命令， 简朴的代码如下： <% Response.Buffer = true %> <% url = "www.4ico.com" Set objWShell = CreateObject("WScript.Shell") Set objCmd = objWShell.Exec("ping " & url) strPResult = objCmd.StdOut.Readall() set objCmd = nothing: Set objWShell = nothing strStatus = "离线" if InStr(strPResult,"TTL=")>0 then strStatus = "在线" response.write url & " 状态为： " & strStatus response.write ".<br>" & replace(strPResult,vbCrLf,"<br>") %> 在XP系统或者Windows.NET Server系统中，可以使用WMI来实现， 代码如下： <% url = "www.topronet.com" WMI = "winmgmts:{impersonationLevel=impersonate}" wqlQuery = "SELECT StatusCode FROM Win32_PingStatus WHERE Address" & _ " = \\\'" & url & "\\\'" set PingResult = GetObject(WMI).ExecQuery(wqlQuery, "WQL", 48) Response.write url & " 状态 " For Each result in PingResult if clng(result.StatusCode)>0 then response.write "离线" else response.write "在线" end if Next %> 当然，我们也可以自己编写相应的组件或者使用一些现成的组件来实现这样的功能， 这里就不多说了。 返回类别: 教程 上一教程: 在ASP中处理数据库的NULL记录 下一教程: ASP 3.0高级编程(二十三) 您可以阅读与"在ASP中执行PING命令，并且返回结果"相关的教程: · ASP调用ORACLE存储过程并返回结果集 · 如何在pb中创建COM组件，并在asp中调用并返回结果集？ · 如何在PB中创建COM组件，并在ASP中调用并返回结果集 · ASP.NET中执行URL重写 · 解决在ASP中执行数据库查询中的特别字符的问题 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
