<% 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&"&bbsid="&bbsid&"&" 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 set rs1=nothing response.write""&i+(page-1)*PageSize&"." response.write"" & ubb(username) & "" response.write"[删除]
" rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页跳转
" Else response.write"暂时没有好友！
" end if rs.close set rs=nothing conn.close set conn=nothing response.write"-----------
" response.write"添加好友" response.write"
我的黑名单"&chr(13) response.write"
我的空间" %>