<!--#include file="Inc.asp"-->
<!--#include file="ydzq1.asp"-->
<%call head()
Call saycardd("广播中心")%>
<%
Response.write "=广播=[<a href=""/bbs/lb/index.asp?saytk="&saytk&"&amp;sid="&sid&""">我要发布</a>]<br/>"

set rsbbsmsg=Server.CreateObject("ADODB.Recordset")
  rsbbsmsg.open"select top 6 bbslbtxt,usid,writename,writeTime from lb order by id desc",conn,1,1
  if not rsbbsmsg.eof then
  while not rsbbsmsg.eof
  if rsbbsmsg("usid")<>0 then
  response.write"[<a href=""/bbs/lb/index.asp?saytk="&saytk&"&amp;sid="&sid&""">广播</a>]<a href=""/bbs/uinfo.asp?ID="&rsbbsmsg("usid")&"&amp;saytk="&saytk&"&amp;sid="&sid&""">"&rsbbsmsg("writename")&"</a>说:"&ubb(rsbbsmsg("bbslbtxt"))&"<br/>"
  else
  'response.write"(系统)"&ubb(rsbbsmsg("bbslbtxt"))&"("&fordate2(rsbbsmsg("writeTime"))&")<br/>"
  end if
  rsbbsmsg.movenext
  wend
  else
    Response.write "广播,广播[<a href=""/bbs/lb/index.asp?saytk="&saytk&"&amp;sid="&sid&""">吹吹水</a>]...<br/>"
  end if
  rsbbsmsg.close
  set rsbbsmsg=nothing


call bbslbtxt()
Response.write "=个人动作=<br/>"
set fs=server.createobject("scripting.filesystemobject")
file=server.mappath("/msg/"&MYID&".txt")
set txt=fs.opentextfile(file,1,true)
if not txt.atendofstream then
line=txt.readline
response.write ubbcode(line) & ""
end if
Response.write "<br/>=会员动作=<br/>"
set fs=server.createobject("scripting.filesystemobject")
file=server.mappath("/index.inc")
set txt=fs.opentextfile(file,1,true)
if not txt.atendofstream then
line=txt.readline
response.write ubbcode(line) & ""
end if


Response.write "<br/>=最新注册会员=<br/>"
dim rs,sex1,name1,id1,sjhm1
set rs=conn.execute("select top 5 name,sjhm,sex,id from [users] order by id desc")
while not rs.eof
name1=rs("name")
sjhm1=rs("sjhm")
id1=rs("id")
response.write "<a href=""/bbs/uinfo.asp?id="&id1&"&amp;saytk="&saytk&"&amp;sid="&sid&""">"&name1&"</a>"
sex1=rs("sex")
if sex1="2" or  sex1="3" then
response.write "(女)"
else
response.write "(男)"
end if
response.write left(rs("sjhm"),7)&"****" &"<br/>"	
	
rs.movenext
wend
set rs=nothing
conn.close
set conn=nothing
%><br/><a href="index.asp?sid=<%= sid %>">社区首页</a>
<br/><a href="/index.asp?sid=<%= sid %>">返回首页</a>
<%call head1()%>