var ddl=1000*60*60*24*365*10;
var ky1="ctip00_userid";
var uid="";
var ky2="ctip00_visited";
var vst="";

getAndSetUserId();
getAndSetVisited();

document.write("<div style='display:none;'>");
document.write("<img src='http://www.c-toys.co.jp/ctips/ctip001.cgi"
+"?subject="+getSubject()
+"&from="+escape(top.document.referrer)
+"&page="+location.href
+"&uid="+uid
+"&vst="+vst
+"&rand="+Math.random()+"'>");
document.write("</div>");

function getAndSetUserId(){
  var key;
  var cok;
  var sta;
  var end;
  key=ky1+"=";
  cok=document.cookie+";";
  sta=cok.indexOf(key);
  if(sta!=-1){
    end=cok.indexOf(";",sta);
    uid=unescape(cok.substring(sta+key.length,end));
  }
  else{
    uid=createUserId();
  }
  setUserId();
}

function setUserId(){
  var ndy;
  var edy;
  ndy=new Date();
  ndy.setTime(ndy.getTime()+ddl);
  edy=ndy.toGMTString();
  document.cookie=ky1+"="+escape(uid)+";expires="+edy;
}

function createUserId(){
  var alp=["A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z"];
  var uid=alp[getRandom(0,25)]+alp[getRandom(0,25)]+alp[getRandom(0,25)]
         +alp[getRandom(0,25)]+alp[getRandom(0,25)]+alp[getRandom(0,25)];
  return uid;
}

function getAndSetVisited(){
  var key;
  var cok;
  var sta;
  var end;
  key=ky2+"_"+location.href+"=";
  cok=document.cookie+";";
  sta=cok.indexOf(key);
  if(sta!=-1){
    end=cok.indexOf(";",sta);
    vst=unescape(cok.substring(sta+key.length,end));
  }
  else{
    vst="0";
  }
  vst=""+(parseInt(vst)+1);
  setVisited();
}

function setVisited(){
  var ndy;
  var edy;
  ndy=new Date();
  ndy.setTime(ndy.getTime()+ddl);
  edy=ndy.toGMTString();
  document.cookie=ky2+"_"+location.href+"="+escape(vst)+";expires="+edy;
}

function getSubject(){
  var sub1=(location.href).split("/");
  var sub2=(sub1[sub1.length-1]).split(".");
  if(sub2[0]=="") sub2[0]=">>>";
  return "ctips> "+uid+" "+vst+" "+sub2[0]+" "+sub1[2];
}

function getRandom(nm0,nm1){
  return (Math.floor((nm1+1-nm0)*Math.random())+nm0);
}