<% dim clickid,Action,TP Action = Request("Action") if Action="ok" then clickid=Trim(Request.form("clickid")) IF Request.QueryString("TP")="save" Then if clickid = "" or IsNumeric(clickid) = False then call error("推荐人ID出错！") end if if abs(clickid) = myid then call error("推荐人不能是自己！") end if '检查ID是否存在 dim regclick Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT id FROM users where id="&clickid,conn,1,1 if rs.eof then rs.close set rs=Nothing call error("推荐人ID不存在！") end if Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT upsize FROM users where id="&myid,conn,1,1 if rs("upsize")="1" then rs.close set rs=Nothing call error("重复推荐或者您已经选择不推荐！") end if rs.close set rs=Nothing '得到100易币 conn.execute("update Users Set myjb = myjb + "&abs(clickjb)&" where ID="&clickid) conn.execute("update Users Set myjb = myjb + "&abs(regjb)&",upsize = 1 where ID="&myid) '==========系统消息============== dim msgx msgx = "恭喜！您成功介绍新会员ID" &myid msgx = msgx & "加入"&waptitle&"！" msgx = msgx & "\\您已获得官方奖励"&abs(clickjb)&getcent&"，感谢您对"&waptitle&"的支持！" set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from guest",conn,1,2 rs.addnew rs("fnr")=msgx rs("sid")=clickid rs("fid")=0 rs.update rs.close set rs=nothing '==========系统消息============== conn.close set conn=nothing Response.write "操作成功，您的推荐人已得到"&abs(clickjb)&getcent&",您也得到"&abs(regjb)&getcent&"的奖励！
" Response.write "欢迎您加入"&waptitle&"！" else Response.Write "输入推荐人ID：" Response.Write "
" Response.Write "
确定" Response.Write "" Response.Write "" Response.Write "" end if else Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT upsize FROM users where id="&myid,conn,1,1 if rs("upsize")="1" then rs.close set rs=Nothing call error("重复推荐或者您已经选择不推荐！") end if rs.close set rs=Nothing conn.execute("update Users Set myjb = myjb + "&abs(regjb)&",upsize = 1 where ID="&myid) Response.write "操作成功，您得到"&abs(regjb)&getcent&"的奖励！
" Response.write "欢迎您加入"&waptitle&"！" end if %>