apache与tomcat集成场合，tomcat停止时，apache如何实现判断(tomcat停止)与显示出错页面

它保存成文件(后缀名为vbs)后双击运行就行了
on error resume Next Dim a 
a = True set WshShell = WScript.CreateObject("WScript.Shell") Do While a 
set http = CreateObject("Microsoft.XMLHTTP") 
http.open "POST","http://你网站的页面地址",false 
http.send 
if http.Status > 300 then 
WshShell.Run("net stop tomcat5") 
WScript.Sleep(10000) 
WshShell.Run("net start tomcat5") 
end if 
WScript.Sleep(30000) 
loop