count_result.asp

1。超强文件读写锁定

	case "正码4"
	numberz1=Current_KitheTable(7,0)
	case "正码5"
	numberz1=Current_KitheTable(8,0)
	case "正码6"
	numberz1=Current_KitheTable(9,0)
	end select
   if  cint(numberz1) >24 and cint(numberz1)<>49 and trim(Count_rs("chilp_value"))="大" then
    number1=number1+1
	Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
	end if
	if  cint(numberz1) <25 and trim(Count_rs("chilp_value"))="小" then
    number1=number1+1
	Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
	end if
	'next
   Count_rs.movenext
   loop
   Set Rs6=Nothing
   response.write "<script lanuage=javascript>alert('有"&number1&"条记录赢了');history.go(-1);</script>"
   response.end
End Sub

Sub count_z1sp
number1=0
number_h=int(Current_KitheTable(3,0)/10)+int(Current_KitheTable(3,0) mod 10)
	set Count_rs=server.createobject("adodb.recordset")
   sql="Select chilp_value,sort,result,ID,chilp_types from m_chilp where sort='正码1-6' and (chilp_value='红波' or  chilp_value='蓝波' or  chilp_value='绿波') and Kithe='"&Kithe&"'"
   Count_rs.open sql,conn,1,1
	do while not Count_rs.eof
	Set Rs6=Conn.Execute("update m_chilp set banlance='1' where ID='"&Count_rs("ID")&"'")
	'response.Write Count_rs("chilp_value")&"<br>"
	'for i=1 to 6
	select case Count_rs("chilp_types")
	case "正码1"
	numberz1=Current_KitheTable(4,0)-1
	case "正码2"
	numberz1=Current_KitheTable(5,0)-1
	case "正码3"
	numberz1=Current_KitheTable(6,0)-1
	case "正码4"
	numberz1=Current_KitheTable(7,0)-1
	case "正码5"
	numberz1=Current_KitheTable(8,0)-1
	case "正码6"
	numberz1=Current_KitheTable(9,0)-1
	end select
	'response.write trim(Get_Para_Color(1,Current_KitheTable(4,0)-1))
   if  trim(Get_Para_Color(1,cint(numberz1)))="b" and trim(Count_rs("chilp_value"))="蓝波" then
    number1=number1+1
	Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
	end if
	if  trim(Get_Para_Color(1,cint(numberz1)))="r" and trim(Count_rs("chilp_value"))="红波" then
    number1=number1+1
	Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
	end if
	if  trim(Get_Para_Color(1,cint(numberz1)))="g" and trim(Count_rs("chilp_value"))="绿波" then
    number1=number1+1
	Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
	end if
   Count_rs.movenext
   loop
   Set Rs6=Nothing
   response.write "<script lanuage=javascript>alert('有"&number1&"条记录赢了');history.go(-1);</script>"
   response.end
End Sub

Sub count_zsds
number1=0
numberzs=Current_KitheTable(4,0)+Current_KitheTable(5,0)+Current_KitheTable(6,0)+Current_KitheTable(7,0)+Current_KitheTable(8,0)+Current_KitheTable(9,0)
	set Count_rs=server.createobject("adodb.recordset")
   sql="Select chilp_value,sort,result,ID,chilp_types from m_chilp where sort='正码' and (chilp_value='总单' or  chilp_value='总双') and Kithe='"&Kithe&"'"
   Count_rs.open sql,conn,1,1
	do while not Count_rs.eof
	Set Rs6=Conn.Execute("update m_chilp set banlance='1' where ID='"&Count_rs("ID")&"'")
	'response.Write Count_rs("sort")&"<br>"
	'for i=1 to 6
   if  cint(numberzs) mod 2=0 and trim(Count_rs("chilp_value"))="总双" then
    number1=number1+1
	Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
	end if
	if  cint(numberzs) mod 2=1 and trim(Count_rs("chilp_value"))="总单" then
    number1=number1+1
	Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
	end if
	'next
   Count_rs.movenext
   loop
   Set Rs6=Nothing
   response.write "<script lanuage=javascript>alert('有"&number1&"条记录赢了');history.go(-1);</script>"
   response.end
End Sub

