<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<%call head()
Call saycarda("举报有奖")

dim id,YD_name,ids,newmyjb
id=usb(request("id"))
id=request.querystring("id")
TP=clng(request("TP"))
jubao=clng(request("jubao"))
   if TP=1 then
if id="" or IsNumeric(usid) = False then
id=myid
end if
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from [Users] where [id]="&id,conn,1,1
if rs.eof then
 Call Error("没有此会员！")
  end if

dim ddd,eee
YD_name=rs("name")
id=rs("id")

newmyjb=rs("myjb")
qiang=rs("qiang")
ddd=""&qiang
eee=right(ddd,2)

if rs("qiang")=0 or rs("qiang")=1 then
response.write "他从来没有打劫，或者已经被别人抢先一步举报了，你也来举报？"
elseif jubao-eee<>0 then
response.write "NO，这里是警局，没事别来捣乱"
response.write "他抢的零头不是"&jubao&""
else
conn.execute("update users set myjb = myjb+ "&qiang&"/4 where id="&myid&"")
conn.execute("update users set myjb = myjb- "&qiang&"-500,qiang=1 where id="&id&"")
conn.execute("delete sqdt where usid="&id&"")
response.write "举报成功，你得到了四分之一的奖励,"&qiang/4&"个"&getcent&""


end if
   else
id=request.querystring("id")
if id<>"" then
response.write "你真要举报"&id&"？"
response.write "你是亲眼见他抢的吗?那你说他抢的零头是多少?我们才能相信你哦<br/>"
if saytk>1 then
call xlanlj("jubao.asp?id="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&"")
Response.Write "<input name=""jubao"" maxlength=""18"" value=""""/><br/>"
call xltjlj("jbid",""&id&"")
call xltjlj("tp","1")
call xlanlj1("是的,我要举报")
else
Response.Write "<input name=""jubao"&tt&""" maxlength=""18"" value=""""/><br/>"
Response.Write "<anchor>是的,我要举报"
Response.Write "<go href=""jubao.asp?id="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&""" method=""post"" accept-charset='utf-8'>"
 Response.Write "<postfield name=""jubao"" value=""$(jubao"&tt&")""/>"
 Response.Write "<postfield name=""jbid"" value="""&id&"""/>"
 Response.Write "<postfield name=""TP"" value=""1""/>"
 Response.Write "</go></anchor>"&chr(13)
 end if
else
Response.Write "无聊"
end if
conn.close
set conn=nothing
   end if

'================================================
%>
<!--#include file="fanhui.asp"-->
<%
Call headsay()
%>