新的一周一起来讨论个有意思的咚咚 跟PING差不多的

[沈阳人]

如何根据URL探测一个网站的存活与否？

并探测出速度如何呢？

[沈阳人]

ASP环境下面有PEAR吗？

百度MP3下载 的地方不是有个下载速度的绿色条吗
谁知道这个是怎么实现的

[dxdong]

路过 学习..

[mikespook]

PEAR的moniter包～～最简单的方式～

[沈阳人]

PEAR?! 具体介绍一下吧
不熟悉这个

[沈阳人]

坚持到底！

[skangming]

学习

[oldmht]

不知道用xmlHTTP可以不可以

[tujiulu]

这个不知道行不行

<% Response.Buffer = true

Function CheckTheChar(TheChar,TheString)
if inStr(TheString,TheChar) then
for n =1 to Len(TheString)
if Mid(TheString,n,Len(TheChar))=TheChar then
CheckTheChar=CheckTheChar+1
End if
Next
end if
End Function

url = "www.***.com"
url2 = "www.***.com"

Set objWShell = CreateObject("WScript.Shell")
Set objCmd = objWShell.Exec("ping " & url)
strPResult = objCmd.StdOut.Readall()
Set objCmd = objWShell.Exec("ping " & url2)
strPResult2 = objCmd.StdOut.Readall()
set objCmd = nothing: Set objWShell = nothing

if CheckTheChar("TTL=",strPResult)>=CheckTheChar("TTL=",strPResult2) then
response.redirect("http://")
else
response.redirect("http://")
end if
%>

[tujiulu]

不过这个有缺陷，如果在局与网就有问题

[oldmht]

有些网站是ping不了的，下载倒是可以

[soft_2008]

要开启了SMTP回显服务使用PING才有效，不然你得到的结果是Request TimeOut

[soft_2008]

百度的那个应该是用虚拟代理实现的

[沈阳人]

顶！

[沈阳人]

如果PING不行
那是否可以下载首页 来判断网站的存活
这个思路怎么样？