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

bobile

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

请教大虾解答

bobile

顶 ，没有牛人 回答呀

lsekfe

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

bobile

多谢多谢

wjtest

帮顶，学习一下

freedom_me

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

freedom_me

、

没翅膀的飞鱼

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

lb3942148

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

victorzifeng

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

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"

lujian2036

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

lujian2036

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

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

soul0412

5mins

temp20121017

请问找到方式了不，，，

lemon1209

期待答案

kexin99ok

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