function createHttpRequest() {

  //Win ie用
  if(window.ActiveXObject){
    try {
      //MSXML2以降用
      return new ActiveXObject("Msxml2.XMLHTTP") //[1]'
    } catch (e) {
      try {
        //旧MSXML用
        return new ActiveXObject("Microsoft.XMLHTTP") //[1]'
      } catch (e2) {
        return null
      }
    }
  } else if(window.XMLHttpRequest){
    //Win ie以外のXMLHttpRequestオブジェクト実装ブラウザ用
    return new XMLHttpRequest() //[1]'
  } else {
    return null
  }
}

function clickcount(clickid) {

  var httpoj = createHttpRequest();

  httpoj.open('GET','http://www.classic-disc.net/do_count_click.rb?clickid='+clickid,false)
  httpoj.setRequestHeader("If-Modified-Since", "Thu, 01 Jun 1970 00:00:00 GMT");
  httpoj.send('clicked')

}

function movepage(url) {
//  win=window.open(url,"","width=400,height=300");
//  document.location=url;
}

function do_write_custom(type,tid,format,pageurl) {

  var httpoj = createHttpRequest();

//  httpoj.open('GET','/do_get_info.rb?type=related&tid=9&format=text&pageurl=/Rakhmaninov_Rhapsody_Paganini.html',true);
  httpoj.open('GET','/do_get_info.rb?type='+type+'&tid='+tid+'&format='+format+'&pageurl='+pageurl,true);
  httpoj.setRequestHeader("If-Modified-Since", "Thu, 01 Jun 1970 00:00:00 GMT");

  httpoj.onreadystatechange = function() { 
    //readyState値は4で受信完了
    if (httpoj.readyState==4) { 
        on_get_info_loaded(httpoj);
    }
  }
  httpoj.send('get_info');
}

function on_get_info_loaded(httpoj) {
  res=httpoj.responseText;
  document.getElementById('fw_get_info').innerHTML=res
}