<%
end if
'检查有几条新留言
dim newguest
newguest = 0
if myid > 0 then
  newguest = fornewguest(myid)

set rs1=server.createobject("adodb.recordset")
 rs1.open "select id from users where '"&datediff("n",tjj , now())&" >= "&lonline&"' and id="&ids,conn,1,1
if not rs1.eof then
response.write "<img src='/bbs/images/on1.gif' alt='在线'/>"
else
response.write "<img src='/bbs/images/off1.gif' alt='离线'/>"
end if
rs1.close
set rs1=nothing

response.write "<a href='/bbs/myfriend.asp?sid=" & sid & "&amp;saytk="&saytk&"'>"&myid&"</a>"
end if
if myid<>0 then
if newguest > 0 then
response.write "<a href='/bbs/msgview.asp?url="&replace(replace(r_url(),"sid=","sidoo="),"sid=","sidoo=")&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>("&newguest&") </a>"
end if
dim myfr
myfr= conn.execute("select count(id) from [myfriend] where cid="&myid)(0)
response.write "<a href='show.asp?sid=" & sid & "'><img src='/bbs/images/jia.gif' alt='.'/>家园 </a>"
response.write "<a href='/bbs/zone/?sid=" & sid & "'><img src='/bbs/images/zone.gif' alt='.'/>空间</a><br/>"
else
response.write "<a href='login.asp?saytk="&saytk&"&amp;url=/index.asp'>登陆</a>|<a href='/bbs/login.asp?saytk="&saytk&"&amp;url=/index.asp'>注册</a><br/>"
end if
%>