index_rate.asp

1。超强文件读写锁定

        flag1=true
	    t_all1=cdbl(form2.t_signle.value)+cdbl(form2.t_double.value)
  end if
  end if
case 2 
if (not isnumeric(form2.t_double.value)) or form2.t_double.value=""  then
  alert("修改的号码不能为空或不为数字,请重新输入")
  form2.t_double.select
  else if form2.chk1.checked = true then
          if flag1=true then t_all=t_all1
	      form2.t_signle.value=cdbl(t_all)-cdbl(form2.t_double.value)
      else
          flag1=true
	      t_all1=cdbl(form2.t_signle.value)+cdbl(form2.t_double.value)
      end if
	  end if
case  3 
if (not isnumeric(form2.t_big.value)) or form2.t_big.value=""  then
  alert("修改的号码不能为空或不为数字,请重新输入")
  form2.t_big.select
  else if form2.chk2.checked = true then
          if flag2=true then t_all=t_all2
	      form2.t_small.value=cdbl(t_all)-(form2.t_big.value)
      else
          flag2=true
	      t_all2=cdbl(form2.t_small.value)+cdbl(form2.t_big.value)
     end if
	 end if
case  4
if (not isnumeric(form2.t_small.value)) or form2.t_small.value=""  then
  alert("修改的号码不能为空或不为数字,请重新输入")
  form2.t_small.select
  else if form2.chk2.checked = true then
          if flag2=true then t_all=t_all2
			      form2.t_big.value=cdbl(t_all)-cdbl(form2.t_small.value)
      else
          flag2=true
	      t_all2=cdbl(form2.t_small.value)+cdbl(form2.t_big.value)
     end if
	 end if
case  5 
if (not isnumeric(form2.z_signle.value)) or form2.z_signle.value=""  then
  alert("修改的号码不能为空或不为数字,请重新输入")
  form2.z_signle.select
  else if form2.chk3.checked = true then
          if flag3=true then t_all=t_all3
	       form2.z_double.value=cdbl(t_all)-cdbl(form2.z_t_signle.value)
      else
          flag3=true
	      t_all3=cdbl(form2.z_double.value)+cdbl(form2.z_t_signle.value)
     end if
end if
case  6 
if (not isnumeric(form2.z_double.value)) or form2.z_double.value=""  then
  alert("修改的号码不能为空或不为数字,请重新输入")
  form2.z_double.select
  else  if form2.chk3.checked = true then
          if flag3=true then t_all=t_all3
	      form2.z_t_signle.value =cdbl(t_all)-cdbl(form2.z_double.value)
      else
          flag3=true
	      t_all3= cdbl(form2.z_double.value)+cdbl(form2.z_t_signle.value)
     end if
	 end if
case  7
if (not isnumeric(form2.z_big.value)) or form2.z_big.value=""  then
  alert("修改的号码不能为空或不为数字,请重新输入")
  form2.z_big.select
  else if form2.chk2.checked = true then
          if flag4=true then t_all=t_all4
	      form2.z_small.value=cdbl(t_all)-cdbl(form2.z_big.value)
      else
          flag4=true
	      t_all4=cdbl(form2.z_small.value)+cdbl(form2.z_big.value)
     end if
	 end if
case  8
if (not isnumeric(form2.z_small.value)) or form2.z_small.value=""  then
  alert("修改的号码不能为空或不为数字,请重新输入")
  form2.z_small.select
  else 
       if form2.chk2.checked = true then
          if flag4=true then t_all=t_all4
	      form2.z_big.value=cdbl(t_all)-cdbl(form2.z_small.value)
      else
          flag4=true
	      t_all4=cdbl(form2.z_small.value)+cdbl(form2.z_big.value)
     end if
	 end if
case 9
if (not isnumeric(form2.red_wave.value)) or form2.red_wave.value=""  then
  alert("修改的号码不能为空或不为数字,请重新输入")
  form2.red_wave.select
end if
case 10
if (not isnumeric(form2.blue_wave.value)) or form2.blue_wave.value=""  then
  alert("修改的号码不能为空或不为数字,请重新输入")
  form2.blue_wave.select
end if
end select
end sub
</SCRIPT>

<SCRIPT language=javascript>


function fly(x,z)
{
form3.fly.value=x;
var num1="num"+x;
if (z==1) 
{
	var y = document.all[num1].innerText-200000
	
}
if (z==2) 
{
var y = document.all[num1].innerText-200000
if (x=50)
	{
		x="特单"
	}
	if (x=51)
	{
		x="特双"
	}
	if (x=52)
	{
		x="特大"
	}
	if (x=53)
	{
		x="特小"
	}
}
if (z==3) 
{
var y = document.all[num1].innerText-200000
if (x=58)
	{
		x="红波"
	}
	if (x=59)
	{
		x="绿波"
	}
	if (x=11)
	{
		x="蓝波"
	}
}
if (z==4) 
{
var y = document.all[num1].innerText-200000
if (x=54)
	{
		x="总单"
	}
	if (x=54)
	{
		x="总双"
	}
	if (x=56)
	{
		x="总大"
	}
	if (x=57)
	{
		x="总小"
	}
}
var xx=prompt(x+"  请输入走飞值:",y)
if (xx!=null && xx!="") 
{
var num="money"+x
form3.money.value=xx;
form3.submit();
}
}

var tt;
var pos;
var col=new Array();
function GetResult()
{
    var oBao = new ActiveXObject("Microsoft.XMLHTTP");
    oBao.open("POST","restart.asp",false);
    oBao.send();
	
    strResult = unescape(oBao.responseText);
 	var arrResult = strResult.split(",");
		var re = / /g;
	    for(var i=0;i<arrResult.length-1;i++)
    {
	     
		    arrTmp = arrResult[i].split(":");
			var xx=parseFloat(document.all[arrTmp[0]].innerText.replace(re,""));
			var yy=parseFloat(arrTmp[1].replace(re,""));
			tt=arrTmp[0]
			if (tt.indexOf("num")!=-1)
			{
			if (10000 <= yy && 20000 > yy)
			{
			
			chgCol(1)
			}
			if (20000 <= yy && 50000 > yy)
			{

			chgCol(2)
			}
			if (50000 <= yy)
			{
			
			chgCol(3)
			}
			}
			if (tt.indexOf("yj")!=-1)
			{
			
			if (yy<0)
			{
						document.all[tt].style.color = "ff0000";
						yy=Math.abs(yy);
			}
			}
	
	//document.all[arrTmp[0]].innerText =arrTmp[1].toString().replace(re,"");
	
	document.all[arrTmp[0]].innerText =yy;
    }
}

function chgCol(x) 
{
if (x==1) 
{
document.all[tt].style.background = "#e4e1ff";
}
		if (x==2)
		{
		document.all[tt].style.background = "#Cc99ff";
		}
		if (x==3)
		{
		document.all[tt].style.background = "#9999FF";
		}
 }
</SCRIPT>
</BODY></HTML>