心情日记
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")
SQLStr = "Update diary Set Hit = Hit + 1 Where ID = " & Request("ID")
conn.Execute(SQLStr)
Set Rs = Server.CreateObject("ADODB.Recordset")
SQLStr = "Select Topic,UpdateTime,Weather,Mood,Body From diary Where ID = " & Request("ID")
Rs.Open SQLStr,conn,1,1
%>
日期:年月日
天气:
心情:
Rs.Close()
%>
'End If
%>
If cint(AccountID) = cint(Session("u_id")) Then
%>
[新添]
[编辑]
[删除]
End If
%>
SQLStr = "Select Top 1 ID,Topic From diary Where AccountID = " & AccountID & " And ID > " & Request("ID") & " Order By ID"
Rs.Open SQLStr,conn,1,1
If Not Rs.Eof Then
%>
上一篇 ……
End If
Rs.Close()
SQLStr = "Select Top 1 ID,Topic From diary Where AccountID = " & AccountID & " And ID < " & Request("ID") & " Order By ID Desc"
Rs.Open SQLStr,conn,1,1
If Not Rs.Eof Then
%>
下一篇 ……
End If
Rs.Close()
%>
End IF
%>