Sub count_zsdx
number1=0
numberzs=Current_KitheTable(4,0)+Current_KitheTable(5,0)+Current_KitheTable(6,0)+Current_KitheTable(7,0)+Current_KitheTable(8,0)+Current_KitheTable(9,0)+Current_KitheTable(3,0)
	set Count_rs=server.createobject("adodb.recordset")
   sql="Select chilp_value,sort,result,ID,chilp_types from m_chilp where sort='正码' and (chilp_value='总大' or  chilp_value='总小') and Kithe='"&Kithe&"'"
   Count_rs.open sql,conn,1,1
	do while not Count_rs.eof
	Set Rs6=Conn.Execute("update m_chilp set banlance='1' where ID='"&Count_rs("ID")&"'")
	'response.Write Count_rs("sort")&"<br>"
	'for i=1 to 6
   if  cint(numberzs) >177 and trim(Count_rs("chilp_value"))="总大" then
    number1=number1+1
	Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
	end if
	if  cint(numberzs) <178 and trim(Count_rs("chilp_value"))="总小" then
    number1=number1+1
	Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
	end if
	'next
   Count_rs.movenext
   loop
   Set Rs6=Nothing
   response.write "<script lanuage=javascript>alert('有"&number1&"条记录赢了');history.go(-1);</script>"
   response.end
End Sub


Sub count_sqz
number1=0
numberzs=Current_KitheTable(4,0)+Current_KitheTable(5,0)+Current_KitheTable(6,0)+Current_KitheTable(7,0)+Current_KitheTable(8,0)+Current_KitheTable(9,0)+Current_KitheTable(3,0)
	set Count_rs=server.createobject("adodb.recordset")
   sql="Select chilp_value,sort,result,ID,chilp_types from m_chilp where sort='连码' and chilp_types='三全中' and Kithe='"&Kithe&"'"
   Count_rs.open sql,conn,1,1
	do while not Count_rs.eof
	Set Rs6=Conn.Execute("update m_chilp set banlance='1' where ID='"&Count_rs("ID")&"'")
	number5=0
	'response.Write Count_rs("sort")&"<br>"
	numberxz=Count_rs("chilp_value")
	numberxz=split(numberxz,",")
	for i=0 to ubound(numberxz)
	'response.write numberxz(i)&"<br>"
		for j=4 to 9
		if cint(Current_KitheTable(j,0))=cint(numberxz(i)) then
		number5=number5+1
		end if
		next
		'response.Write number5
	next
	if number5>2 then
	number6=number5*(number5-1)*(number5-2)/(3*2)
	number1=number1+number6
	Set Rs6=Conn.Execute("update m_chilp set result="&number6&" where ID='"&Count_rs("ID")&"'")
	end if
   Count_rs.movenext
   loop
   Set Rs6=Nothing
   response.write "<script lanuage=javascript>alert('有"&number1&"条记录赢了');history.go(-1);</script>"
   response.end
End Sub

Sub count_eqz
number1=0
numberzs=Current_KitheTable(4,0)+Current_KitheTable(5,0)+Current_KitheTable(6,0)+Current_KitheTable(7,0)+Current_KitheTable(8,0)+Current_KitheTable(9,0)+Current_KitheTable(3,0)
	set Count_rs=server.createobject("adodb.recordset")
   sql="Select chilp_value,sort,result,ID,chilp_types from m_chilp where sort='连码' and chilp_types='二全中' and Kithe='"&Kithe&"'"
   Count_rs.open sql,conn,1,1
	do while not Count_rs.eof
	Set Rs6=Conn.Execute("update m_chilp set banlance='1' where ID='"&Count_rs("ID")&"'")
	number5=0
	'response.Write Count_rs("sort")&"<br>"
	numberxz=Count_rs("chilp_value")
	numberxz=split(numberxz,",")
	for i=0 to ubound(numberxz)
	'response.write numberxz(i)&"<br>"
		for j=4 to 9
		if cint(Current_KitheTable(j,0))=cint(numberxz(i)) then
		number5=number5+1
		end if
		next
		'response.Write number5
	next
	if number5>1 then
	number6=number5*(number5-1)/2
	number1=number1+number6
	Set Rs6=Conn.Execute("update m_chilp set result="&number6&" where ID='"&Count_rs("ID")&"'")
	end if
   Count_rs.movenext
   loop
   Set Rs6=Nothing
   response.write "<script lanuage=javascript>alert('有"&number1&"条记录赢了');history.go(-1);</script>"
   response.end
End Sub

