<!--#include file="../inc.asp"-->
<!--#include file="../ydzq1.asp"-->
<%
response.write "<card title=""社区广播置顶""><p>"

dim id
id=request("id")
if myjb<2000 then
response.write ""&getcent&"不足，前置一次一条广播需2000"&getcent&""
elseif vipdj<=0 and keys<>1 or keys<>2 then 
response.write "权限不足或您不是VIP会员!!!"
else
conn.execute("update lb set dingtime=dingtime+0.02,ding='1' where id="&id&"")
conn.execute("update users set myjb=myjb-2000 where id="&myid)
response.write "成功的将该条广播前置半小时，扣除金币2000!!!"


end if
conn.close
set conn=nothing
%>
<!--#include file="../fanhui.asp"--><%
Response.write "</p></card></wml>"
%>