
<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->


call head()
response.write "<card title=""替天行盗"" ontimer=""index.asp?saytk="&saytk&"&amp;sid="&sid&""">"
response.write "<timer value=""10""/><p>"
dim userid,yibi,fuyan,centstr
  userid=Trim(Request.form("userid"))
  fuyan=Trim(Request.form("fuyan"))
  yibi=Trim(Request.form("yibi"))
  centstr=Trim(Request.form("centstr"))
  if userid="" or Isnumeric(userid)=False then
  Call Error("ID无效！")
  end if
  if yibi="" or Isnumeric(yibi)=False then
  Call Error(""&getcent&"数量无效！")
  end if
  yibi = abs(int(yibi))
  if clng(userid)=clng(myid) then
  Call Error("呵呵！你要打劫自己？！")
  end if
 
IF centmm<>"" then
if centstr <> centmm then
  Call Error("对不起,"&getcent&"，如果忘记，请联系社区管理员帮你修改密码!")
  end if
 End if 

  dim cents,yibis
  cents=int(yibi*0.05)
  yibis=yibi+cents
 if qiang>0 then
 Response.Write "行侠仗义虽是好事,可也不能太频繁哦！"
 Response.Write "<br/><a href='show.asp?saytk="&saytk&"&amp;sid="&sid&"'>空间</a>>>"
 Response.Write "<a href='index.asp?saytk="&saytk&"&amp;sid="&sid&"'>社区首页</a><br/>"
 Response.Write "</p></card></wml>"
 response.end
 End if
set rs=server.createobject("adodb.recordset")
rs.open "select * from users where myjb+bank<500000 and id="&userid,conn,1,1
if not rs.eof then
 Response.Write "TA的"&getcent&"太少了，根本算不是富贵？"
 Response.Write "</p></card></wml>"
 response.end
end if
if bankjie>0 then
 Response.Write "你还有贷款没有还！你不配做侠盗？！<br/>"
 Response.Write "<br/><a href='show.asp?saytk="&saytk&"&amp;sid="&sid&"'>空间</a>>>"
 Response.Write "<a href='index.asp?saytk="&saytk&"&amp;sid="&sid&"'>社区首页</a><br/>"
 Response.Write "</p></card></wml>"
 response.end
 End if 
  conn.execute("update Users Set myjb = myjb - "&yibi&" where ID="&userid)
  conn.execute("update Users Set myjb = myjb + "&yibis&",qiang = "&yibis&" where ID="&myid)

 if myid<>0 then
mz="[url=uinfo.asp?id="&myid&"&amp;saytk="&saytk&"&sid=[sid]]"&myni&"[/url]"
else
mz="游客"
end if
conn.execute("insert into sqdt(shijian,dz,usid)values('"&now+1&"','"&mz&"抢了别人"&yibi&"个"&getcent&",你要[url=jubao.asp?id="&myid&"&amp;saytk="&saytk&"&sid=[sid]]举报[/url]他吗？','"&myid&"')")

'记录
   set rs=server.createobject("adodb.recordset")
   rs.open "select fromid,toid,paycent,banktimes from bankcent",conn,1,2
   rs.addnew
   rs("fromid")     = userid
   rs("toid")    = myid
   rs("paycent")    = yibi
   rs("banktimes") = now()
   rs.update
   rs.close
 set rs=Nothing
'发送信息
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * From Guest",conn,1,2
rs.addnew	
rs("sid")=myid
rs("fid")=0

rs("fnr")="你今天在大街上打劫,你的打劫信息会在社区显示24小时,如果24小时后无人举报,你的案子就会自动消了"

rs.update
rs.close
set rs=Nothing
  Response.write "抢到"&yibi&"个"&getcent&"，切，随时都带这么多，哈哈，只有不被发现，那就。。。！,要是你被举报那就惨咯,杯具呀"
conn.close
set conn=Nothing



%>
<!--#include file="fanhui.asp"-->
</p></card>
</wml>