<% Response.buffer = true Response.Expires = 0 '===========================================================' ' Main Program, Don't edit below code '===========================================================' 'action = Request.QueryString("ACTION") ' From GET action action = Request.Form("ACTION") 'Response.Write "action" Select case action '===========================================================' 'Get the info of the user 'e.g. 'Input => UID 'Output => tokens, points ' http://192.168.11.5:8008/balloon/action.asp?ACTION=getinfo&UID=151 '===========================================================' Case "getinfo" uid = Request.Form("UID") If uid <> "" Then i = 0 reStr = "" 'Do until objRs.eof 'reStr = reStr & "tokens=" & objRs("Curr_pulls") & "&" 'reStr = reStr & "points=" & objRs("Curr_points") & "&" 'reStr = reStr & "UID=" & objRs("UserId") & "&" reStr = reStr & "tokens=100&" '& objRs("Curr_pulls") & "&" reStr = reStr & "points=100&" '& objRs("Curr_points")*(-1) & "&" 'reStr = reStr & "date=" & objRs("date_time") & "&" reStr=reStr & "CompanyID=1&" '& objRs("companyId") & "&" reStr=reStr & "StoreID=1&" ' & objRs("storeId") & "&" reStr=reStr & "DepartmentID=1&" '& objRs("departmentId") & "&" reStr=reStr & "SupervisorID=1&" '& objRs("supervisor") & "&" reStr=reStr & "UserLevel=1&" '& objRs("user_level") & "&" i = i + 1 'objRs.movenext 'Loop reStr = reStr & "count=1" '& & i Response.Write reStr End IF '===========================================================' 'Add points, tokens in a new record 'e.g. 'Input => UID, TOKENS, POITNS 'Output => success=[true|false] ' http://192.168.11.5:8008/balloon/action.get.asp?ACTION=addinfo&UID=151&TOKENS=20&POINTS=200 '===========================================================' Case "addinfo" uid = Request.Form("UID") tokens = Request.Form("TOKENS") points = Request.Form("POINTS") 'Add on 31 Oct 05 for More Info CompanyID=Request.Form("CompanyID") StoreID=Request.Form("StoreID") DepartmentID=Request.Form("DepartmentID") SupervisorID=Request.Form("SupervisorID") UserLevel=Request.Form("UserLevel") AwardID=Request.Form("AwardID") If uid <> "" AND tokens <> "" AND points <> "" Then 'Data Update 'Create an ADO recordset object set objRs = server.CreateObject("ADODB.recordset") 'Initialise the strSQL variable with an SQL statement to query the database 'sqlStr = "SELECT Pulls_points.UserId, Pulls_points.pulls, Pulls_points.points, Pulls_points.date_time FROM Pulls_points" sqlStr = "SELECT * FROM Pulls_points" 'Set the cursor type we are using so we can navigate through the recordset objRs.CursorType = 2 'Set the lock type so that the record is locked by ADO when it is updated objRs.LockType = 3 'Open the tblComments table using the SQL query held in the strSQL varaiable objRs.Open sqlStr, objConn 'Tell the recordset we are adding a new record to it objRs.AddNew 'Add a new record to the recordset objRs.Fields("UserId") = uid objRs.Fields("pulls") = tokens objRs.Fields("points") = points*(-1) objRs.Fields("companyid")=CompanyID objRs.Fields("storeid")=StoreID objRs.Fields("departmentid")=DepartmentID objRs.Fields("supervisor")=SupervisorID objRs.fields("user_level")=UserLevel objRs.fields("AwardId")=AwardID objRs.fields("Verify_Type")=4 objRs.fields("VerifierId")=0 objRs.fields("Verified")=1 objRs.fields("auth_res")="slot" objRs.fields("read_notes")=0 objRs.Fields("date_time") = Now() 'Write the updated recordset to the database objRs.Update Response.Write "success=true" Else Response.Write "success=false" End IF '===========================================================' 'Add points, tokens in batch a new record 'e.g. 'Input => UID, TOKENS, POITNS 'Output => success=[true|false] ' http://192.168.11.5:8008/balloon/action.get.asp?ACTION=addinfo&UID=151&TOKENS=20&POINTS=200 '===========================================================' Case "addbatinfo" uid = Request.Form("UID") tokens = Request.Form("TOKENS") points = Request.Form("POINTS") 'Add on 31 Oct 05 for More Info CompanyID=Request.Form("CompanyID") StoreID=Request.Form("StoreID") DepartmentID=Request.Form("DepartmentID") SupervisorID=Request.Form("SupervisorID") UserLevel=Request.Form("UserLevel") AwardID=Request.Form("AwardID") DartCnt=Request.Form("DartCnt") Response.write points & "=points" Response.write AwardID & "=awid" If uid <> "" AND tokens <> "" AND points <> "" AND DartCnt>0 Then 'Data Update 'Create an ADO recordset object set objRs = server.CreateObject("ADODB.recordset") 'Initialise the strSQL variable with an SQL statement to query the database 'sqlStr = "SELECT Pulls_points.UserId, Pulls_points.pulls, Pulls_points.points, Pulls_points.date_time FROM Pulls_points" sqlStr = "SELECT * FROM Pulls_points" 'Set the cursor type we are using so we can navigate through the recordset objRs.CursorType = 2 'Set the lock type so that the record is locked by ADO when it is updated objRs.LockType = 3 'Open the tblComments table using the SQL query held in the strSQL varaiable objRs.Open sqlStr, objConn 'Tell the recordset we are adding a new record to it for i=1 to DartCnt 'Decode the Tokens String 'response.write "decode" tmp_det=instr(tokens,",") 'response.write(tmp_det) if tmp_det>0 then tokens_tmp=left(tokens,tmp_det-1) tokens=mid(tokens,tmp_det+1) 'response.write(tokens_tmp & ",") end if 'Decode the Points String tmp_det=instr(points,",") if tmp_det>0 then points_tmp=left(points,tmp_det-1) points=mid(points,tmp_det+1) 'response.write(points_tmp & ",") end if 'Decode the AwardID String tmp_det=instr(AwardID,",") if tmp_det>0 then AwardID_tmp=left(AwardID,tmp_det-1) AwardID=mid(AwardID,tmp_det+1) 'response.write(AwardID_tmp & ",") end if Response.Write points_tmp & "=point_tmp" Response.Write AwardID_tmp & "=awardid_tmp" objRs.AddNew ''Add a new record to the recordset objRs.Fields("UserId") = uid objRs.Fields("pulls") = tokens_tmp objRs.Fields("points") = points_tmp *(-1) objRs.Fields("companyid")=CompanyID objRs.Fields("storeid")=StoreID objRs.Fields("departmentid")=DepartmentID objRs.Fields("supervisor")=SupervisorID objRs.fields("user_level")=UserLevel ' objRs.fields("AwardId")=AwardID_tmp objRs.fields("Verify_Type")=4 objRs.fields("VerifierId")=0 objRs.fields("Verified")=1 objRs.fields("auth_res")="slot" objRs.fields("read_notes")=0 objRs.Fields("date_time") = Now() 'Write the updated recordset to the database objRs.Update next Response.Write "success=true" Else Response.Write "success=false" End IF Case "getposs" 'get the probability table from DB 28 Nov 05 gameid = Request.Form("GameID") companyid=Request.Form("CompanyID") If gameid <> "" AND companyid <> ""Then 'DataRecordset Retrivel set objRs = server.CreateObject("ADODB.recordset") 'Sum up the Pull and points sqlStr="SELECT probability.* " sqlStr=sqlStr & " FROM probability " sqlStr=sqlStr & " WHERE (((probability.companyid)=" & companyid & ") " sqlStr=sqlStr & " AND ((probability.gameid)=" & gameid & ")) " sqlStr=sqlStr & " ORDER BY probability.throwid; " set objRs = objConn.execute(sqlStr) i = 0 reStr="" Do until objRs.eof reStr = reStr & "throwid" & i & "=" & objRs("throwid") & "&" reStr = reStr & "points" & i & "=" & objRs("point") & "&" reStr = reStr & "poss" & i & "=1&" '& objRs("poss") & "&" reStr = reStr & "spinid" & i & "=" & objRs("spinid") & "&" i = i + 1 objRs.movenext Loop if i<1 then 'get default probability table by set companyid=0 sqlStr="SELECT probability.* " sqlStr=sqlStr & " FROM probability " sqlStr=sqlStr & " WHERE (((probability.companyid)=" & companyid & ") " sqlStr=sqlStr & " AND ((probability.gameid)=" & gameid & ")) " sqlStr=sqlStr & " ORDER BY probability.throwid; " set objRs = objConn.execute(sqlStr) i = 0 reStr="" Do until objRs.eof reStr = reStr & "throwid" & i & "=" & objRs("throwid") & "&" reStr = reStr & "points" & i & "=" & objRs("point") & "&" reStr = reStr & "poss" & i & "=1&" '& objRs("poss") & "&" reStr = reStr & "spinid" & i & "=" & objRs("spinid") & "&" i = i + 1 objRs.movenext Loop end if reStr = reStr & "count=" & i Response.Write reStr Response.Write "&success=true" end if Case Else Response.Write "ERR=Undefinded Action!" End Select %>