📄 count_result.asp
字号:
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)&" "&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)&" "&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)&" "&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)&" "&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)&" "&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
k=k+2
next
if cint(Current_KitheTable(4,0))=49 or cint(Current_KitheTable(5,0))=49 or cint(Current_KitheTable(6,0))=49 or cint(Current_KitheTable(7,0))=49 or cint(Current_KitheTable(8,0))=49 or cint(Current_KitheTable(9,0))=49 then
Set Rs6=Conn.Execute("update m_chilp set a_mount='和局' where ID='"&Count_rs("ID")&"'")
result=0
end if
if result=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
Set Rs6=Nothing
response.write "<script lanuage=javascript>alert('有"&number1&"条记录赢了');history.go(-1);</script>"
response.end
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -