程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP技巧 >> 在ASP中執行Ping命令,並且返回結果

在ASP中執行Ping命令,並且返回結果

編輯:ASP技巧

在Win2000系統中,可以通過Wscript.Shell對象的Exec方法執行命令,

簡單的代碼如下:

<% Response.Buffer = true %>
<%
    url = "www.toPRonet.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>")
    response.write "<br><hr>慈勤強編寫,歡迎訪問<a href='http://blog.csdn.Net/cQQ'

target='_blank'>http://blog.csdn.Net/cQQ</a>"
%>

 

在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
%>


當然,我們也可以自己編寫相應的組件或者使用一些現成的組件來實現這樣的功能,

這裡就不多說了。

 

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved