<% Server.ScriptTimeOut = 3600 dim action action = request("action") if action<>"" then dim ezecent set rs=Server.CreateObject("ADODB.Recordset") rs.open"select ezecent from YD_payCent where id=1",ydzqconn,1,1 if not rs.eof then ezecent=rs("ezecent") end if rs.close set rs=nothing dim fid,userid,gettxt set rs=Server.CreateObject("ADODB.Recordset") rs.Open "select * from YD_vote where j=0 and typeID=12 and qinum='"&abs(qinum)&"'",ydzqconn,1,2 if rs.eof then call Error("呵呵，这期他们真黑，居然没有人中平码二选！") end if Do While Not rs.EOF '遍历当期所有 if Instr(","&abs(newpm1)&","&abs(newpm2)&","&abs(newpm3)&","&abs(newpm4)&","&abs(newpm5)&","&abs(newpm6)&",",","&rs("vote1")&",") > 0 and Instr(","&abs(newpm1)&","&abs(newpm2)&","&abs(newpm3)&","&abs(newpm4)&","&abs(newpm5)&","&abs(newpm6)&",",","&rs("vote2")&",") > 0 then userid=rs("userid") username=rs("username") payCent=rs("payCent") fid=0 gettxt="恭喜！第"&qinum&"期开出平码"&abs(newpm1)&"-"&abs(newpm2)&"-"&abs(newpm3)&"-"&abs(newpm4)&"-"&abs(newpm5)&"-"&abs(newpm6)&"，您中了二中二！共赢得"&abs(rs("payCent")*ezecent)&getcent&"" '加币 conn.Execute("update Users set myjb=myjb+"&abs(rs("payCent")*ezecent)&" Where id="&userid) call qfmsg() call addlist() rs("j")=1 rs.update() end if rs.MoveNext Loop rs.close set rs=nothing Function qfmsg() sql="insert into guest(fid,sid,fnr) values (" sql=sql & sqlstr(fid) & "," sql=sql & sqlstr(userid) & "," sql=sql & sqlstr(gettxt) & ")" Application.Lock conn.execute(sql) Application.Unlock End function function sqlstr(data) sqlstr="'" & Replace(data,"'","'") & "'" End function Function addlist() set rs2=Server.CreateObject("ADODB.Recordset") rs2.open"select * from YD_plist where userid="&userid,ydzqconn,1,2 if not rs2.eof then rs2("pmnum")=rs2("pmnum")+1 rs2("votenum")=rs2("votenum")+1 rs2("jbnum")=rs2("jbnum")+abs(int(payCent*ezecent)) else rs2.addnew rs2("userid")=userid rs2("username")=username rs2("pmnum")=rs2("pmnum")+1 rs2("votenum")=rs2("votenum")+1 rs2("jbnum")=abs(int(payCent*ezecent)) end if rs2.update rs2.close set rs2=nothing End function conn.close set conn=Nothing ydzqconn.close set ydzqconn=Nothing response.write"第"&qinum&"期平码二选开奖操作成功，系统已奖币中奖会员并内线通知！" else if newtm="" or isnumeric(newtm)=False then call Error("本期还没有开奖，不能进行奖励！") end if response.write"第"&qinum&"期平码"&abs(newpm1)&"-"&abs(newpm2)&"-"&abs(newpm3)&"-"&abs(newpm4)&"-"&abs(newpm5)&"-"&abs(newpm6)&"" response.write"
您确认上面信息正确?
" response.write "是的,已经确认" response.write "" response.write "" response.write "
" Response.Write "不,取消操作" end if%>
----------
[投注管理]