[其他] [已解决]批处理如何检测网站的指定网页是否存在？

ik22

哥们好，最近本人在管理公司网站的时候偶尔发现有些网页不存在，但是 我想知道到底有哪些网页是不存在,哪些是存在的。所以我想来请教下各位。首先我说下网址的规则先吧。

网站的网址是这样的形式的
  www.a.com/2011/(数字).html        (数字)就是从1开始   大概50000 为结束     注：这个数字不是固定的，有些可能几万。有些可能是几千。

现在我想通过批处理自动从www.a.com/2011/1.html    到 www.a.com/2011/50000.html  一个一个地检查 ， 如果检查到某个网页标题出现：
<title>网页不存在！</title>    时，则把这个完整的网址输出到一个文本no.txt   （这代表这个网页不存在了。）
   如果网页标题<title></title> 出现其他的文字，则把这个完整的网址输出到一个文本yes.txt（这代表这个网页是存在的。）



小弟先在此先谢了。

namejm

　　这些网页文件都是存放在你们公司本地的机器上，还是在托管主机上？也就是说，是需要通过访问网页文件来获得网页还是可以直接搜索机器上的文件？另外，你还得把原始的网页文件上传一两个到论坛，别人需要分析网页源码才能找到合适的办法。

Batcher

@echo off
more +10 "%~f0" >GetUrlText.vbs
type nul >no.txt
type nul >yes.txt
for /l %%a in (1,1,50000) do (
    echo 正在检测：www.a.com/2011/%%a.html
    cscript //nologo GetUrlText.vbs http://www.a.com/2011/%%a.html | findstr "<title>网页不存在！</title>" && echo www.a.com/2011/%%a.html >>no.txt || echo www.a.com/2011/%%a.html >>yes.txt
)
goto :eof

strURL=WScript.Arguments(0)
WScript.Echo strURL
Set objXmlHttp = CreateObject("Microsoft.XMLHTTP")
objXmlHttp.Open "GET",strURL,0
objXmlHttp.Send()
Set objStream = CreateObject("ADODB.Stream")
objStream.Mode = 3
objStream.Type = 1
objStream.Open()
objStream.Write(objXmlHttp.responsebody)
objStream.Position = 0
objStream.Type = 2
objStream.Charset = "utf-8"
strText = objStream.Readtext
WScript.Echo strText
复制代码