前一个阶段，我们单位的金税工程要求在测试期间保持24小时畅通，不联通的时候，要求在10分钟上报。出于这个目的，我用asp做了一个小东西，可以随时监测网络的联通状况，并且在网络不通的时候向手机/传呼发送消息。在这个软件中，使用了一个控件aspping.dll（可以在网络上搜索，很容易找到）。
它包括三个文件：
index.asp(入口文件)








请设置相关参数：

---

目标地址：	（将测试的IP地址）
间隔时间：	(单位：秒)

ping.asp测试联通文件:
<%
Set Pinger = Server.CreateObject("AspPing.Conn")
des_ip=request("ip")
intervaltime=request("inter")
alermwindow = Replace(des_ip, ".", "_")
filepath=server.mappath("pinglog_"&des_ip&".htm")
%>







查看PING日志

正在测试<%=des_ip%>

---

<%
Pinger.PingCount = 2
Pinger.RemoteHost = des_ip
cnnstr=Pinger.Ping
if len(cnnstr)=0 then
    '弹出警报窗口
    Response.Write ""
    cnnstr="目标地址"&des_ip&"出现连通故障("&NOW&")"     
else
    cnnstr=""&cnnstr&"("&NOW&")"     
end if
Response.Write cnnstr
Set Pinger = nothing

'将cnnstr写入日志PINGLOG_des_ip.HTM     
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set myfso = fso.OpenTextFile(filepath, 8, True)
    myfso.WriteLine cnnstr&"
"
    myfso.Close
%>



alerm.asp不通时的警报文件


<%des_ip=request.QueryString("ip")%>





<%
cnnstr="警告!!!

---

目标地址"&des_ip&"出现连通故障("&NOW&")"
Response.Write cnnstr
%>



把上面alerm中的alerm.wav随便换一个刺耳的声音文件，然后把音量弄大，效果更好---哈哈！
本来还有一个功能，就是在不通的情况下向手机或者传呼发出信号（使用的是微软的一个控件），可惜那个文件找不到了，只好用这个了。好在这个程序的目的仅仅是为了演示一下控件在asp中的使用，没有就没有了吧，使用上是一样的原理。