count_result_lm.asp

1。超强文件读写锁定

<!--#include file="mConn.asp"-->
<!--#include file="sk2.asp"-->
<!--#include file="mConst.asp"-->
<%'计算特别号
 If Session("SK2Admin")="" and isnumeric(request("issue")) Then
  Response.Redirect "Admin_Login.Asp"
  Response.End
End If
kithe=request("issue")
Set Rs6=Conn.Execute("Select Top 1 ID,NN,ND,NA,N1,N2,N3,N4,N5,N6 From m_Kithe  where NN='"&kithe&"'")
	If Not Rs6.Eof Then
 	  Current_KitheTable=Rs6.GetRows(1)
	  else
	  response.write "<script lanuage=javascript>alert('还未开奖,请先开奖');history.go(-1);</script>"
   response.end
	  end if
Set Rs6=Conn.Execute("Select ID,color From m_color Order By ID")
	If Not Rs6.Eof Then
 	  Get_Para_Color=Rs6.GetRows(-1)
	End If
Set Rs6=Conn.Execute("Select ID,m_number From m_sxnumber Order By ID")
	If Not Rs6.Eof Then
 	  Get_sx_Color=Rs6.GetRows(-1)
	End If
Select Case Request("K6")
   Case "K1"
   t1="t1"
    count_sqz
  Case "K3"
  t1="t3"
    count_eqz
Case "K2"
t1="t2"
'三中二
    count_sze
	Case "K4"
	t1="t4"
    count_ezt
	'二中特
	Case "K5"
	t1="t5"
	'特串
    count_tc
  Case "K6"
  t1="t6"
    count_zmgg
  Case "K7"
  t1="t7"
    count_sx
	Case "K8"
	t1="t8"
    count_ys
Case Else
    response.Redirect "result_justpass.asp"
	Response.End
End Select

Sub count_sqz
number1=0
sum_num=0
sum_result=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 Rs6=Conn.Execute("update m_chilp set banlance='1' where sort='连码' and chilp_types='三全中' and Kithe='"&Kithe&"'")
	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
	sum_num=sum_num+1
	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
	sum_result=sum_result+1
	Set Rs6=Conn.Execute("update m_chilp set result="&number6&" where ID='"&Count_rs("ID")&"'")
	end if
   Count_rs.movenext
   loop
   Set Rs6=Nothing
   if sum_result<1 then
   number1=-cint(sum_num)
   end if
   response.Redirect "result_justpass.asp?"&t1&"="&sum_result&""
   response.end
End Sub

Sub count_eqz
number1=0
sum_num=0
sum_result=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 Rs6=Conn.Execute("update m_chilp set banlance='1' where sort='连码' and chilp_types='二全中' and Kithe='"&Kithe&"'")
	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
	sum_num=sum_num+1
	
	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")&"'")
	sum_result=sum_result+1
	end if
   Count_rs.movenext
   loop
   Set Rs6=Nothing
   if sum_result<1 then
   number1=-cint(sum_num)
   end if
   response.Redirect "result_justpass.asp?"&t1&"="&sum_result&""
   response.end
End Sub

Sub count_sze
number1=0
sum_num=0
sum_result=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 Rs6=Conn.Execute("update m_chilp set banlance='1' where sort='连码' and chilp_types='三中二' and Kithe='"&Kithe&"'")
	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
	sum_num=sum_num+1
	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")&"'")
	sum_result=sum_result+1
	else
	Set Rs6=Conn.Execute("update m_chilp set result=0 where ID='"&Count_rs("ID")&"'")
	end if
   Count_rs.movenext
   loop
   Set Rs6=Nothing
   if sum_result<1 then
   number1=-cint(sum_num)
   end if
   response.Redirect "result_justpass.asp?"&t1&"="&sum_result&""
   response.end
End Sub

Sub count_ezt
number1=0
sum_num=0
sum_result=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 Rs6=Conn.Execute("update m_chilp set banlance='1' where sort='连码' and chilp_types='二中特' and Kithe='"&Kithe&"'")
	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
	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)
	sum_num=sum_num+1
		if cint(Current_KitheTable(3,0))=cint(numberxz(i)) then 
		number4=1
		end if
		for j=4 to 9
		if cint(Current_KitheTable(j,0))=cint(numberxz(i)) then
		number5=number5+1
		exit for
		end if
		next
	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
	sum_result=sum_result+1
	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
   if sum_result<1 then
   number1=-cint(sum_num)
   end if
   response.Redirect "result_justpass.asp?"&t1&"="&sum_result&""
   response.end
End Sub

Sub count_tc
number1=0
sum_num=0
sum_result=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 Rs6=Conn.Execute("update m_chilp set banlance='1' where sort='连码' and chilp_types='特串' and Kithe='"&Kithe&"'")
	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
	sum_num=sum_num+1
	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
	sum_result=sum_result+1
	Set Rs6=Conn.Execute("update m_chilp set result="&number5&" where ID='"&Count_rs("ID")&"'")
	else
	Set Rs6=Conn.Execute("update m_chilp set result=0 where ID='"&Count_rs("ID")&"'")
	end if
   Count_rs.movenext
   loop
   Set Rs6=Nothing
   if sum_result<1 then
   number1=-cint(sum_num)
   end if
   response.Redirect "result_justpass.asp?"&t1&"="&sum_result&""
   response.end
End Sub

