的心情日记
新添日记
If WhoCanSee = 0 And cint(Session("u_id")) cint(Request("AccountID")) Then
Response.Write "关闭了日记本"
ElseIf WhoCanSee = 2 And Not IsMember() Then
Response.Write "您还没登录，不能看到日记 "
ElseIf WhoCanSee = 1 And Not IsFriend(Request("AccountID")) And cint(Session("u_id")) cint(Request("AccountID")) Then
Response.Write "只有" & NickName & "的好友才能看到日记"
Else
%>
AccountID=request("AccountID")
Set Rs = Server.CreateObject("ADODB.Recordset")
SQLStr = "Select Top 1 ID,Topic,Body From Diary Where AccountID = " & AccountID & " Order By ID Desc"
Rs.Open SQLStr,conn,1,1
If Not Rs.Eof Then
Dim DiaryBody
DiaryBody=Left(Rs("Body"),50)
DiaryBody=replace(DiaryBody,""," ")
DiaryBody=replace(DiaryBody,""," ")
DiaryBody=replace(DiaryBody," "," ")
SQLStr = "" & Rs("Topic") & ""
SQLStr = SQLStr & "" & "" & DiaryBody & "……"
Else
SQLStr = "心情日记" & NickName & " 还没有任何日记。"
End If
Rs.Close()
%>
Dim PageSize,AllCount,MaxPage,PageNo
PageNO = Request.QueryString("PageNO")
SQLStr = "Select ID,Topic,UpdateTime,Hit From Diary Where AccountID="& AccountID &" Order By UpdateTime Desc"
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
%>
End IF
%>
