<!--#include file="../inc.asp"-->
<!--#include file="../ydzq1.asp"-->
<!--#include file="saypz.asp"-->
<%
call head()
Call saycarda("广播站！")
%><!--#include file="../sy1.asp"--><%

if myid<>0 then
response.write"欢迎您：<a href='../show.asp?saytk="&saytk&"&amp;sid="&sid&"'>"&myni&"</a>"&chr(13)
response.write"<br/>注:每发布一次广播扣取"&bbslbsaytk&""&getcent&"(站长可以后台配置费用）<br/>"
if saytk<>1 then
Response.write "<form name=""form"" method=""post"" action=""say.asp?saytk="&saytk&"&amp;sid="&sid&""">"
Response.write "<input type=""text"" emptyok=""true"" name=""bbslbtxt""/>"&chr(13)

response.write "<input type=""hidden"" name=""TP"" value=""ok""/>"

response.write "<input type=""submit"" name=""Submit"" value=""快速发言""></form><br/>"
else


response.write"<br/><input type=""text"" name=""bbslbtxt""/><br/>"
response.write"<anchor>我要发布广播"
response.write"<go method=""post"" href=""say.asp?saytk="&saytk&"&amp;sid="&sid&""">"
response.write"<postfield name=""bbslbtxt"" value=""$(bbslbtxt)""/>"
response.write"<postfield name=""TP"" value=""ok""/>"
response.write"</go></anchor> "


end if


response.write"<a href=""index.asp?t="&int(timer())&"&amp;saytk="&saytk&"&amp;sid="&sid&""">刷新</a><br/> "
'response.write"<a href=""say.asp?saytk="&saytk&"&amp;sid="&sid&""">更多内容</a><br/>"

else
Response.write "欢迎您:<a href='/login.asp?url="&Replace(Replace(R_url(),"sid=","sidoo="),"sid=","sidoo=")&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>登陆/注册</a><br/>"& chr(13)
end if
  set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select top 10 bbslbtxt,usid,writename,writeTime,id from lb order by id desc",conn,1,1
  if not rs.eof then
  while not rs.eof
  if rs("usid")<>0 then
  if keys=1 then
  response.write"<a href=""scxx.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;ids="&rs("id")&""">删除</a>|"
  end if
  response.Write"<a href=""../uinfo.asp?ID="&rs("usid")&"&amp;saytk="&saytk&"&amp;sid="&sid&""">"&rs("writename")&"</a>说:"&ubb(rs("bbslbtxt"))&"("&fordate2(rs("writeTime"))&")<br/>"
  else
  response.write"(系统)"&ubb(rs("bbslbtxt"))&"("&fordate2(rs("writeTime"))&")<br/>"
  end if
  rs.movenext
  wend
  else
    Response.write "暂时无广播记录...<br/>"
  end if
  rs.close
  set rs=nothing
if myid<>0 then
mz="[url=/bbs/uinfo.asp?id="&myid&"&amp;saytk="&saytk&"&sid=[sid]]"&myni&"[/url]"
else
mz="游客"
end if
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"查看了:(url=/bbs/lb/index.asp?saytk="&saytk&"&sid=[sid])广播(/url)')")



conn.close
set conn=nothing
Response.write "--------------"
if keys=1 then
response.write"<br/><a href='sz.asp?saytk="&saytk&"&amp;sid="&sid&"'>[设置字数]</a>"&chr(13)
response.write"<br/><a href='del0.asp?TP=DEL&amp;saytk="&saytk&"&amp;sid="&sid&"'>[清空广播]</a>"&chr(13)
end if
Response.write "<br/><a href=""/bbs/index.asp?saytk="&saytk&"&amp;sid="&sid&""">[-社区首页-]</a><br/>"
Response.write "<a href=""/index.asp?saytk="&saytk&"&amp;sid="&sid&""">[-网站首页-]</a><br/>"
Call headsay()
%>