<%
'检查有几条新留言
dim newguest
newguest = 0
if saytk<>1 then
%>
<div class="path red">
<%
end if
if myid > 0 then
  newguest = fornewguest(myid)
If qqcdd=1 then
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&"'>ID:"&myid&"</a>"

if myid<>0 then
if newguest > 0 then
response.write "<a href='/bbs/msgview.asp?url="&replace(replace(r_url(),"sid=","sidoo="),"saytk=","sayou=")&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>("&newguest&")</a>"
end If
End if
dim myfr
myfr= conn.execute("select count(id) from [myfriend] where cid="&myid)(0)
response.write "<a href='/bbs/uinfo.asp?sid="&sid&"&amp;saytk="&saytk&"'> <img src='/img/home.gif' alt='.'/>家园 </a>"
response.write "<a href='/bbs/blog/index.asp?sid="&sid&"&amp;saytk="&saytk&"'><img src='/bbs/images/zone.gif' alt='.'/>"
Dim M_zonedt_my
M_zonedt_my=conn.execute("Select count(ID) from [zonedt_my] where yid=0 and gid="&myid)(0)

if M_zonedt_my<>0 then
Response.write "("&M_zonedt_my&")"
else
Response.write "(0)"
end if
response.write"</a><br/>"&chr(13)


End If
else
response.write "<a href='/bbs/login.asp?saytk="&saytk&"&amp;url="&replace(replace(r_url(),"sid=","sidoo="),"saytk=","sayou=")&"'>登陆</a>|<a href='/bbs/login.asp?saytk="&saytk&"&amp;url=/index.asp'>注册</a><br/>"
end If

if saytk<>1 then
%>
</span>
</div>
<%
end If

%>