<!--#include file="../inc.asp"-->
<!--#include file="../ydzq1.asp"-->
<!--#include file="conn.asp"-->
<!-- #include file="../../inc/pz/dfwpz.asp" -->
<%


if myid<>0 then
mz="[url=/bbs/uinfo.asp?id="&myid&"&amp;[标识]]"&myni&"[/url]"
else
mz="游客"
end if
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"玩起了(url=/bbs/dfw/?[标识])大富翁(/url)游戏')")

dim winerName,winervice,bigzu,winlogo
  set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select winerName,winervice,bigzu,winlogo from winerAdmin where id=1",ydzqconn,1,1
if not rs.eof then
winerName=rs(0)
winervice=rs(1)
bigzu=rs(2)
winlogo=rs(3)
end if
rs.close
set rs=nothing%>
<%Call head()
Call saycarda(""&dfwpz&"")

if len(winlogo)>7 then
response.write"<img src='"&dfwpz1&"' alt='logo'/><br/>"&chr(13)
end if
'检查有几条新留言
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='../msgview.asp?url="&Replace(Replace(R_url(),"sid=","sidoo="),"sid=","sidoo=")&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>您有"&newguest&"条新消息</a><br/>"& chr(13)
end if
response.write"欢迎您：<a href='../show.asp?sid="&sid&"&amp;saytk="&saytk&"'>"&myni&"</a><br/>您有"&myjb&getcent&"!<br/>"&chr(13)
else
Response.write "欢迎您:<a href='/bbs/login.asp?url="&Replace(Replace(R_url(),"sid=","sidoo="),"sid=","sidoo=")&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>登陆/注册</a><br/>"& chr(13)
end if
response.write""&ubb(winervice)&"<br/>"
response.write "-----------<br/>"


  set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select top 1 ID from winer where comeover=0 order by id desc",ydzqconn,1,1
if not rs.eof then
response.write"第"&rs("ID")&"轮即将开始<br/>"
end if
rs.close
set rs=nothing

  set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select top 1 ID,winnum,winUsid,winUsname,cent,dinum from winer where comeover=1 order by id desc",ydzqconn,1,1
if not rs.eof then
if rs("winusid")<>0 then
response.write"上期中奖:<a href=""../uinfo.asp?ID="&rs("winusid")&"&amp;sid="&sid&"&amp;saytk="&saytk&""">"&rs("winUsname")&"</a><br/>"
else
response.write"上期中奖:无人中奖<br/>"
end if
end if
rs.close
set rs=nothing

dim winerID
winerID=0
  set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select top 1 ID,winnum,winUsid,winUsname,cent,dinum from winer where comeover=0 order by id desc",ydzqconn,1,1
if not rs.eof then
response.write"本轮号码"&rs("winnum")&"<br/>"
response.write"本轮还有"&abs(int(bigzu-rs("dinum")))&"个下注机会<br/>"
response.write"彩池奖金:"&rs("cent")&"<br/>"
winerID=rs("ID")
end if
rs.close
set rs=nothing

response.write"<a href=""myview.asp?sid="&sid&"&amp;saytk="&saytk&""">[我的记录]</a><br/>"
response.write"<a href=""put.asp?ID="&winerID&"&amp;sid="&sid&"&amp;saytk="&saytk&""">[我要下注]</a><br/>"
response.write"<a href=""winlist.asp?sid="&sid&"&amp;saytk="&saytk&""">[开奖记录]</a><br/>"
response.write"<a href=""mywinlist.asp?sid="&sid&"&amp;saytk="&saytk&""">[我的号码]</a><br/>"
response.write"<a href=""wintop.asp?sid="&sid&"&amp;saytk="&saytk&""">[下注排名]</a><br/>"
response.write"<a href=""wintop2.asp?sid="&sid&"&amp;saytk="&saytk&""">[中奖排名]</a><br/>"
response.write"<a href=""winerhelp.asp?sid="&sid&"&amp;saytk="&saytk&""">[游戏规则]</a><br/>"

  Response.write "--------------<br/>"
  set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select top 5 winText,usid,writeTime from winbbs order by id desc",ydzqconn,1,1
  if not rs.eof then
  while not rs.eof
  if rs("usid")<>0 then
  response.write"<a href=""../uinfo.asp?ID="&rs("usid")&"&amp;sid="&sid&"&amp;saytk="&saytk&""">"&uname(rs("usid"))&"</a>说:"&ubb(rs("winText"))&"("&fordate2(rs("writeTime"))&")<br/>"
  else
  response.write"(系统)"&ubb(rs("winText"))&"("&fordate2(rs("writeTime"))&")<br/>"
  end if
  rs.movenext
  wend
  else
    Response.write "暂时无聊天记录...<br/>"
  end if
  rs.close
  set rs=Nothing
  If saytk>1 then
%>
<form name="form" method="post" action="winbbs.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">
<%End if
response.write"<input type=""text"" name=""winText"" maxlength=""100""/><br/>"
  If saytk>1 Then
  response.write "<input type=""hidden"" name=""tp"" value=""ok""/>"
  response.write "<input type=""submit"" name=""Submit"" value=""发表""></form><br/>"
  else
response.write"<anchor>发表"
response.write"<go method=""post"" href=""winbbs.asp?sid="&sid&"&amp;saytk="&saytk&""">"
response.write"<postfield name=""winText"" value=""$(winText)""/>"
response.write"<postfield name=""TP"" value=""ok""/>"
response.write"</go></anchor> "
End if
response.write"<a href=""index.asp?t="&int(timer())&"&amp;sid="&sid&"&amp;saytk="&saytk&""">刷新</a> "
response.write"<a href=""winbbs.asp?sid="&sid&"&amp;saytk="&saytk&""">更多内容</a><br/>"
  function uname(fid)
 dim ru
 Set ru = Server.CreateObject("ADODB.Recordset")
 ru.Source ="SELECT name from users Where ID="&fid
 ru.open ru.Source,Conn,1,1
 if not ru.eof then
  uname=ubb(ru("name"))
 else
 uname="用户不存在"
 end if
 ru.close
 set ru=nothing
 end function
   set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select top 1 id from users order by id",conn,1,1
if myid=rs("id") then
response.write"<br/><a href=""winerset.asp?sid="&sid&"&amp;saytk="&saytk&""">[-站长管理-]</a><br/>"
end if
 rs.close
 set rs=nothing
ydzqconn.close
set ydzqconn=nothing
conn.close
set conn=nothing
Response.write "--------------"


%><!--#include file="../fanhui.asp"-->
<%Call headsay()%>  