|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件实行在ASP中实行Ping命令,而且前往了局
在Win2000体系中,能够经由过程Wscript.Shell工具的Exec办法实行命令,
复杂的代码以下:
<%Response.Buffer=true%>
<%
url="www.topronet.com"
SetobjWShell=CreateObject("WScript.Shell")
SetobjCmd=objWShell.Exec("ping"&url)
strPResult=objCmd.StdOut.Readall()
setobjCmd=nothing:SetobjWShell=nothing
strStatus="离线"
ifInStr(strPResult,"TTL=")>0thenstrStatus="在线"
response.writeurl&"形态为:"&strStatus
response.write".<br>"&replace(strPResult,vbCrLf,"<br>")
response.write"<br><hr>慈勤强编写,接待会见<ahref=http://blog.csdn.net/cqq
target=_blank>http://blog.csdn.net/cqq</a>"
%>
在XP体系大概Windows.NETServer体系中,可使用WMI来完成,
代码以下:
<%
url="www.topronet.com"
WMI="winmgmts:{impersonationLevel=impersonate}"
wqlQuery="SELECTStatusCodeFROMWin32_PingStatusWHEREAddress"&_
"="&url&""
setPingResult=GetObject(WMI).ExecQuery(wqlQuery,"WQL",48)
Response.writeurl&"形态"
ForEachresultinPingResult
ifclng(result.StatusCode)>0then
response.write"离线"
else
response.write"在线"
endif
Next
%>
固然,我们也能够本人编写响应的组件大概利用一些现成的组件来完成如许的功效,
这里就未几说了。
</p>ASP最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。 |
|