<!--#include file="../inc.asp"-->
<!--#include file="../ydzq1.asp"-->
<%
response.write "<card title=""我的鸡窝""><p>"
if myid<>0 then
mz="[url=uinfo.asp?id="&myid&"&amp;sid=[sid]]"&myni&"[/url]"
else
mz="游客"
end if
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"去了:(url=/bbs/jia/dan.asp?sid=[sid])领取鸡蛋(/url)')")
dim newguest
newguest = 0
IF myid > 0 THEN
  newguest = ForNewGuest(myid)
END IF
if myid<>0 then
if newguest > 0 then
Response.write "<a href='/bbs/msgview.asp?url="&Replace(Replace(R_url(),"sid=","sidoo="),"sid=","sidoo=")&"&amp;sid="&sid&"'>您有"&newguest&"条新消息</a><br/>"& chr(13)
end if
response.write"欢迎您：<a href='/bbs/show.asp?sid="&sid&"'>"&myni&"</a><br/>"&chr(13)
else
Response.write "欢迎您:<a href='/bbs/login.asp?url=/bbs/index.asp'>登陆/注册</a><br/>"& chr(13)
end if
Response.write "鸡蛋的作用:<br/>1.论坛可以向作者扔蛋比较对帖子的不认同以及极度地不满!!<br/>"
response.write "我的鲜花:"&huashu&"朵<br/>我的鸡蛋:"&danshu&"个<br/>我的花种子:"&zhongzi&"颗<br/>"
if myid=<0 then 
response.write "您还没有登陆或者注册.请登陆或注册后再来领取鸡蛋吧!!!"
else
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select huatime from users where id = "&myid&"",conn,1,1
if not rs.eof then
huatime=rs("huatime")
if DateDiff("s",huatime,Now())<10 then

  Call Error("<card title=""回复失败""><p>10秒钟只能回复一次帖子！"&DateDiff("s",huatime,Now())&"")
else
rs.close
set rs=Nothing
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from Users where id="&myid,conn,1,2
rs("huatime")=now()
conn.execute("update users set danshu=danshu+1 where id="&myid)
response.write "领取鸡蛋成功!!!你的鸡蛋+1个!"
rs.update
rs.close
set rs=nothing
end if
end if
end if
%>
<!--#include file="../fanhui.asp"--><%
Response.write "</p></card></wml>"
%>