<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->
<%'=============================
Call head()
Call cardgame("打工",yanse10)

  set objgbrs=Server.CreateObject("ADODB.Recordset")
  ssql="select * from users where id="&myid&""
  objgbrs.open ssql,conn
if xlgb=1 then
set rsbbsmsg=Server.CreateObject("ADODB.Recordset")
  rsbbsmsg.open"select top "&xlgbs&" * from wap8gggnet order by ding1 desc",conn,1,1
  if not rsbbsmsg.eof then
  while not rsbbsmsg.eof
dim ding
ding=rsbbsmsg("ding")
if ding=>1 then 
  response.write"[顶]"
end if
    bbslbtxt1=left(rsbbsmsg("bbslbtxt"),8)
   if len(rsbbsmsg("bbslbtxt"))>8 then
    bbslbtxt1=bbslbtxt1+"..."
   End if
  if rsbbsmsg("usid")<>0 then

  response.write"<img src='/bbs/gb/gb.gif' alt='广播'/><a href=""/bbs/gb/index.asp?sid="&sid&"&amp;saytk="&saytk&""">"&ubb(bbslbtxt1)&"</a><br/>"
  else
  'response.write"(系统)"&ubb(rsbbsmsg("bbslbtxt1"))&"("&fordate2(rsbbsmsg("writeTime"))&")<br/>"
  end if
  rsbbsmsg.movenext
  wend
  else
    Response.write "暂时没有广播...<br/>"
  end if
  rsbbsmsg.close
  set rsbbsmsg=nothing
end if
if xlhy=1 then
set rsbbsmsg=Server.CreateObject("ADODB.Recordset")
  rsbbsmsg.open"select top "&xlhys&" * from sqdt order by shijian desc",conn,1,1
  if not rsbbsmsg.eof then
  while not rsbbsmsg.eof
dz=rsbbsmsg("dz")
Response.write date_gametalk(rsbbsmsg("shijian"))&"前,"&ubb2(dz)&"<br/>"&chr(13)

  rsbbsmsg.movenext
  wend
  else
    Response.write "暂时没有会员动态...<br/>"
  end if
  rsbbsmsg.close
  set rsbbsmsg=nothing
end if
if xlsui=1 then
dim rs55
if relid<>0  then 
gettest="where yc=1 and bbsid="&relid
end if
        set rs55 = server.createobject("adodb.recordset")
        rs55.open"select top "&xlsuis&" id,bbsid,xianhua,name from sell "&gettest&" order by NEWID()",conn,1,1
while not rs55.EOF
dim xianhuah
xianhuah=rs55("xianhua")
if xianhuah=>1 then
              response.write"<img src='/bbs/jia/1.gif' alt='hot'/><img src='/bbs/jia/2.gif' alt='推荐'/>"
end if

              response.write"[随]<a href='/bbs/topic.asp?tid="&rs55("id")&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>"&UBB(rs55("name"))&"</a><br/>"
 rs55.MoveNext
  wend
                rs55.close
        set rs55=nothing
end if
%>
你现在有:<% =objgbrs("myjb") %><%=getcent%><br/>
<% =objgbrs("mytl") %>体力<br/>
<% =objgbrs("myml") %>魅力<br/>
<%
	conn.close
	set objgbrs=nothing
	Set conn = Nothing
if saytk>1 then
Response.write "<form name=""form"" method=""post"" action=""dgcl.asp?sid="&sid&"&amp;saytk="&saytk&""">"
end if
%><select title="选择类型" name='lx'>
<option title="种田" value="rou">种田</option>      
<option title="医生" value="gt">医生</option>      
<option title="教师" value="xnj">教师</option>   
<option title="搬运" value="rou">搬运</option>
<option title="按摩" value="xnj">按摩</option>
<option title="做文员" value="rou">做文员</option> 
<option title="翻译" value="gt">翻译</option>
<option title="导游" value="rou">导游</option>
<option title="船夫" value="xnj">船夫</option> 
</select>
<%if saytk>1 then
response.write "<input type=""hidden"" name=""sl"" value=""1""/>"
response.write "<input type=""submit"" name=""Submit"" value=""开始工作""></form><br/>"
else%>
 <anchor>开始工作
<go method="post" href='dgcl.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>
<postfield name="lx" value="$(lx)"/>
<postfield name="sl" value="1"/>
</go>
</anchor>
<%end if%>
<!--#include file="../fanhui.asp"-->
<%call head1()%>



