如何在vb中判断服务器器的asp页面因为iis出错不能打开

Question

    我想用vb写一个小程序让客户端计算机不能登录web服务器时自动登录另外的web页面，但是不知道如何在vb中判断指定的web页面不能正常打开。希望各位大侠赐教！

Answer 1

if len(inet1.openurl("www.csdn.net"))<>0 then
'表示已经连接
else
客户端计算机不能登录web服务器时自动登录另外的web页面
end if
上面大多数情况下可以，如果还不能正常判断，使用Inet1.GetHeader
Inet1.Execute "http://192.168.0.1/xml/testcheck.asp", "post", s
RetCode = Val(Mid(Trim(Inet1.GetHeader), 10, 3))
    Select Case RetCode
    Case 200
        MsgBox "成功了"
    Case 404
        MsgBox "失败了"
    Case Else
        MsgBox "Error"
    End Select
End Sub

Answer 2

200成功
HTTP 400 - 请求无效
HTTP 401.1 - 未授权：登录失败
HTTP 401.2 - 未授权：服务器配置问题导致登录失败
HTTP 401.3 - ACL 禁止访问资源
HTTP 401.4 - 未授权：授权被筛选器拒绝
HTTP 401.5 - 未授权：ISAPI 或 CGI 授权失败
HTTP 403.1 禁止访问：禁止可执行访问
HTTP 403.2 - 禁止访问：禁止读访问
HTTP 403.3 - 禁止访问：禁止写访问
HTTP 403.4 - 禁止访问：要求 SSL
HTTP 403.5 - 禁止访问：要求 SSL 128
HTTP 403.6 - 禁止访问：IP 地址被拒绝
HTTP 403.7 - 禁止访问：要求客户证书
HTTP 403.8 - 禁止访问：禁止站点访问
HTTP 403.9 - 禁止访问：连接的用户过多
HTTP 403.10 - 禁止访问：配置无效
HTTP 403.11 - 禁止访问：密码更改
HTTP 403.12 - 禁止访问：映射器拒绝访问
HTTP 403.13 - 禁止访问：客户证书已被吊销
HTTP 404 - 无法找到文件
HTTP 405 - 资源被禁止
HTTP 406 - 无法接受
HTTP 407 - 要求代理身份验证
HTTP 412 - 先决条件失败
HTTP 414 - 请求 - URI 太长
HTTP 500 -服务器内部错误
HTTP 500-12 应用程序重新启动
HTTP 500-13 - 服务器太忙
HTTP 500-15 - 不允许请求 global.asa
HTTP 500.100 - 内部服务器错误 - ASP 错误
HTTP 501 - Not Implemented
HTTP 502 - Bad Gateway

Answer 3

使用上面的代码怎么显示object required,是不是需要先创建对象呢，请帮帮小弟

Answer 4

inet1是个控件
也可以试试on error goto errHandle,在errHandle里处理
不过前提是确保过程中只可能出现一种错误