<!-- #include file="../Inc.asp" -->
<!-- #include file="../ydzq3.asp" -->
<!-- #include file="conn.asp" -->
<%
call Head()


call zonenow

call zonenowss
call zonenowrj
call zonenowfile
call zonenowly
call zonenowfk
if myid<>0 then
mz="[url=/bbs/uinfo.asp?id="&myid&"&amp;saytk=[saytk]&amp;sid=[sid]]"&myni&"[/url]"
else
mz="游客"&Replace(time(),":","")&""
end if
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"进入了(url=/bbs/blog/?uid="&myid&"&amp;saytk=[saytk]&amp;sid=[sid])我的博客(/url)')")
call zoneLast()
call Head3()

Function zonenow()

call zonecard(zonenamee,"left")
response.write "<img src='"&zonelogo&"' alt='空间'/><br/>"
if myid=clng(uid) then
Response.Write "<a href=""index_gl.asp?sid="&sid&"&amp;saytk="&saytk&""">个人中心</a>|"
end if
Response.Write "主页|"&_
               "<a href='blog.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>日志</a>"

Response.Write "|<a href=""index_ry.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">应用</a><br/>"


Response.Write "<a href='user_info.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>个人档</a>."
Response.write "<a href='zonedt_my.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>最近动态</a>"
Response.Write "<br/>"

if myid<>0 then
Response.Write "<br/>"&username&"<br/>"
end if
Dim Rs
if merry<>0 then
Response.Write ""&username&"love"
set Rs=server.CreateObject("ADODB.RecordSet")
 Rs.Open "select name from Users where id="&merry,conn,1,1
if not Rs.eof then
Response.Write "<a href=""index.asp?uid="&merry&"&amp;sid="&sid&"&amp;saytk="&saytk&""">"&Rs("name")&"</a>"
end if
Rs.close
set Rs=nothing
end if
End Function

