建立XMLHTTP物件 by ASP
'宣告變數
Dim URLs, xml
'建立物件
Set xml = Server.CreateObject ("Microsoft.XMLHTTP")
'要檢查的網址
'URLs = Split(Server.HTMLEncode(Request.Form("url")), vbCrLf)
URLs = Request("url")
On Error Resume Next
xml.Open "GET", URLs, false
xml.Send
IF xml.status=404 Then
Response.Write "找不到頁面"
ELSEIF xml.status=200 Then
Response.Write "頁面連線正常"
ELSE
Response.Write "連線發生錯誤，代碼 "&xml.status
END IF
'關閉物件
Set xml = Nothing
Dim URLs, xml
'建立物件
Set xml = Server.CreateObject ("Microsoft.XMLHTTP")
'要檢查的網址
'URLs = Split(Server.HTMLEncode(Request.Form("url")), vbCrLf)
URLs = Request("url")
On Error Resume Next
xml.Open "GET", URLs, false
xml.Send
IF xml.status=404 Then
Response.Write "找不到頁面"
ELSEIF xml.status=200 Then
Response.Write "頁面連線正常"
ELSE
Response.Write "連線發生錯誤，代碼 "&xml.status
END IF
'關閉物件
Set xml = Nothing