zoukankan      html  css  js  c++  java
  • 判断URL的HTTP状态

    代码
    Public Class TestExist
    Public Shared Function UrlExist(ByVal sURL As String) As Boolean
    Dim temp As Boolean = False

    Try
    Dim request As HttpWebRequest = DirectCast(WebRequest.Create(sURL), HttpWebRequest)
    'WebProxy proxy = new WebProxy("your proxy server", 8080);
    'request.Proxy = proxy;
    request.Method = "HEAD"
    request.AllowAutoRedirect
    = False
    Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)


    Select Case response.StatusCode
    Case HttpStatusCode.OK
    temp
    = True
    Exit Select
    Case HttpStatusCode.Moved
    temp
    = True
    Exit Select
    Case HttpStatusCode.NotFound
    temp
    = False
    Exit Select
    Case HttpStatusCode.MultipleChoices
    temp
    = True
    Exit Select
    Case HttpStatusCode.Ambiguous
    temp
    = True
    Exit Select
    Case HttpStatusCode.MovedPermanently
    temp
    = True
    Exit Select
    Case HttpStatusCode.Moved
    temp
    = True
    Exit Select
    Case HttpStatusCode.Found
    temp
    = True
    Exit Select
    Case HttpStatusCode.Redirect
    temp
    = True
    Exit Select
    Case HttpStatusCode.SeeOther
    temp
    = True
    Exit Select
    Case HttpStatusCode.RedirectMethod
    temp
    = True
    Exit Select
    Case HttpStatusCode.NotModified
    temp
    = True
    Exit Select
    Case HttpStatusCode.UseProxy
    temp
    = True
    Exit Select
    Case HttpStatusCode.Unused
    temp
    = True
    Exit Select
    Case HttpStatusCode.TemporaryRedirect
    temp
    = True
    Exit Select
    Case HttpStatusCode.RedirectKeepVerb
    temp
    = True
    Exit Select
    Case Else
    temp
    = False
    End Select
    response.Close()
    Catch ex As Exception
    temp
    = False
    End Try

    Return temp
    End Function
    End Class
  • 相关阅读:
    修改eclipse的背景色(转载)
    c#调用 windows api实现WinForm中嵌入EXE程序
    VS2008序列号
    Microsoft Visual Studio 2005 获取与升级
    Oracle数组一般可以分为固定数组和可变数组
    深圳香港之行杂记
    [难过]小明住院了
    青岛之行杂记
    喀纳斯之行杂记
    亲历北京721大雨
  • 原文地址:https://www.cnblogs.com/LCX/p/1643138.html
Copyright © 2011-2022 走看看