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