工作緣故在做雙色球完全防真的網上玩法  這兩天一直在搞比較頭痛的復式投注的號碼和開獎號碼的各個獎項的中獎組數的問題，涉及到了大學里學到的排列組合的東西，雖然忘得差不多了，但總算出來了，拿出來給大家一起研究一下

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