<!--#include file="inc.asp"-->
<!--#include file="ydzq11.asp"-->
<%call head()
Call saycardd("送花")
dim tid
tid=request("tid")

if myid=<0 then 
response.write "您还没有登陆或者注册.请登陆或注册后再来献花吧!!!"
else

if huashu=<0 then
response.write "您还没有鲜花.请去花园种花后再来献花吧!!!"
else
conn.execute("update sell set xianhua=xianhua+1 where id='"&tid&"'")
conn.execute("update users set huashu=huashu-1 where id="&myid)
response.write "送花成功!!!你的鲜花-1朵!"

end if
end if

	conn.close

	set conn=nothing

%><a href='/bbs/topic.asp?tid=<%=tid%>&amp;sid=<%=sid%>&saytk=<%=saytk%>'>返回帖子</a>
<!--#include file="fanhui.asp"-->
<%Call headsay()%>