Sub count_zmgg
number1=0
sum_num=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 Rs6=Conn.Execute("update m_chilp set banlance='1' where sort='正码过关' and Kithe='"&Kithe&"'")
		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
	sum_num=sum_num+1
	k=0
	result=0
	result2=1
	numberxz=split(Count_rs("chilp_types"),",")
	numberxz1=split(Count_rs("chilp_value"),",")
	for i=0 to ubound(numberxz)
	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>"
	
	select case numberxz1(k)
	case "大"
	if cint(numberz1)=49 then
	Set Rs6=Conn.Execute("update m_chilp set amount='和局',result=0 where ID='"&Count_rs("ID")&"'")
	else
	if cint(numberz1) >24 and cint(numberz1)<49  then
	result=1
	else 
	result=0
	end if
	end if
	case "小"
	if  cint(numberz1) <25 then
	result=1
	else 
	result=0
	end if
	
	case "双"
	if  cint(numberz1) mod 2=0 then
	result=1
	else 
	result=0
	end if
	case "单"
	if cint(numberz1)=49 then
	Set Rs6=Conn.Execute("update m_chilp set amount='和局',result=0 where ID='"&Count_rs("ID")&"'")
	else
	if  cint(numberz1) mod 2=1 then
	result=1
	else 
	result=0
	end if
	end if
	case "蓝波"
	if  trim(Get_Para_Color(1,cint(numberz1)))="b"  then
	result=1
	else 
	result=0
	end if
	case "红波"
	if  trim(Get_Para_Color(1,cint(numberz1)))="r"  then
	result=1
	else 
	result=0
	end if
	case "绿波"
	if  trim(Get_Para_Color(1,cint(numberz1)))="g"  then
	result=1
	else 
	result=0
	end if
	end select
	k=k+2
	if result=0 then
	result2=0	
	end if
	next
	if result=1 and result2=1 then
	number1=number1+1
	Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
	else
	Set Rs6=Conn.Execute("update m_chilp set result=0 where ID='"&Count_rs("ID")&"'")
	end if
   Count_rs.movenext
   loop
   if number1<1 then
   number1=-cint(sum_num)
   end if
   response.Redirect "result_justpass.asp?"&t1&"="&number1&""
   response.end
End Sub

Sub count_sx
number1=0
sum_m=0
Set Rs6=Conn.Execute("update m_chilp set banlance='1' where  sort='十二生肖'  and Kithe='"&Kithe&"'")
	set Count_rs=server.createobject("adodb.recordset")
   sql="Select chilp_value,sort,result,ID from m_chilp where  sort='十二生肖'  and Kithe='"&Kithe&"'"
   Count_rs.open sql,conn,1,1
	do while not Count_rs.eof
	sum_m=sum_m+1
	select case Count_rs("chilp_value")
	case "鼠"
	numbersx=1
	case "虎"
	numbersx=2
	case "龙"
	numbersx=3
	case "马"
	numbersx=4
	case "猴"
	numbersx=5
	case "狗"
	numbersx=6
	case "牛"
	numbersx=7
	case "兔"
	numbersx=8
	case "蛇"
	numbersx=9
	case "羊"
	numbersx=10
	case "鸡"
	numbersx=11
	case "猪"
	numbersx=12
	end select
	numbersx2=Get_sx_Color(1,cint(numbersx)-1)
	numbersx2=split(numbersx2,",")
	for i=0 to ubound(numbersx2)
	if Current_KitheTable(3,0)=cint(numbersx2(i)) 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
   if number1<1 then
   number1=-cint(sum_num)
   end if
   response.Redirect "result_justpass.asp?"&t1&"="&number1&""
   response.end
End Sub

Sub count_ys
number1=0
sum_m=0
Set Rs6=Conn.Execute("update m_chilp set banlance='1' where  sort='一肖'  and Kithe='"&Kithe&"'")
	set Count_rs=server.createobject("adodb.recordset")
   sql="Select chilp_value,sort,result,ID from m_chilp where  sort='一肖'  and Kithe='"&Kithe&"'"
   Count_rs.open sql,conn,1,1
	do while not Count_rs.eof
	sum_m=sum_m+1
	select case Count_rs("chilp_value")
	case "鼠"
	numbersx=1
	case "虎"
	numbersx=2
	case "龙"
	numbersx=3
	case "马"
	numbersx=4
	case "猴"
	numbersx=5
	case "狗"
	numbersx=6
	case "牛"
	numbersx=7
	case "兔"
	numbersx=8
	case "蛇"
	numbersx=9
	case "羊"
	numbersx=10
	case "鸡"
	numbersx=11
	case "猪"
	numbersx=12
	end select
	numbersx2=Get_sx_Color(1,cint(numbersx)-1)
	numbersx2=split(numbersx2,",")
	for i=0 to ubound(numbersx2)
	if Current_KitheTable(4,0)=cint(numbersx2(i)) or Current_KitheTable(5,0)=cint(numbersx2(i)) or Current_KitheTable(6,0)=cint(numbersx2(i)) or Current_KitheTable(7,0)=cint(numbersx2(i)) or Current_KitheTable(8,0)=cint(numbersx2(i)) or Current_KitheTable(9,0)=cint(numbersx2(i)) or Current_KitheTable(3,0)=cint(numbersx2(i)) then
	number1=number1+1
	Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
	else
	result0=0
	end if
	next
   Count_rs.movenext
   loop
   Set Rs6=Nothing
   if number1<1 then
   number1=-cint(sum_num)
   end if
   response.Redirect "result_justpass.asp?"&t1&"="&number1&""
   response.end
End Sub
%>
<%'response.write "<script lanuage=javascript>alert('有"&number1&"条记录赢了');location.href='result_justpass.asp?t2="&number1&"';"%>