分享
 
 
 

双色球防真开奖分析源码[部分]

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

双色球防真开奖分析源码[部分]

工作缘故在做双色球完全防真的网上玩法 这两天一直在搞比较头痛的复式投注的号码和开奖号码的各个奖项的中奖组数的问题,涉及到了大学里学到的排列组合的东西,虽然忘得差不多了,但总算出来了,拿出来给大家一起研究一下

<!--#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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有