遇到一面试题：新浪网首页上很多连接 怎么测试这些链接都是正确的 5min以内完成测试

bobile

1. 新浪网上 随便一点 都是这么多的链接地址
2. 自己设计 怎么测试，不能利用目前的测试工具
3. 在5分钟内 测试完成，得到结果。 指需要 测试出 链接能否访问  就行了

请教大虾解答

kexin99ok

先获取所有连接地址，打开连接地址，服务器返回200则通过，否则失败，
我是新手，暂时是这么想的，但怎么实现就不知道了，也不知道能否在5mins内跑完

lemon1209

期待答案

temp20121017

请问找到方式了不，，，

soul0412

5mins

lujian2036

修改正则匹配法则如下
patt="(?:href|src)="&Chr(34)&"([\w\./\?%=&,:-]{1,})"&Chr(34)

在测试连接是否有效时 在
    http.open "GET", httpurl, False
    http.send
这两个地方仍然存在大量报错情况，很是纠结，无法解决

lujian2036

以上仍然不能在5min内测试完成所有的链接，还得楼下高手继续出手

lujian2036

'主要用于匹配源码中的url链接
Function reg(str,regpattern)
        Dim regobj,matches,match,httpstr
        Set regobj=New RegExp
        regobj.Global=True
        regobj.IgnoreCase=True
        regobj.Pattern=regpattern
        Set matches=regobj.Execute(str)
        For Each match In matches
        writefile fso,"C:\Documents and Settings\lujian\桌面\http.txt",match
                If httptest(match) then
                 writefile fso,"C:\Documents and Settings\lujian\桌面\http.txt",vbtab&"OK"
                 Else
                 writefile fso,"C:\Documents and Settings\lujian\桌面\http.txt",vbtab&"FALSE"
                 End If
'                httpstr=httpstr&match&vbCrLf
        Next
'        writefile fso,"C:\Documents and Settings\lujian\桌面\http.txt",httpstr
       
end Function

'读取sina的源码函数，入参为路径
Function readfile(filename)
        dim fso,fsofile,str
        Set fso=CreateObject("scripting.filesystemobject")
        Set fsofile=fso.OpenTextFile(filename)
        str=fsofile.ReadAll
        readfile=str
        fsofile.Close
End Function

'将测试结果写入文件
Function writefile(fso,filename,str)
'        Dim fso,fsofile
'        Set fso=CreateObject("scripting.filesystemobject")
        Dim fsofile
        Set fsofile=fso.OpenTextFile(filename,8,true)
        fsofile.WriteLine(str)
'        fsofile.Close
End Function

'测试连接是否有效函数
Function httptest(httpurl)
    Dim http,stat
    Set http = CreateObject("Msxml2.ServerXMLHTTP")
    http.open "GET", httpurl, False
    http.send
    stat=http.status
    If stat ="200" Then
            httptest=True
        Else
            httptest=False
        End If
End Function

Dim fso
Set fso=CreateObject("scripting.filesystemobject")
str=readfile("C:\Documents and Settings\lujian\桌面\sina.txt")
patt="http://([\w\./\?%=&-]+)"
reg str,patt
MsgBox "done"

victorzifeng

我认为：将新浪Ctrl+a，复制，粘贴在记事本，整理记事本，用正则表达式早出每一项（也就是可以链接的标题），然后编写vbs脚本，干之。

lb3942148

我猜想，获得连接地址，批处理应该时间够。勿喷，纯粹的新手

没翅膀的飞鱼

不能用工具，有点难度，可以尝试6楼的方法

freedom_me

、

freedom_me

单纯链接的话 可不可以先将首页的链接做分类例如
新闻news/体育sports/xx.sina.com.cn 用ping/telnet等命令看看链接是否可用.

wjtest

帮顶，学习一下

bobile

多谢多谢

lsekfe

虽然不懂，但是帮LZ顶下吧！

bobile

顶 ，没有牛人 回答呀