asp-classic - 従来のASPでインターネットの可用性を確認するには?

Question

コードで Web サービスを呼び出しています。インターネット接続が利用可能かどうかを確認するための検証を追加したい。

インターネット接続が利用できない場合は、インターネット接続が利用できないことを示すプロンプトが表示されます。

これを確認するコードを教えてください。

Answer 1

宛先サーバーにpingを実行して結果を確認してください。応答があった場合は、リクエストを続行してください。次のURLを参照してください。http：//www.aspnettutorials.com/tutorials/network/net-ping-aspnet2-vb.aspx

Answer 2

この関数を使用して Web ページを取得し、必要に応じてタイムアウトを調整します。これは、Web サイトがダウンしているか、404 または調整が必要な何かを返す場合に、Web サイトが有効な 200 要求を返すことを前提としています。

Function GetPage(inURL) ' scrapes the URL page, HTML, XML, JSON, whatever
  Dim O(2), xmlServerHttp, error, ServerStatus, responseText
  Error = False
  Set xmlServerHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.6.0")
    lResolve = 1000
    lConnect = 3500
    lSend = 1000
    lReceive = 2000
  xmlServerHttp.setTimeouts lResolve, lConnect, lSend, lReceive
    On Error Resume Next
  xmlServerHttp.open "GET", inURL, false
  xmlServerHttp.send()
  If Err.Number <> 0 Then
    ServerStatus="timeout"
    error=True
  Else
    ServerStatus = xmlServerHttp.status
    If ServerStatus = 200 Then responseText=xmlServerHttp.responseText Else error=true
  End If
  On Error GoTo 0
  O(0) = responseText
  O(1) = Error
  O(2) = ServerStatus
  Set xmlServerHttp = nothing
  GetPage=O
End function

使用法：

 data = GetPage(url)
 body = data(0)
 error = data(1)
 ServerStatus = data(2)

 if error then
   response.write "Sorry no internet"
 else
   response.write "Internet found!"
 end if