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

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

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