• 测试url可用性的脚本


    ======================================== ' 测试url可用性 TestUrl.vbe ' Used: cscript TestUrl.vbe url ' Code by haicao E.S.T '======================================== 'On Error Resume Next HELP() If Wscript.Arguments.Count <>1 Then Wscript.echo "参数有误!" Wscript.Quit end if strURL = wscript.arguments(0) Wscript.Echo("URL: " & strURL & " 页面状态:" &TestUrl(strURL)) '============================================================================== function TestUrl(byval strURL) on error resume next Set objHTTP = CreateObject("MSXML2.XMLHTTP") objHTTP.Open "GET", strURL, FALSE objHTTP.Send TestUrl=objHTTP.statusText end function sub HELP() WSCRIPT.ECHO "========================================" wscript.echo " 测试url可用性  TestUrl.vbe " wscript.echo " Used: cscript TestUrl.vbe url" wscript.echo " Code by haicao E.S.T" WSCRIPT.ECHO "========================================" end sub '============================================================================== <%strURL = request("url")%> <html><title>测试url可用性</title> <body> <form> <input name=url type=text value="<%=strURL%>"> <input name=check1 type=submit value="查询有效性"> </form> <% On Error Resume Next if strURL<>"" then Set objHTTP = CreateObject("MSXML2.XMLHTTP") objHTTP.Open "GET", strURL, FALSE objHTTP.Send if instr(objHTTP.statusText,"OK") then response.write "测试的url: " & strURL &" 有效!返回状态:" &objHTTP.statusText else response.write "测试的url: " & strURL &" 返回状态:" &objHTTP.statusText end if end if %> </body> </html>
  • 相关阅读:
    APP测试的那些坑
    最全的测试工具以及测试需要掌握的工具
    接口测试的必要性
    jmeter-察看结果树-响应数据,中文显示乱码问题处理
    JMeter学习(一)工具简单介绍
    BZOJ1972: [Sdoi2010]猪国杀
    luoguP1311 选择客栈 题解(NOIP2011)
    luoguP1003 铺地毯 题解(NOIP2011)
    luoguP1081 开车旅行 题解(NOIP2012)
    luoguP3391[模板]文艺平衡树(Splay) 题解
  • 原文地址:https://www.cnblogs.com/adodo1/p/4327050.html
Copyright © 2020-2023  润新知