双色球防真开奖分析源码[部分]
双色球防真开奖分析源码[部分]
工作缘故在做双色球完全防真的网上玩法 这两天一直在搞比较头痛的复式投注的号码和开奖号码的各个奖项的中奖组数的问题，涉及到了大学里学到的排列组合的东西，虽然忘得差不多了，但总算出来了，拿出来给大家一起研究一下
<!--#include file="conn.asp"-->
<%
ch_end="01|02|03|04|05|06"
bl_end="01"
a1=mid(ch_end,1,2)
a2=mid(ch_end,4,2)
a3=mid(ch_end,7,2)
a4=mid(ch_end,10,2)
a5=mid(ch_end,13,2)
a6=mid(ch_end,16,2)
sql="select * from x_ssq"
set rs=conn.execute (sql)
if not rs.eof then
while not rs.eof
ch=rs("ch")
if InStr(ch,a1)<>0 then
h1=h1+1
else
h1=h1
end if
if InStr(ch,a2)<>0 then
h1=h1+1
else
h1=h1
end if
if InStr(ch,a3)<>0 then
h1=h1+1
else
h1=h1
end if
if InStr(ch,a4)<>0 then
h1=h1+1
else
h1=h1
end if
if InStr(ch,a5)<>0 then
h1=h1+1
else
h1=h1
end if
if InStr(ch,a6)<>0 then
h1=h1+1
else
h1=h1
end if
bl=rs("bl")
if InStr(bl,bl_end)<>0 then
b1=1
else
b1=0
end if
i=rs("i")
j=rs("j")
if rs("action1")=1 or rs("action1")=2 then
if h1=6 and b1=1 then
sql="update x_ssq set j1=1 where id="&rs("id")
conn.execute(sql)
end if
if h1=6 and b1=0 then
sql="update x_ssq set j2=1 where id="&rs("id")
conn.execute(sql)
end if
if h1=5 and b1=1 then
sql="update x_ssq set j3=1 where id="&rs("id")
conn.execute(sql)
end if
if h1=5 and b1=0 then
sql="update x_ssq set j4=1 where id="&rs("id")
conn.execute(sql)
end if
if h1=4 and b1=1 then
sql="update x_ssq set j5=1 where id="&rs("id")
conn.execute(sql)
end if
if h1=3 and b1=1 then
sql="update x_ssq set j6=1 where id="&rs("id")
conn.execute(sql)
end if
if h1=4 and b1=0 then
sql="update x_ssq set j6=1 where id="&rs("id")
conn.execute(sql)
end if
end if
if rs("action1")=3 then
'response.write h1
'response.write b1
'response.end
if h1=6 and b1=1 then
j3_3=6*(i-6)
j3_5=15*(i-6)*(i-7)/2
j3_6=10*(i-6)*(i-7)*(i-8)/3
sql="update x_ssq set j1=1,j3='"&j3_3&"',j5='"&j3_5&"',j6='"&j3_6&"' where id="&rs("id")
conn.execute(sql)
end if
if h1=6 and b1=0 then
j3_4=6*(i-6)
j3_6=15*(i-6)*(i-7)/2
sql="update x_ssq set j2=1,j4='"&j3_4&"',j6='"&j3_6&"' where id="&rs("id")
conn.execute(sql)
end if
if h1=5 and b1=1 then
j3_3=i-5
j3_5=5*(i-5)*(i-6)/2
j3_6=5*(i-5)*(i-6)*(i-7)/3
sql="update x_ssq set j3='"&j3_3&"',j5='"&j3_5&"',j6='"&j3_6&"' where id="&rs("id")
conn.execute(sql)
end if
if h1=5 and b1=0 then
j3_4=i-5
j3_6=5*(i-5)*(i-6)/2
sql="update x_ssq set j4='"&j3_4&"',j6='"&j3_6&"' where id="&rs("id")
conn.execute(sql)
end if
if h1=4 and b1=1 then
j3_5=(i-4)*(i-5)/2
j3_6=4*(i-4)*(i-5)*(i-6)/6
sql="update x_ssq set j5='"&j3_5&"',j6='"&j3_6&"' where id="&rs("id")
conn.execute(sql)
end if
if h1=4 and b1=0 then
j3_6=(i-4)*(i-5)/2
sql="update x_ssq set j6='"&j3_6&"' where id="&rs("id")
conn.execute(sql)
end if
if h1=3 and b1=1 then
j3_6=(i-3)*(i-4)*(i-5)/6
sql="update x_ssq set j6='"&j3_6&"' where id="&rs("id")
conn.execute(sql)
end if
end if
if rs("action1")=4 then
j=rs("j")
j4=j-1
if h1=6 and b1=1 then
sql="update x_ssq set j1=1,j2='"&j4&"' where id="&rs("id")
conn.execute(sql)
end if
if h1=6 and b1=0 then
sql="update x_ssq set j2='"&j&"' where id="&rs("id")
conn.execute(sql)
end if
if h1=5 and b1=1 then
sql="update x_ssq set j3=1,j4='"&j4&"' where id="&rs("id")
conn.execute(sql)
end if
if h1=5 and b1=0 then
sql="update x_ssq set j4='"&j&"' where id="&rs("id")
conn.execute(sql)
end if
if h1=4 and b1=1 then
sql="update x_ssq set j5=1,j6='"&j4&"' where id="&rs("id")
conn.execute(sql)
end if
if h1=4 and b1=0 then
sql="update x_ssq set j6='"&j&"' where id="&rs("id")
conn.execute(sql)
end if
if h1=3 and b1=1 then
sql="update x_ssq set j6=1 where id="&rs("id")
conn.execute(sql)
end if
end if
if rs("action1")=5 then
if h1=6 and b1=1 then
j5_2=j-1
j5_3=6*(i-6)
j5_4=5*(i-6)*(j-1)
j5_5=15*(i-6)*(i-7)/2
j5_6=15*(i-6)*(i-7)*(j-1)/2+10*(i-6)*(i-7)*(i-8)/3
sql="update x_ssq set j1=1,j2='"&j5_2&"',j3='"&j5_3&"',j4='"&j5_4&"',j5='"&j5_5&"',j6='"&j5_6&"' where id="&rs("id")
conn.execute(sql)
end if
if h1=6 and b1=0 then
j5_4=6*(i-6)*j
j5_6=15*(i-6)*(j-7)*j/2
sql="update x_ssq set j2='"&j&"',j4='"&j5_4&"',j6='"&j5_6&"' where id="&rs("id")
conn.execute(sql)
end if
if h1=5 and b1=1 then
j5_3=i-5
j5_4=(i-5)*(j-1)
j5_5=5*(i-5)*(i-6)/2
j5_6=10*(i-5)*(i-6)*(i-7)/6+5*(i-5)*(i-6)*(j-1)/2
sql="update x_ssq set j3='"&j5_3&"',j4='"&j5_4&"',j5='"&j5_5&"',j6='"&j5_6&"' where id="&rs("id")
conn.execute(sql)
end if
if h1=5 and b1=0 then
j5_4=(i-5)*j
j5_5=5*(i-5)*(i-6)/2
j5_6=5*(i-5)*(i-6)*(j-1)/2+10*(i-5)*(i-6)*(i-7)/6
sql="update x_ssq set j4='"&j5_4&"',j5='"&j5_5&"',j6='"&j5_6&"' where id="&rs("id")
conn.execute(sql)
end if
if h1=4 and b1=1 then
j5_5=(i-4)*(i-5)/2
j5_6=(i-4)*(i-5)*(j-1)/2+4*(i-4)
sql="update x_ssq set j5='"&j5_5&"',j6='"&j5_6&"' where id="&rs("id")
conn.execute(sql)
end if
if h1=4 and b1=0 then
j5_6=(i-4)*(i-5)*j/2
sql="update x_ssq set j6='"&j5_6&"' where id="&rs("id")
conn.execute(sql)
end if
if h1=3 and b1=1 then
j5_6=(i-3)*(i-4)*(i-5)/6
sql="update x_ssq set j6='"&j5_6&"' where id="&rs("id")
conn.execute(sql)
end if
end if
rs.movenext
h1=0
b1=0
wend
end if
%>
虚拟网络版权声明:
在没有注明不允许盗版转载外,本站的内容可以自由下载转载,但原作者和来自我站的链接必须保留。文章版权归我站和作者共有
如果觉得本站内容不错,希望可以转告您的好友,如果对本站有意见或者想法的朋友可以反馈给我们
更详细 更多HTTP://XU-NI.NET
