相关代码 |
|
您的交友请求有如下回复
日期
网名
性别
所在地
相关操作
AccountID=session("u_id")
Set Rs = Server.CreateObject("ADODB.Recordset")
Dim PageSize,AllCount,MaxPage,PageNo
PageNO = Request.QueryString("PageNO")
SQLStr = "select * from back where for_id=" & session("u_id")
PageSize = 10
Rs.PageSize = PageSize
Rs.Open SQLStr,conn,1,3
AllCount = Rs.RecordCount
MaxPage = Rs.PageCount
If Rs.RecordCount > 0 Then
Rs.MoveFirst
If PageNO = "" Then PageNO=1
If PageNO+1 < 1 Then PageNO=1
If PageNO+1 > MaxPage+1 Then PageNO = MaxPage
Rs.AbsolutePage = PageNO
End If
i=0
DO While Not Rs.EOF and i < PageSize
i=i+1
%>
已接受 [移入好友列表]
已拒绝 [删除掉此请求]
已接受 [移入好友列表]
已拒绝 [删除掉此请求]
Rs.MoveNext
Loop
Rs.Close()
%>
共有个 好友 页次: / 页
0 then %>
首页 上一页
else
%>
首页 上一页
end if %>
if PageNo+1 %>
下一页 末页
else
%>
下一页 末页
end if
%>
我的追求者┊我的朋友
相关资源 |
|