function createhttprequest(){
var request=null;
if("XMLHttpRequest" in window){
request= new XMLHttpRequest();
}
else if("ActiveXObject" in window){
try{
request=new ActiveXobject("Msxml2.XMLHTTP");
}catch(e){
try{
request=new ActiveXObject("Microsoft.XMLHTTP");
}catch(e){
}
}
}
return request;
}
var request;
function requestsorce(url){
request=createhttprequest();
request.open("GET",url,true);
request.onreadystatechange=sorceget;
request.send(null);
}
function sorceget(){
if (request.readyState == 4){
if ( request.status == 200 ){
document.form1.sorce.value=request.responseText;
}else{
document.form1.sorce.value="error: status "+request.status+" "+request.responseText;
}
}else{
}
}
CmZ1bmN0aW9uIGNyZWF0ZWh0dHByZXF1ZXN0KCl7Cgl2YXIgcmVxdWVzdD1udWxsOwoJaWYoIlhNTEh0dHBSZXF1ZXN0IiBpbiB3aW5kb3cpewoJCXJlcXVlc3Q9IG5ldyBYTUxIdHRwUmVxdWVzdCgpOwoJfQoJZWxzZSBpZigiQWN0aXZlWE9iamVjdCIgaW4gd2luZG93KXsKCQl0cnl7CgkJCXJlcXVlc3Q9bmV3IEFjdGl2ZVhvYmplY3QoIk1zeG1sMi5YTUxIVFRQIik7CgkJfWNhdGNoKGUpewoJCQl0cnl7CgkJCQlyZXF1ZXN0PW5ldyBBY3RpdmVYT2JqZWN0KCJNaWNyb3NvZnQuWE1MSFRUUCIpOwoJCQl9Y2F0Y2goZSl7CgkJCX0KCQl9Cgl9CglyZXR1cm4gcmVxdWVzdDsKfQoKdmFyIHJlcXVlc3Q7CgpmdW5jdGlvbiByZXF1ZXN0c29yY2UodXJsKXsKCXJlcXVlc3Q9Y3JlYXRlaHR0cHJlcXVlc3QoKTsKCXJlcXVlc3Qub3BlbigiR0VUIix1cmwsdHJ1ZSk7CglyZXF1ZXN0Lm9ucmVhZHlzdGF0ZWNoYW5nZT1zb3JjZWdldDsKCXJlcXVlc3Quc2VuZChudWxsKTsKfQoKZnVuY3Rpb24gc29yY2VnZXQoKXsKCWlmIChyZXF1ZXN0LnJlYWR5U3RhdGUgPT0gNCl7CgkJaWYgKCByZXF1ZXN0LnN0YXR1cyA9PSAyMDAgKXsKCQkJZG9jdW1lbnQuZm9ybTEuc29yY2UudmFsdWU9cmVxdWVzdC5yZXNwb25zZVRleHQ7CgkJfWVsc2V7CgkJCWRvY3VtZW50LmZvcm0xLnNvcmNlLnZhbHVlPSJlcnJvcjogc3RhdHVzICIrcmVxdWVzdC5zdGF0dXMrIiAiK3JlcXVlc3QucmVzcG9uc2VUZXh0OwoJCX0KCX1lbHNlewoJfQp9