<!-- #include file="../Inc.asp" -->
<!-- #include file="../ydzq.asp" -->
<!-- #include file="conn.asp" -->
<%Call Head()
call zonecard(zonenamee,"left")
response.write "<a href=""index_gl.asp?sid="&sid&"&amp;saytk="&saytk&""">个人中心</a>|"&_
               "<a href=""index.asp?sid="&sid&"&amp;saytk="&saytk&""">主页</a>|"&_
               "<a href='blog.asp?sid="&sid&"&amp;saytk="&saytk&"'>日志</a>|"&_
               "<a href='user_info.asp?sid="&sid&"&amp;saytk="&saytk&"'>个人档</a>"&_
               zonepost("so.asp?sid="&sid&"&amp;saytk="&saytk&"")&_
               "<br/>暂时只支持ID搜索<br/><input type=""ids"" name=""ids"" title=""输入内容"" value="""" maxlength=""300""/>"
   if v=2 then
Response.Write "<br/><input type=""submit"" value=""搜索""/></form><br/>"
   else
response.write "<anchor title=""确定"">搜索"&_
               "<go method=""post"" href=""so.asp?sid="&sid&"&amp;saytk="&saytk&""">"&_
               "<postfield name=""ids"" value=""$(ids)""/>"&_
               "</go></anchor><br/>"
   end if
dim rs1,fdid,ids,sql
ids=request("ids")
if ids<>"" then
  sql="select * from myfriend where did="&ids&" and cid="&myid&" order by id desc"
else
  sql="select * from myfriend where cid="&myid&" order by id desc"
end if
set rs1=Server.CreateObject("ADODB.Recordset")
rs1.open sql,conn,1,3
if rs1.eof then
Response.write "没有符合"&ids&"的好友<br/>"
else
fdid=rs1("did")
end if
rs1.close
set rs1=nothing

set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from Users where id="&fdid&" order by userids desc",conn,1,1
If Not rs.eof	Then
	Dim PageSize,i
	PageSize=8						
	Dim Count,page,pagecount,gopage
	gopage="so.asp?sid="&sid&"&amp;saytk="&saytk&"&"
	Count=rs.recordcount	
  page=clng(request("page"))
	if page<=0 or page="" then page=1		
	pagecount=(count+pagesize-1)\pagesize	
        if page>pagecount then page=pagecount
  rs1.close
  set rs1=nothing
	rs.move(pagesize*(page-1))					
	For i=1 To PageSize     						
	If rs.eof Then Exit For
Dim rs2,usertit
set rs2=Server.CreateObject("ADODB.Recordset")
rs2.open"select * from zoness where uid="&rs("zoneid")&" order by id desc",conn,1,1
usertit=rs2("tit")
if len(rs2("tit"))<1 then usertit="该好友好懒"
  rs2.close
  set rs2=nothing
response.write""&i+(page-1)*PageSize&".<a href='index.asp?uid=" & rs("id") & "&amp;sid="&sid&"&amp;saytk="&saytk&"'>" & ubb(rs("name")) & "</a>: " & ubb(usertit) & "<br/>"
rs.moveNext
 	Next
	call zone_Page(pagecount,page,"so.asp?sid="&sid&"&amp;saytk="&saytk&"",count,"Page")
Else
response.write"暂时没有开通空间的友友！<br/>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
call zonelast()
Call Headsay()
%>
