count_result.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"
   count_tm
  Case "K2"
  '特别号单双
    count_tmds
  Case "K3"
    count_tmdx
	'特别号大小
  Case "K4"
  '色波
    count_tmsp
  Case "K5"
  '合数单双
    count_tmhs
  Case "K6"
     '生肖
    count_tmsx
  Case "K7"
    '一肖
    count_tmys
  Case "K8"
   count_zm
  Case "K9"
     count_z1ds
  Case "K10"
    count_z1dx
  Case "K11"
    count_z1sp
  Case "K12"
   count_zsds
  Case "K13"
   count_zsdx
  Case "K14"
    count_sqz
  Case "K15"
    count_eqz
Case "K16"
'三中二
    count_sze
	Case "K17"
    count_ezt
	'二中特
	Case "K18"
	'特串
    count_tc
	Case "K19"
    count_zmgg
Case Else
    Response.Redirect "index_result.asp"
	Response.End
End Select
Sub count_tm
number1=0
	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
	
	'response.Write Count_rs("sort")&"<br>"
   if isnumeric(Count_rs("chilp_value")) then
   Set Rs6=Conn.Execute("update m_chilp set banlance='1' where ID='"&Count_rs("ID")&"'")
   if cint(Current_KitheTable(3,0))=cint(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
   end if
   Count_rs.movenext
   loop
   Set Rs6=Nothing
   response.write "<script lanuage=javascript>alert('有"&number1&"条记录赢了');location.href='index_result.asp?t1="&number1&"';</script>"
    response.Redirect "index_result.asp?t1="&number1&""
	response.end
End Sub
Sub count_zm
number1=0
	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
	Set Rs6=Conn.Execute("update m_chilp set banlance=1 where ID='"&Count_rs("ID")&"'")
	'response.Write Count_rs("sort")&"<br>"
   if isnumeric(Count_rs("chilp_value")) then
   if cint(Current_KitheTable(4,0))=cint(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(Current_KitheTable(5,0))=cint(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(Current_KitheTable(6,0))=cint(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(Current_KitheTable(7,0))=cint(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(Current_KitheTable(8,0))=cint(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(Current_KitheTable(9,0))=cint(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
   end if
   Count_rs.movenext
   loop
   Set Rs6=Nothing
   response.write "<script lanuage=javascript>alert('有"&number1&"条记录赢了');location.href='index_result.asp?t2="&number1&"';</script>"
   response.end
End Sub
Sub count_tmds
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 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>"
    if  cint(Current_KitheTable(3,0)) 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(Current_KitheTable(3,0)) 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
   Count_rs.movenext
   loop
   Set Rs6=Nothing
   response.write "<script lanuage=javascript>alert('有"&number1&"条记录赢了');location.href='index_result.asp?t2="&number1&"';</script>"
   response.end
End Sub

Sub count_tmdx
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 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>"
    if  cint(Current_KitheTable(3,0)) >24 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(Current_KitheTable(3,0)) <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
   Count_rs.movenext
   loop
   Set Rs6=Nothing
   response.write "<script lanuage=javascript>alert('有"&number1&"条记录赢了');history.go(-1);</script>"
   response.end
End Sub
'特别号色波
Sub count_tmsp
number1=0
  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
'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 from m_chilp where chilp_types='特别号' 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("sort")&"<br>"
   if  trim(Get_Para_Color(1,cint(Current_KitheTable(3,0))-1))="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(Current_KitheTable(3,0))-1))="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(Current_KitheTable(3,0))-1))="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_tmhs
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 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>"
    if  cint(number_h) 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(number_h) 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
   Count_rs.movenext
   loop
   Set Rs6=Nothing
   response.write "<script lanuage=javascript>alert('有"&number1&"条记录赢了');history.go(-1);</script>"
   response.end
End Sub

Sub count_tmsx
number1=0
  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
'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 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")&"'")
	'response.Write Count_rs("sort")&"<br>"
	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,",")
	'response.write numbersx2&"<br>"
	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
   response.write "<script lanuage=javascript>alert('有"&number1&"条记录赢了');history.go(-1);</script>"
   response.end
End Sub

Sub count_tmys
number1=0
  '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
'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 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")&"'")
	'response.Write Count_rs("sort")&"<br>"
	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,",")
	'response.write numbersx2&"<br>"
	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")&"'")
	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_z1ds
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='双') 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
	select case Count_rs("chilp_types")
	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
    if  cint(numberz1) 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(numberz1) 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_z1dx
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='小') 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
	select case Count_rs("chilp_types")
	case "正码1"
	numberz1=Current_KitheTable(4,0)
	case "正码2"
	numberz1=Current_KitheTable(5,0)
	case "正码3"
	numberz1=Current_KitheTable(6,0)