<!--#include file="inc.asp"-->

<!--#include file="ydzq.asp"-->
<%Call head()
Call saycarda("【我的好友】")%>


<!--#include file="sy1.asp"-->
<%
'随机广告开始
if adsetkf("ads2")=1 then
call adstr(2)
end if
response.write"<br/>【我的好友】(<a href='onlineview.asp?sid="&sid&"&amp;saytk="&saytk&"'>上线</a>)<br/>"
response.write"在线|<a href='/bbs/lb/?sid="&sid&"&amp;saytk="&saytk&"'>广播</a>"

response.write "|<a href=""/shop/?sid="&sid&"&amp;saytk="&saytk&""">商店</a>"


response.write"|<a href='mymsg.asp?sid="&sid&"&amp;saytk="&saytk&"'>信箱</a><br/>"
response.write"<a href='myfriend.asp?sid="&sid&"&amp;saytk="&saytk&"'>手动刷新列表</a><br/>"


set rs=server.createobject("adodb.recordset")
rs.open"select * from myfriend where cid="&myid&" order by id desc",conn,1,1
if not rs.eof	then
	dim pagesize,i
	pagesize=10						
	dim count,page,pagecount,gopage			
	gopage="myfriend.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;bbsid="&bbsid&"&amp;"
	count=rs.recordcount	
	page=int(request.querystring ("page"))
	if page<=0 or page="" then page=1		
	pagecount=(count+pagesize-1)\pagesize	
        if page>pagecount then page=pagecount
	rs.move(pagesize*(page-1))					
	for i=1 to pagesize     						
	if rs.eof then exit for	

dim username
set rs1=server.createobject("adodb.recordset")
  rs1.open"select name from users where id="&rs("did"),conn,1,1
username=rs1("name")
  rs1.close




response.write"<img src=""/bbs/images/zx.gif"" alt="".""/>"
response.write"<a href='haoyou.asp?id=" & rs("did") & "&amp;sid="&sid&"&amp;saytk="&saytk&"'>" & ubb(username) & "</a><br/>"


rs.movenext
 	next
	if page-pagecount<0 then response.write "<a href="""&gopage&"page="&page+1&""">下页</a>"
	if page>1 then response.write "<a href="""&gopage&"page="&page-1&""">上页</a>"
	if pagecount>1 then response.write "<br/><b>"&page&"</b>/"&pagecount&"页<input name=""page"" format=""*n"" value="""&page&""" type=""text"" maxlength=""5"" emptyok=""true"" size=""3""/><a href="""&gopage&"page=$(page)"">跳转</a><br/>"

else
response.write"温馨提示：您没有好友在线，或因网络原因，好友列表没有即时显示，请<a href='/bbs/myfriend.asp?sid="&sid&"&amp;saytk="&saytk&"'>点击刷新</a><br/>"
end if
rs.close
set rs=nothing

call bbssearch()

response.write"<br/>在线|<a href='/bbs/lb/?sid="&sid&"&amp;saytk="&saytk&"'>广播</a>"

response.write "|<a href=""msglist.asp?sid="&sid&"&amp;saytk="&saytk&""">记录</a>"


response.write"|<a href='mymsg.asp?sid="&sid&"&amp;saytk="&saytk&"'>信箱</a><br/>"
response.write"<a href='checkshow.asp?sid="&sid&"&amp;saytk="&saytk&"'>设置</a>"
response.write"|<a href='searchuser.asp?sid="&sid&"&amp;saytk="&saytk&"'>查找</a>"
response.write"|<a href='sid.asp?sid="&sid&"&amp;saytk="&saytk&"'>改标识</a>"


response.write"|<a href='login.asp'>退出</a><br/>"
response.write"<a href='/bbs/findex.asp?id=9&amp;sid="&sid&"&amp;saytk="&saytk&"'>论坛中心</a>"
response.write"<br/><br/>聊天时，你还可以:<br/>"
response.write"<a href='index.asp?sid="&sid&"&amp;saytk="&saytk&"'>玩社区</a>"

response.write"|<a href='zone.asp?sid="&sid&"&amp;saytk="&saytk&"'>进家族</a>"
response.write"|<a href='/bbs/xy/index.asp?sid="&sid&"&amp;saytk="&saytk&"'>祈愿</a><br/>"

response.write"<a href='/bbs/cw/index.asp?sid="&sid&"&amp;saytk="&saytk&"'>养宠物</a>"

response.write"|<a href='/bbs/yxxe/index.asp?sid="&sid&"&amp;saytk="&saytk&"'>走江湖</a>"
response.write"|<a href='/bbs/1say/wxsc/?sid="&sid&"&amp;saytk="&saytk&"'>小说</a><br/>"

response.write"【热点贴子推荐】<br/>"

call newsell(3,0,"13",0,1)


response.write"<a href='/bbs/e_list.asp?tpye=2&amp;sid="&sid&"&amp;saytk="&saytk&"'>更多好帖</a>>>"

response.write"<br/>-----------<br/>"
response.write"<a href='get.asp?action=f&amp;sid="&sid&"&amp;saytk="&saytk&"'>添加好友</a>"
response.write"<br/><a href=""myhait.asp?sid="&sid&"&amp;saytk="&saytk&""">我的黑名单</a>"
response.write"<br/><a href='/bbs/?sid="&sid&"&amp;saytk="&saytk&"'>社区</a>-<a href='/index.asp?sid="&sid&"&amp;saytk="&saytk&"'>首页</a>-<a href='/bbs/nongchang/?sid="&sid&"&amp;saytk="&saytk&"'>农场</a>"&chr(13)
conn.close
set conn=nothing
Call headsay()
%>