<!--#include file="../Include/Conno.asp" -->
<!--#include file="../Include/Char.asp" -->
<!--#include file="ubbcode.asp" -->
<%
m_UserID = Request.Cookies("aspxnet")("CurUserID")
if Request.QueryString("action") = "read" then
  m_ID = Request.QueryString("ID")
  'F_Hits++
  m_Sql = "Update RJ_DiaryList Set F_Hits=F_Hits+1 Where F_ID="&m_ID
  conn.Execute(m_Sql)
  'Read
  m_Sql = "Select * From RJ_DiaryList where F_ID=" & m_ID
  Set rs = conn.Execute(m_Sql)
  If Not rs.Eof then
    m_UserID = rs("F_UserID")
	'm_UserName = rs("F_UserName")
    m_Title = rs("F_Title")
	m_Content = ubbCode(rs("F_Content"))
	m_CanTo = rs("F_Canto")
	m_Weather = rs("F_Weather")
	m_HeartPic = rs("F_HeartPic")
	'm_BgPic = rs("F_BgPic")
	m_Addtime = rs("F_Addtime")
	'm_DiaryName = rs("F_DiaryName")
	m_Hits = rs("F_Hits")
	m_PollNumber = rs("F_PollNumber")
  end if
  m_Sql = "Select F_BgPic,F_DiaryName From RJ_Diary where F_UserID=" & m_UserID
  Set rs = conn.Execute(m_Sql)
  If Not rs.Eof then
	m_BgPic = rs("F_BgPic")
	m_DiaryName = rs("F_DiaryName")
  end if
  m_Sql = "Select F_UserName From T_Member where F_ID=" & m_UserID
  Set rs = conn.Execute(m_Sql)
  If Not rs.Eof then
	m_UserName = rs("F_UserName")
  end if
  Call CloseDatabase()
end if


%>
<html>
<head>
<title>心情日记</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/member.css" rel="stylesheet" type="text/css">
</head>
<body background="<%=m_BgPic%>"  leftmargin="0" topmargin="0">
<table width="100%" height="569" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="100%" height="569" valign="top"> 
      <table width="100%" border="0" cellspacing="3" cellpadding="0">
        <tr> 
          <td height="60" align="center"><span class=p2><strong><% = m_Title %></strong></span></td>
        </tr>
        <tr> 
          <td align="center"><%Response.write "["&m_Canto&"]  作者:"&m_UserName %>
            <hr width="90%" size="1"></td>
        </tr>
        <tr> 
          <td align="center">
		  <font color="#666666">
		  <%
		  Response.write "《"&m_DiaryName&"》&nbsp;"
		  Response.write "点击:<font color=000000>"& m_Hits&"</font>&nbsp;"
		  Response.write "投票:<font color=000000>"&m_PollNumber&"</font>&nbsp;"
		  Response.write m_Addtime
		  %>
		  </font></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="10" cellpadding="0">
        <tr>
          <td height="400" valign="top">
		  <img src="<%=m_HeartPic%>" width="40" height="40">
		  <span class="p1">
		  <% = m_Content %>
		  </span> </td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="35" align="center">Powered by <a href="http://www.hg188.net" target="_blank">黄冈信息港</a> 
            <a href="javascript:window.close()">[关闭窗口]</a> </td>
        </tr>
      </table> </td>
  </tr>
</table>
</body>
</html>
