set_go.asp

wap源码要的速度下wap源码要的速度下

<!--#INCLUDE file="data.asp"-->
<%
  admin=Request("admin")
  rc=Request("rc")
  id=Request("id")
  money=Request("money")
  
  if rc="" then
     Response.write "<card id='card1' title='申请不成功'><p>"
     response.write "数值不能为空!"
     response.write "<br/><a href='admin_ids.asp?admin="&admin&"'>返回重写</a></p></card></wml>"
     response.end
end if

set rs=Server.CreateObject("ADODB.Recordset")
  sql="select * from users where id="&id&""
  rs.open sql,conn,1,2
  user = rs("recommend")
rs("user_rc")=rc
rs("user_money")=money
rs.Update
if user<>"" then
call add_r_num(user,id,money,conn)
end if
 Response.write "<card id='card1' title='更新成功'><p>"
 Response.write "更新成功"
 Response.write "<br/><a href='admin_user.asp?admin=" & admin & "'>点击进入系统</a></p></card></wml>"
set rs=nothing
conn.close
set conn=nothing


sub send_cash(user,conn)
    set rs1=Server.CreateObject("ADODB.Recordset")
  sql1="select * from users where user='"&user&"'"
  rs1.open sql1,conn
  r_money = rs1("r_money")
  'this_r_money = rs1("r_money")  
  rs1.close()
  set rs1 = nothing

      if r_money<>"" then
        r_money = cint(r_money)
		else
		r_money = 0
      end if	 
	  new_money = r_money+1
	  updatesql = "UPDATE users SET r_money='"&new_money&"' WHERE user='"&user&"'"
	  conn.execute(updatesql)
end sub

sub check_full(user,conn)
  set rs1=Server.CreateObject("ADODB.Recordset")
  sql1="select * from users where user='"&user&"'"
  rs1.open sql1,conn
  r_num = rs1("r_num")
  rs1.close()
  set rs1 = nothing 
   if r_num<>"" then
    r_num = cint(r_num)
   else
    r_num = 0
   end if 
    if r_num>=50 then
	  call send_cash(user,conn)
	  call clean_num(user,conn)
	  'response.Write "==="	  
	 ' else
	  'response.Write r_num&"pppp"
	end if
end sub

sub clean_num(user,conn)
 sql = "UPDATE users SET r_num=0 WHERE user='"&user&"'"
 conn.execute(sql)
end sub

sub add_r_num(user,id,user_money,conn)
  if user_money<>"" then
  user_money = cint(user_money)
  else
  user_money = 0
  end if
  sql = "UPDATE users SET r_num="&user_money&" WHERE user='"&user&"'"
 conn.execute(sql)
 call check_full(user,conn)
end sub



	%>