?? count_result_zm.asp
字號:
<!--#include file="mConn.asp"-->
<!--#include file="sk2.asp"-->
<!--#include file="mConst.asp"-->
<%'計算特別號
If Session("SK2Admin")="" and isnumeric(request("issue")) Then
Response.Redirect "Admin_Login.Asp"
Response.End
End If
kithe=request("issue")
Set Rs6=Conn.Execute("Select Top 1 ID,NN,ND,NA,N1,N2,N3,N4,N5,N6 From m_Kithe where NN='"&kithe&"'")
If Not Rs6.Eof Then
Current_KitheTable=Rs6.GetRows(1)
else
response.write "<script lanuage=javascript>alert('還未開獎,請先開獎');history.go(-1);</script>"
response.end
end if
Set Rs6=Conn.Execute("Select ID,color From m_color Order By ID")
If Not Rs6.Eof Then
Get_Para_Color=Rs6.GetRows(-1)
End If
Set Rs6=Conn.Execute("Select ID,m_number From m_sxnumber Order By ID")
If Not Rs6.Eof Then
Get_sx_Color=Rs6.GetRows(-1)
End If
Select Case Request("K6")
Case "K1"
M=0:N=6
t1="t1"
count_zm
Case "K2"
M=5:N=11
t1="t2"
count_zm
Case "K3"
M=10:N=16
t1="t3"
count_zm
Case "K4"
M=15:N=21
t1="t4"
count_zm
Case "K5"
M=20:N=26
t1="t5"
count_zm
Case "K6"
M=25:N=31
t1="t6"
count_zm
Case "K7"
M=30:N=36
t1="t7"
count_zm
Case "K8"
M=35:N=41
t1="t8"
count_zm
Case "K9"
M=40:N=46
t1="t9"
count_zm
Case "K10"
M=45:N=50
t1="t10"
count_zm
Case "K11"
t1="t11"
count_zdan
Case "K12"
t1="t12"
count_zs
Case "K13"
t1="t13"
count_zda
Case "K14"
t1="t14"
count_zxiao
Case "K15"
t1="t15"
zm_type="正碼1"
N1=4
count_z1
Case "K16"
t1="t16"
zm_type="正碼2"
N1=5
count_z1
Case "K17"
t1="t17"
zm_type="正碼3"
N1=6
count_z1
Case "K18"
t1="t18"
zm_type="正碼4"
N1=7
count_z1
Case "K19"
t1="t19"
zm_type="正碼5"
N1=8
count_z1
Case "K20"
t1="t20"
zm_type="正碼6"
N1=9
count_z1
Case Else
response.Redirect "result_just.asp"
Response.End
End Select
Sub count_zm
number1=0
sum_num=0
set Count_rs=server.createobject("adodb.recordset")
sql="Select chilp_value,sort,result,ID from m_chilp where sort='正碼' and Kithe='"&Kithe&"'"
Count_rs.open sql,conn,1,1
do while not Count_rs.eof
if isnumeric(Count_rs("chilp_value")) then
if cint(Count_rs("chilp_value"))>M and cint(Count_rs("chilp_value"))<N then
sum_num=sum_num+1
Set Rs6=Conn.Execute("update m_chilp set banlance='1' where ID='"&Count_rs("ID")&"'")
if cint(Current_KitheTable(4,0))=cint(Count_rs("chilp_value")) or cint(Current_KitheTable(5,0))=cint(Count_rs("chilp_value")) or cint(Current_KitheTable(6,0))=cint(Count_rs("chilp_value")) or cint(Current_KitheTable(7,0))=cint(Count_rs("chilp_value")) or cint(Current_KitheTable(8,0))=cint(Count_rs("chilp_value")) or cint(Current_KitheTable(9,0))=cint(Count_rs("chilp_value")) then
number1=number1+1
Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
else
Set Rs6=Conn.Execute("update m_chilp set result=0 where ID='"&Count_rs("ID")&"'")
end if
end if
end if
Count_rs.movenext
loop
Set Rs6=Nothing
if number1<1 then
number1=-cint(sum_num)
end if
response.Redirect "result_just.asp?"&t1&"="&number1&""
response.end
End Sub
'總單
Sub count_zdan
number1=0
sum_num=0
sum_number=cint(Current_KitheTable(3,0)+Current_KitheTable(4,0)+Current_KitheTable(5,0)+Current_KitheTable(6,0)+Current_KitheTable(7,0)+Current_KitheTable(8,0)+Current_KitheTable(9,0))
Set Rs6=Conn.Execute("update m_chilp set banlance='1' where sort='正碼' and chilp_value='總單' and Kithe='"&Kithe&"'")
set Count_rs=server.createobject("adodb.recordset")
sql="Select chilp_value,sort,result,ID from m_chilp where sort='正碼' and chilp_value='總單' and Kithe='"&Kithe&"'"
Count_rs.open sql,conn,1,1
do while not Count_rs.eof
sum_num=sum_num+1
if sum_number mod 2=1 and trim(Count_rs("chilp_value"))="總單" then
number1=number1+1
Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
else
Set Rs6=Conn.Execute("update m_chilp set result=0 where ID='"&Count_rs("ID")&"'")
end if
Count_rs.movenext
loop
Set Rs6=Nothing
if number1<1 then
number1=-cint(sum_num)
end if
response.Redirect "result_just.asp?"&t1&"="&number1&""
response.end
End Sub
'總雙
Sub count_zs
number1=0
sum_num=0
sum_number=cint(Current_KitheTable(3,0)+Current_KitheTable(4,0)+Current_KitheTable(5,0)+Current_KitheTable(6,0)+Current_KitheTable(7,0)+Current_KitheTable(8,0)+Current_KitheTable(9,0))
Set Rs6=Conn.Execute("update m_chilp set banlance='1' where sort='正碼' and chilp_value='總雙' and Kithe='"&Kithe&"'")
set Count_rs=server.createobject("adodb.recordset")
sql="Select chilp_value,sort,result,ID from m_chilp where sort='正碼' and chilp_value='總雙' and Kithe='"&Kithe&"'"
Count_rs.open sql,conn,1,1
do while not Count_rs.eof
sum_num=sum_num+1
if sum_number mod 2=0 and trim(Count_rs("chilp_value"))="總雙" then
number1=number1+1
Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
else
Set Rs6=Conn.Execute("update m_chilp set result=0 where ID='"&Count_rs("ID")&"'")
end if
Count_rs.movenext
loop
Set Rs6=Nothing
if number1<1 then
number1=-cint(sum_num)
end if
response.Redirect "result_just.asp?"&t1&"="&number1&""
response.end
End Sub
Sub count_zda
number1=0
sum_num=0
sum_number=cint(Current_KitheTable(3,0)+Current_KitheTable(4,0)+Current_KitheTable(5,0)+Current_KitheTable(6,0)+Current_KitheTable(7,0)+Current_KitheTable(8,0)+Current_KitheTable(9,0))
Set Rs6=Conn.Execute("update m_chilp set banlance='1' where sort='正碼' and chilp_value='總大' and Kithe='"&Kithe&"'")
set Count_rs=server.createobject("adodb.recordset")
sql="Select chilp_value,sort,result,ID from m_chilp where sort='正碼' and chilp_value='總大' and Kithe='"&Kithe&"'"
Count_rs.open sql,conn,1,1
do while not Count_rs.eof
sum_num=sum_num+1
if sum_number >174 and trim(Count_rs("chilp_value"))="總大" then
number1=number1+1
Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
else
Set Rs6=Conn.Execute("update m_chilp set result=0 where ID='"&Count_rs("ID")&"'")
end if
Count_rs.movenext
loop
Set Rs6=Nothing
if number1<1 then
number1=-cint(sum_num)
end if
response.Redirect "result_just.asp?"&t1&"="&number1&""
response.end
End Sub
Sub count_zxiao
number1=0
sum_num=0
sum_number=cint(Current_KitheTable(3,0)+Current_KitheTable(4,0)+Current_KitheTable(5,0)+Current_KitheTable(6,0)+Current_KitheTable(7,0)+Current_KitheTable(8,0)+Current_KitheTable(9,0))
Set Rs6=Conn.Execute("update m_chilp set banlance='1' where sort='正碼' and chilp_value='總小' and Kithe='"&Kithe&"'")
set Count_rs=server.createobject("adodb.recordset")
sql="Select chilp_value,sort,result,ID from m_chilp where sort='正碼' and chilp_value='總小' and Kithe='"&Kithe&"'"
Count_rs.open sql,conn,1,1
do while not Count_rs.eof
sum_num=sum_num+1
if sum_number <175 and trim(Count_rs("chilp_value"))="總小" then
number1=number1+1
Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
else
Set Rs6=Conn.Execute("update m_chilp set result=0 where ID='"&Count_rs("ID")&"'")
end if
Count_rs.movenext
loop
Set Rs6=Nothing
if number1<1 then
number1=-cint(sum_num)
end if
response.Redirect "result_just.asp?"&t1&"="&number1&""
response.end
End Sub
Sub count_z1
number1=0
sum_num=0
Set Rs6=Conn.Execute("Select ID,color From m_color Order By ID")
If Not Rs6.Eof Then
Get_Para_Color=Rs6.GetRows(-1)
End If
Set Rs6=Conn.Execute("update m_chilp set banlance='1' where sort='正碼1-6' and chilp_types='"&zm_type&"' and Kithe='"&Kithe&"'")
set Count_rs=server.createobject("adodb.recordset")
sql="Select chilp_value,sort,result,ID,chilp_types from m_chilp where sort='正碼1-6' and chilp_types='"&zm_type&"' and Kithe='"&Kithe&"'"
Count_rs.open sql,conn,1,1
do while not Count_rs.eof
if cint(Current_KitheTable(N1,0))<>49 then
sum_num=sum_num+1
end if
if cint(Current_KitheTable(N1,0))=49 then
Set Rs6=Conn.Execute("update m_chilp set result=0,amount='和局' where ID='"&Count_rs("ID")&"'")
else
if cint(Current_KitheTable(N1,0)) mod 2=0 and trim(Count_rs("chilp_value"))="雙" then
number1=number1+1
Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
end if
if cint(Current_KitheTable(N1,0)) mod 2=1 and trim(Count_rs("chilp_value"))="單" then
number1=number1+1
response.Write"update m_chilp set result=1 where ID='"&Count_rs("ID")&"'"
Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
end if
if cint(Current_KitheTable(N1,0)) >24 and cint(Current_KitheTable(N1,0))< 49 and trim(Count_rs("chilp_value"))="大" then
number1=number1+1
Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
end if
if cint(Current_KitheTable(N1,0)) <25 and trim(Count_rs("chilp_value"))="小" then
number1=number1+1
Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
end if
end if
if trim(Get_Para_Color(1,cint(Current_KitheTable(N1,0))-1))="b" and trim(Count_rs("chilp_value"))="藍波" then
number1=number1+1
Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
end if
if trim(Get_Para_Color(1,cint(Current_KitheTable(N1,0))-1))="r" and trim(Count_rs("chilp_value"))="紅波" then
number1=number1+1
Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
end if
if trim(Get_Para_Color(1,cint(Current_KitheTable(N1,0))-1))="g" and trim(Count_rs("chilp_value"))="綠波" then
number1=number1+1
Set Rs6=Conn.Execute("update m_chilp set result=1 where ID='"&Count_rs("ID")&"'")
end if
Count_rs.movenext
loop
Set Rs6=Nothing
if number1<1 then
number1=-cint(sum_num)
end if
response.Redirect "result_just1-6.asp?"&t1&"="&number1&""
response.end
End Sub
%>
<%'response.write "<script lanuage=javascript>alert('有"&number1&"條記錄贏了');location.href='result_just.asp?t2="&number1&"';"%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -