Mainly uses some methods and properties of XMLHTTP to obtain information of the server. The XMLHTTP object method and object properties are attached behind this article. Questions about the status code, you can see my other one document, "HTTP Internet connectivity error code complete" http://www.9cbs.net/Develop/Article/16/16477.shtm__________________________________________________________________________
Using XMLHTTP detection URL and detect server information </ title> <meta http-equiv = content-type content = "text / html; charSet = GB2312"> <meta name = "generator" Contentor "Contentor" Content = "Editplus"> <meta name = "author" content = "jnkc"> <meta name = "keywords" content = "> </ head> <body> Please enter the URL: <input type =" text "ID = "JNKCINPUT" value = "http: //" size = "40"> <button id = "chk"> detection </ button> <div id = "jnkc_show"> </ div> <script language = "vbscript"> Dim i, jnkcUrl, jnkcHTML, jnkcStatus, jnkcServerFunction chk_onClick () jnkcUrl = jnkcInput.valueCall GetDetaili = i 1jnkc_show.innerHTML = "<hr> <pre> <font color = red>" & i & "," & jnkcUrl & " </ font> <br> "& jnkcStatus &" </ pre> "& jnkc_show.innerHTMLEnd FunctionDim jnkcXMLHTTPSub GetDetail Set jnkcXMLHTTP = CreateObject (" Microsoft.XMLHTTP ") jnkcXMLHTTP.OnReadyStateChange = GetRef (" GetStatus ") jnkcXMLHTTP.Open" GET ", jnkcUrl, False On Error Resume Next jnkcXMLHTTP.Send Set jnkcXMLHTTP = NothingEnd SubSub GetStatus If jnkcXMLHTTP.ReadyState <> 4 Then Exit Sub End If If jnkcXMLHTTP.Status = 404 Then jnkcStatu s = "The page does not exist! "ElseIf jnkcXMLHTTP.Status <200 Then jnkcStatus =" client error message: "& CStr (jnkcXMLHTTP.Status) &" "& jnkcXMLHTTP.StatusText ElseIf jnkcXMLHTTP.Status <300 Then jnkcStatus =" success, the page can access.</p>
<p>"ElseIf jnkcXMLHTTP.Status <400 Then jnkcStatus =" Redirection Information: "& CStr (jnkcXMLHTTP.Status) &" "& jnkcXMLHTTP.StatusText ElseIf jnkcXMLHTTP.Status <500 Then jnkcStatus =" client error message: "& CStr (jnkcXMLHTTP.Status) & "" & jnkcXMLHTTP.StatusText ElseIf jnkcXMLHTTP.Status <600 Then jnkcStatus = "server error message:" & CStr (jnkcXMLHTTP.Status) & "" & jnkcXMLHTTP.StatusText Else jnkcStatus = "domain unavailable or network connection error message: "& CStr (jnkcXMLHTTP.Status) &" "& jnkcXMLHTTP.StatusText End If If jnkcXMLHTTP.Status <600 Then Call GetServerEnd SubSub getServer jnkcServer = jnkcXMLHTTP.GetResponseHeader (" Server ") If jnkcServer <>" " THEN JNKCSTATUS = JNKCSTATUS & "<br> HTTP server:" & jnkcserver end if jnkcstatus = "<b>" & jnkcstatus & "</ b> <br> All Feedback Information: <br>" & jnkcxmlhttp.getallResponseHeadersend Sub </ Script> </ body> </ html> ___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________</p>
<p>Also attached:</p>
<p>ServerXMLHTTP object method</p>
<p>Method Description ABORT Cancels the current HTTP request. GetAllResponseHeaders retrieves all header fields (header fields) from the response information. GetResponseHeader gets an HTTP header value from the response information body. Open opens a connection to the HTTP server. SetRequestHeader Sets a request for header field. Send sends a request to the HTTP server. Can contain the body.</p>
<p>ServerXMLHTTP object properties</p></div><div class="text-center mt-3 text-grey">
转载请注明原文地址:https://www.9cbs.com/read-25602.html</div><div class="plugin d-flex justify-content-center mt-3"></div><hr><div class="row"><div class="col-lg-12 text-muted mt-2"><i class="icon-tags mr-2"></i><span class="badge border border-secondary mr-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></span></div></div></div></div><div class="card card-postlist border-white shadow"><div class="card-body"><div class="card-title"><div class="d-flex justify-content-between"><div><b>New Post</b>(<span class="posts">0</span>)
</div><div></div></div></div><ul class="postlist list-unstyled">
</ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="25602" checked /></div></div></div></div></div><footer class="text-muted small bg-dark py-4 mt-3" id="footer"><div class="container"><div class="row"><div class="col">CopyRight © 2020 All Rights Reserved
</div><div class="col text-right">Processed:
<b>0.041</b>, SQL:
<b>9</b></div></div></div></footer><script src="./lang/en-us/lang.js?2.2.0"></script><script src="view/js/jquery.min.js?2.2.0"></script><script src="view/js/popper.min.js?2.2.0"></script><script src="view/js/bootstrap.min.js?2.2.0"></script><script src="view/js/xiuno.js?2.2.0"></script><script src="view/js/bootstrap-plugin.js?2.2.0"></script><script src="view/js/async.min.js?2.2.0"></script><script src="view/js/form.js?2.2.0"></script><script>
var debug = DEBUG = 0;
var url_rewrite_on = 1;
var url_path = './';
var forumarr = {"1":"Tech"};
var fid = 1;
var uid = 0;
var gid = 0;
xn.options.water_image_url = 'view/img/water-small.png';
</script><script src="view/js/wellcms.js?2.2.0"></script><a class="scroll-to-top rounded" href="javascript:void(0);"><i class="icon-angle-up"></i></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"><i class="icon-angle-down"></i></a></body></html><script>
var forum_url = 'list-1.html';
var safe_token = 'ivVOWT5PvdCXqjJRhIoy4rI29SinAvacT33_2Bz_2FyvGK6udGZdGydvx7Vrgz9iIDn2hoVlIH3U2VEpU8b7jXzSpw_3D_3D';
var body = $('body');
body.on('submit', '#form', function() {
var jthis = $(this);
var jsubmit = jthis.find('#submit');
jthis.reset();
jsubmit.button('loading');
var postdata = jthis.serializeObject();
$.xpost(jthis.attr('action'), postdata, function(code, message) {
if(code == 0) {
location.reload();
} else {
$.alert(message);
jsubmit.button('reset');
}
});
return false;
});
function resize_image() {
var jmessagelist = $('div.message');
var first_width = jmessagelist.width();
jmessagelist.each(function() {
var jdiv = $(this);
var maxwidth = jdiv.attr('isfirst') ? first_width : jdiv.width();
var jmessage_width = Math.min(jdiv.width(), maxwidth);
jdiv.find('img, embed, iframe, video').each(function() {
var jimg = $(this);
var img_width = this.org_width;
var img_height = this.org_height;
if(!img_width) {
var img_width = jimg.attr('width');
var img_height = jimg.attr('height');
this.org_width = img_width;
this.org_height = img_height;
}
if(img_width > jmessage_width) {
if(this.tagName == 'IMG') {
jimg.width(jmessage_width);
jimg.css('height', 'auto');
jimg.css('cursor', 'pointer');
jimg.on('click', function() {
});
} else {
jimg.width(jmessage_width);
var height = (img_height / img_width) * jimg.width();
jimg.height(height);
}
}
});
});
}
function resize_table() {
$('div.message').each(function() {
var jdiv = $(this);
jdiv.find('table').addClass('table').wrap('<div class="table-responsive"></div>');
});
}
$(function() {
resize_image();
resize_table();
$(window).on('resize', resize_image);
});
var jmessage = $('#message');
jmessage.on('focus', function() {if(jmessage.t) { clearTimeout(jmessage.t); jmessage.t = null; } jmessage.css('height', '6rem'); });
jmessage.on('blur', function() {jmessage.t = setTimeout(function() { jmessage.css('height', '2.5rem');}, 1000); });
$('#nav li[data-active="fid-1"]').addClass('active');
</script>