Sub count_sze
number1=0
numberzs=Current_KitheTable(4,0)+Current_KitheTable(5,0)+Current_KitheTable(6,0)+Current_KitheTable(7,0)+Current_KitheTable(8,0)+Current_KitheTable(9,0)+Current_KitheTable(3,0)
	set Count_rs=server.createobject("adodb.recordset")
   sql="Select chilp_value,sort,result,ID,chilp_types from m_chilp where sort='连码' and chilp_types='三中二' and Kithe='"&Kithe&"'"
   Count_rs.open sql,conn,1,1
	do while not Count_rs.eof
	Set Rs6=Conn.Execute("update m_chilp set banlance='1' where ID='"&Count_rs("ID")&"'")
	number5=0
	number4=0
	number6=0
	'response.Write Count_rs("sort")&"<br>"
	numberxz=Count_rs("chilp_value")
	numberxz=split(numberxz,",")
	for i=0 to ubound(numberxz)
	'response.write numberxz(i)&"<br>"
		for j=4 to 9
		if cint(Current_KitheTable(j,0))=cint(numberxz(i)) then
		number5=number5+1
		end if
		next
		'response.Write number5
	next
	if number5>1 then
	if number5<3 then
	number6=(number5*(number5-1)/2)*(ubound(numberxz)+1-number5)
	number1=number1+number6
	else
	number6=number5*(number5-1)*(number5-2)/(3*2)
	number1=number1+number6
	rate_zs=80
	Set Rs6=Conn.Execute("update m_chilp set l_type='中三',rate="&rate_zs&" where ID='"&Count_rs("ID")&"'")
	end if
	Set Rs6=Conn.Execute("update m_chilp set result="&number6&" where ID='"&Count_rs("ID")&"'")
	end if
   Count_rs.movenext
   loop
   Set Rs6=Nothing
   response.write "<script lanuage=javascript>alert('有"&number1&"条记录赢了');history.go(-1);</script>"
   response.end
End Sub

Sub count_ezt
number1=0
numberzs=Current_KitheTable(4,0)+Current_KitheTable(5,0)+Current_KitheTable(6,0)+Current_KitheTable(7,0)+Current_KitheTable(8,0)+Current_KitheTable(9,0)+Current_KitheTable(3,0)
	set Count_rs=server.createobject("adodb.recordset")
   sql="Select chilp_value,sort,result,ID,chilp_types from m_chilp where sort='连码' and chilp_types='二中特' and Kithe='"&Kithe&"'"
   Count_rs.open sql,conn,1,1
	do while not Count_rs.eof
	Set Rs6=Conn.Execute("update m_chilp set banlance='1' where ID='"&Count_rs("ID")&"'")
	number5=0
	number4=0
	number6=0
	'response.Write Count_rs("sort")&"<br>"
	numberxz=Count_rs("chilp_value")
	numberxz=split(numberxz,",")
	for i=0 to ubound(numberxz)
	'response.write Current_KitheTable(3,0)&"&nbsp;"&numberxz(i)&"<br>"
		if cint(Current_KitheTable(3,0))=cint(numberxz(i)) then 
		number4=1
		end if
		for j=4 to 9
		'response.write numberxz(i)&"<br>"
		if cint(Current_KitheTable(j,0))=cint(numberxz(i)) then
		'response.write Current_KitheTable(j,0)&"&nbsp;"&numberxz(i)&"<br>"
		number5=number5+1
		exit for
		end if
		next
		'response.Write number4
	next
	if number4=1 and number5>0 then
	number1=number1+number5
	number6=number5
	'Set Rs6=Conn.Execute("update m_chilp set result='"&number5&"' where ID='"&Count_rs("ID")&"'")
	else
	if number5>1 then
	number6=number5*(number5-1)/2
	number1=number1+number6
	rate_ze=30
	Set Rs6=Conn.Execute("update m_chilp set l_type='中二',rate="&rate_ze&" where ID='"&Count_rs("ID")&"'")
	end if
	end if
	Set Rs6=Conn.Execute("update m_chilp set result="&number6&" where ID='"&Count_rs("ID")&"'")
   Count_rs.movenext
   loop
   Set Rs6=Nothing
   response.write "<script lanuage=javascript>alert('有"&number1&"条记录赢了');history.go(-1);</script>"
   response.end
End Sub