Function zonenowss()
Dim Rs
set Rs=Server.CreateObject("ADODB.Recordset")
Rs.open"select * from zoness where uid="&uid&" order by id desc",conn,1,1
if Rs.eof then
Response.Write "暂无说说<br/>"
else
Response.Write "<a href='moob_list.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>说说</a>:"
For i=1 to 1
Response.Write ""&UBB(Rs("tit"))&"<br/>"
if myid<>clng(uid) then
hydt("逛了"&username&"的<a href=""/bbs/zone/index.asp?uid="&uid&"&sid=[sid]"">空间</a>")
zonepost("moob_addcl.asp?id="&rs("id")&"&amp;uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"")
Response.Write "<input type=""pl"" name=""pl"" title=""输入内容"" value="""" maxlength=""300""/><br/>"
if v=2 then
Response.Write "<input type=""submit"" value=""发表评论""/></form><br/>"
else
Response.Write "<anchor title=""确定"">发表评论"&_
               "<go method=""post"" href=""moob_addcl.asp?id="&rs("id")&"&amp;uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">"&_
               "<postfield name=""pl"" value=""$(pl)""/>"&_
               "</go></anchor><br/>"
end if
end if
rs.Movenext
if rs.EOF then Exit for
 Next
end if
rs.close
Set rs= Nothing
if myid=clng(uid) then
zonepost("moob_add.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"")
response.write"<input type=""titt"" name=""titt"" title=""输入内容"" value="""" maxlength=""300""/>"
if saytk=>2 then
Response.Write "<br/><input type=""submit"" value=""更新说说""/></form><br/>"
else
Response.Write "<anchor title=""确定"">更新说说"&_
               "<go method=""post"" href=""moob_add.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">"&_
               "<postfield name=""titt"" value=""$(titt)""/>"&_
               "</go></anchor><br/>"
end if
end if
End Function

Function zonenowrj()
Dim Rs,M_myreadnu
M_myreadnu=conn.execute("Select count(ID) from [zonerj] where rc=0 and uid="&uid)(0)
response.write"<a href='blog.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>公开日志("&M_myreadnu&")</a><br/>"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from [zonerj] where rc=0 and uid="&uid&" order by ID desc",conn,1,1
if rs.eof then
if myid<>clng(uid) then
Response.write "该空间目前没有公开日志<br/>"
else
Response.write "暂无没有公开日志<br/>"
end if
else
For i=1 to 5
response.write ""&i+(1-1)*20&"."&_
               "<a href='blog_view.asp?ID="&rs("ID")&"&amp;uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>"&_
               ""&UBB(rs("tit"))&"</a>"&_
               "("&UBB(rs("hc"))&")<br/>"&_
               "[" & fordate(rs("tm")) & "]<br/>"
rs.Movenext
if rs.EOF then Exit for
 Next
end if
rs.close
Set rs= Nothing
End Function

Function zonenowfile()
Dim Rs
response.write"【<a href='/bbs/photo.asp?ids="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>相册</a>】<br/>"
set Rs=Server.CreateObject("ADODB.Recordset")
Rs.open"select * from upfile where Fid="&uid&" and smallstr=1 order by id desc",conn,1,1
If Rs.eof	Then
if myid<>clng(uid) then
Response.write "该空间目前没有公开相片<br/>"
else
Response.write "赶快晒晒你的形象<br/>"
end if
else
For i=1 to 3
response.write "<img src='/bbs/"& Rs("smallfiles") & "' alt='图'/>"
Rs.Movenext
if Rs.EOF then Exit for
 Next
end if
Rs.close
Set Rs= Nothing
response.write "<br/>"
End Function

Function zonenowly()
Dim Rs,M_myreadnum
M_myreadnum=conn.execute("Select count(ID) from [zonely] where usid="&uid)(0)
response.write"【<a href='msg_board.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>留言板("&M_myreadnum&")</a>】<br/>"
set Rs=Server.CreateObject("ADODB.Recordset")
Rs.open"select * from zonely where usid="&uid&" order by id desc",conn,1,1
If Rs.eof	Then
if myid<>clng(uid) then
Response.write "该空间目前没有留言<br/>"
else
Response.write "快快去给你的空间增加人气<br/>"
end if
else
For i=1 to 1
Response.write "<a href=""index.asp?uid="&Rs("fid")&"&amp;sid="&sid&"&amp;saytk="&saytk&""">"&usb(Rs("zonelyName"))&"</a>:"&Rs("zonecontent")&"<br/>[" & fordate(Rs("tm")) & "]<br/>"
Rs.Movenext
if Rs.EOF then Exit for
 Next
end if
Rs.close
Set Rs= Nothing
if myid<>clng(uid) then
zonepost("msg_add.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"")
response.write "<input name=""content"" type=""text"" format=""*M"" emptyok=""content"" maxlength=""20"" value=""踩踩留下我的脚印~""/><br/>"
if saytk>=2 then
Response.Write "<input type=""submit"" value=""踩个脚印""/></form><br/>"
else
response.write "<anchor>踩个脚印"&_
               "<go href=""msg_add.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;uid="&uid&""" method=""post"" accept-charset=""utf-8"">"&_
               "<postfield name=""content"" value=""$(content)""/>"&_
               "</go></anchor><br/>"
end if
end if
End Function

Function zonenowfk()
Dim Rs,sql
Response.write "【最近访客】<br/>"
set rs=Server.CreateObject("ADODB.Recordset")
  sql="select * from zonedt where fid=" & uid & " order by tm desc"
  rs.open sql,conn,1,3
if rs.eof then
Response.write "暂无访客"
else
For i=1 to 10
Response.write "<a href='index.asp?uid="&rs("ids")&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>"& rs("me") & "</a>."
rs.Movenext
if rs.EOF then Exit for
 Next
end if
response.write"<br/>"
rs.close
Set rs= Nothing
End Function
conn.close
set conn=nothing
%>