Two-color ball anti-real lottery analysis source [part] work in the work of the two-color ball, the online gameplay of the two-color ball, these two days have been engaged in the number of headaches and the number of winning numbers of the winning number, involving the university Things that have been arranged, although I have forgotten, but I finally came out, I took it out to study! - # 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 = conn.execute (SQL) if NOT RS.EOF Thenwhile Not RS. EOF CH = RS ("CH") IF INSTR (CH, A1) <> 0 THEN H1 = H1 1 else H1 = H1 End 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 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 I = RS ("I") J = RS ("J") IF RS ("Action1") = 1 or RS ("Action1" ) = 2 THENIF H1 = 6 and b1 = 1 THENSQL = "Update x_ssq set j1 = 1 where id =" & = ") Conn.execute (SQL) end ifif H1 = 6 and b1 = 0 THENSQL =" Updat e x_ssq set j2 = 1 where id = "& rs (" id ") conn.execute (SQL) end ifif h1 = 5 and b1 = 1 THENSQL =" Update X_ssq set j3 = 1 where id = "& r (" id ") Conn.execute (SQL) end if if h1 = 5 and b1 = 0 THENSQL = "Update x_ssq set j4 = 1 where id =" & = ") Conn.execute (SQL) end if if IF h1 = 4 and b1 = 1 THENSQL =
"update x_ssq set j5 = 1 where id =" & = ") conn.execute (SQL) end if if h1 = 3 and b1 = 1 THENSQL =" Update X_ssq set j6 = 1 where id = "& =" ") Conn.execute (SQL) end if if h1 = 4 and b1 = 0 THENSQL =" Update x_ssq set j6 = 1 where id = "& =") Conn.execute (SQL) end ifend ififf rs (" Action1 ") = 3 damponse.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 =" & r ("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 =" & d ("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 IFEND IF IF RS (" Action1 ") = 4 THENJ = 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 & J4 & J1") 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 = "& =" ID ") Conn.execute (SQL) END IF IF H1 = 4 and b1 = 0 THEN SQL = "Update X_ssq set j6 = '" & j & "' where id =" & = "
) Conn.execute (SQL) end if if h1 = 3 and b1 = 1 THEN SQL = "Update x_ssq set j6 = 1 where id =" & = ") Conn.execute (SQL) end ifnd IFIF 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 =" & r ("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 = "& =") 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 =" & = (" 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 xi = 0WENDEND IF%> Virtual Network Copyright Notice: There is no indicator Do not allow piracy reprint, this site can be reprinted freely, but the original author and the link from our site must be retained. The copyright of the article belongs to my station and the author, if I think this site is good, I hope you can tell your friends, if Friends who have opinions or ideas for this site can feedback to us
More more more detailed
Http://xu-ni.net
