正在检测服务器信息吗,检查另一个web服务器是否正在侦听asp

您需要做的只是让代码继续出错，然后发布到其他服务器并从帖子中读取状态。事情是这样的：

PostURL = homelink & "CustID.aspx?SearchFlag=PO"

set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP.3.0")

上错误继续下一步

xmlhttp.open "POST", PostURL, false

xmlhttp.send ""

状态= xmlhttp.status

if err.number <> 0 or status <> 200 then

if status = 404 then

Response.Write "ERROR: Page does not exist (404).
"

elseif status >= 401 and status < 402 then

Response.Write "ERROR: Access denied (401).
"

elseif status >= 500 and status <= 600 then

Response.Write "ERROR: 500 Internal Server Error on remote site.
"

else

Response.write "ERROR: Server is down or does not exist.
"

end if

else

'Response.Write "Server is up and URL is available.
"

getcustomXML = xmlhttp.responseText

end if

set xmlhttp = nothing