Sub count_tc
number1=0
numberzs=Current_KitheTable(4,0)+Current_KitheTable(5,0)+Current_KitheTable(6,0)+Current_KitheTable(7,0)+Current_KitheTable(8,0)+Current_KitheTable(9,0)+Current_KitheTable(3,0)
	set Count_rs=server.createobject("adodb.recordset")
   sql="Select chilp_value,sort,result,ID,chilp_types from m_chilp where sort='连码' and chilp_types='特串' and Kithe='"&Kithe&"'"
   Count_rs.open sql,conn,1,1
	do while not Count_rs.eof
	Set Rs6=Conn.Execute("update m_chilp set banlance='1' where ID='"&Count_rs("ID")&"'")
	number5=0
	number4=0
	number6=0
	'response.Write Count_rs("sort")&"<br>"
	numberxz=Count_rs("chilp_value")
	numberxz=split(numberxz,",")
	for i=0 to ubound(numberxz)
	'response.write Current_KitheTable(3,0)&"&nbsp;"&numberxz(i)&"<br>"
		if cint(Current_KitheTable(3,0))=cint(numberxz(i)) then 
		number4=1
		end if
		for j=4 to 9
		'response.write numberxz(i)&"<br>"
		if cint(Current_KitheTable(j,0))=cint(numberxz(i)) then
		'response.write Current_KitheTable(j,0)&"&nbsp;"&numberxz(i)&"<br>"
		number5=number5+1
		exit for
		end if
		next
		'response.Write number4
	next
	if number4=1 then
	number1=number1+number5
	end if
	Set Rs6=Conn.Execute("update m_chilp set result="&number5&" where ID='"&Count_rs("ID")&"'")
   Count_rs.movenext
   loop
   Set Rs6=Nothing
   response.write "<script lanuage=javascript>alert('有"&number1&"条记录赢了');history.go(-1);</script>"
   response.end
End Sub

Sub count_zmgg
number1=0
numberzs=Current_KitheTable(4,0)+Current_KitheTable(5,0)+Current_KitheTable(6,0)+Current_KitheTable(7,0)+Current_KitheTable(8,0)+Current_KitheTable(9,0)+Current_KitheTable(3,0)
	set Count_rs=server.createobject("adodb.recordset")
   sql="Select chilp_value,sort,result,ID,chilp_types from m_chilp where sort='正码过关' and Kithe='"&Kithe&"'"
   Count_rs.open sql,conn,1,1
	do while not Count_rs.eof
	Set Rs6=Conn.Execute("update m_chilp set banlance='1' where ID='"&Count_rs("ID")&"'")
	k=0
	result=0
	numberxz=split(Count_rs("chilp_types"),",")
	numberxz1=split(Count_rs("chilp_value"),",")
	'numberxz=split(numberxz,",")
	'for i=0 to ubound(numberxz)
	'response.write numberxz1(k)&"<br>"
	'next
	'response.write ubound(numberxz1)
	for i=0 to ubound(numberxz)
	'response.write k&"<br>"
	'response.write Current_KitheTable(3,0)&"&nbsp;"&numberxz(i)&"<br>"
	select case numberxz(i)
	case "正码1"
	numberz1=Current_KitheTable(4,0)
	case "正码2"
	numberz1=Current_KitheTable(5,0)
	case "正码3"
	numberz1=Current_KitheTable(6,0)
	case "正码4"
	numberz1=Current_KitheTable(7,0)
	case "正码5"
	numberz1=Current_KitheTable(8,0)
	case "正码6"
	numberz1=Current_KitheTable(9,0)
	end select
	'response.write numberxz1(k)&"<br>"
	if numberxz1(k)="大" then
	if cint(numberz1) >24 and cint(numberz1)<>49  then
	else
	exit for
	end if
	end if
	if numberxz1(k)="小" then
	if  cint(numberz1) <25 then
	else
	exit for 
	end if
	end if
	if numberxz1(k)="双" then
	if  cint(numberz1) mod 2=0 then
    else
	exit for
	end if
	end if
	if numberxz1(k)="单" then
	if  cint(numberz1) mod 2=1 then
    else
	exit for
	end if
	end if
	if numberxz1(k)="蓝波" then
	if  trim(Get_Para_Color(1,cint(numberz1)))="b"  then
    else
	exit for
	end if
	end if
	if numberxz1(k)="红波" then
	if  trim(Get_Para_Color(1,cint(numberz1)))="r"  then
    else
	exit for
	end if
	end if
	if numberxz1(k)="绿波" then
	if  trim(Get_Para_Color(1,cint(numberz1)))="g" then
    else
	exit for
	end if
	end if
	result=1
	k=k+2
	next
	if result=1 then
	number1=number1+1
	Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
	end if
   Count_rs.movenext
   loop
   Set Rs6=Nothing
   response.write "<script lanuage=javascript>alert('有"&number1&"条记录赢了');history.go(-1);</script>"
   response.end
End Sub
%>