有没有可以判断网络不通的代码？

Question

IMG Element | img Objectonerror事件？

Answer 1

可以用onerror来捕捉网络不通的错误信息,具体实现你可以试试.

Answer 2

Rem ###########################################
Rem 判断是否上网
Rem ###########################################
Function GetURL(url)
Dim Retrieval
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
  With Retrieval
  .Open "GET", url, False
 On Error Resume Next
 If Err Then
'.Write err.description
Err.Clear
Exit Function
 End If
  .Send
  GetURL = .ResponseText
  End With
Set Retrieval = Nothing
End Function