user_messageck.asp

711房产管理系统

<!--#include file="top.asp"-->
<% 
if session("uid")="" then
response.Redirect"error.asp"
end if
%> 
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td background="images/topb.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="5%"><img src="images/cent_01.gif" width="37" height="20"></td>
          <td width="93%" background="images/cent_02.gif">&nbsp;</td>
          <td width="2%"><img src="images/cent_03.gif" width="51" height="20"></td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td background="images/topb.gif"><TABLE width="98%" border=0 align="center" cellPadding=0 cellSpacing=0>
        <% if request("message")<>"" then
message=request("message")
set rs2=server.createobject("adodb.recordset")
sql2="select * from message where id="&message
rs2.open sql2,conn,1,3

rs2("ok")=0
rs2.update
%>
        <TR> 
          <TD align=middle height=50><div align="center"><a href="user.asp?gn=ziliao"><img src="images/user1.gif" alt="我的资料" width="51" height="40" border="0"></a>&nbsp; 
              <a href="user.asp?gn=xgzl"><img src="images/user2.gif" alt="修改资料" width="51" height="40" border="0"></a> 
              &nbsp;<a href="user.asp?gn=myhouse"><img src="images/user3.gif" alt="我的房产" width="51" height="40" border="0"></a>&nbsp; 
              <a href="user.asp?gn=message"><IMG 
src="images/message01.gif" border=0></a>&nbsp; <A 
href="user.asp?gn=box"><IMG 
src="images/message04.gif" border=0></A>&nbsp; <A 
href="user.asp?gn=write"><IMG 
src="images/message05.gif" 
border=0></A>&nbsp;<a href="user.asp?del=<% =rs2("id") %>"><img src="images/message08.gif" alt="删除此信件" border="0"></a>&nbsp; 
              <img src="images/user4.gif" width="40" height="40"></div></TD>
        </TR>
      </TABLE>
      <TABLE width="98%" border=1 align="center" cellPadding=2 cellSpacing=1 borderColor=#ffffff bgColor=ff9900>
        <TR align=middle borderColor=#007db5 bgColor=#007db5> 
          <TD bordercolor="#99CC99" bgcolor="a3e0a3"><b><font color="#FFFFFF">查看信件</font></b></TD>
        </TR>
        <TR bgcolor="#FFFFFF"> 
          <TD class=htd align=middle height=30><div align="left">信件主题： 
              <% =rs2("bt") %>
            </div></TD>
        </TR>
        <TR bgcolor="#FFFFFF"> 
          <TD class=htd align=middle height=30><div align="left">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
              <% =rs2("nr") %>
            </div></TD>
        </TR>
        <TR> 
          <TD class=htd align=middle bgColor=#ededed height=30>此信件是由&nbsp;<FONT class=blue> 
            <a href="L_user.asp?name=<% =rs2("fbr") %>"><% =rs2("fbr") %></a> 
            </FONT>&nbsp;于 
            <% =rs2("date") %>
            给你发送的信件</TD>
        </TR>
      </TABLE>
      <%
else 
response.Write""
end if %>
      <% if request("box")<>"" then %>
      <TABLE width="98%" border=0 align="center" cellPadding=0 cellSpacing=0>
        <% 
box=request("box")
set rs3=server.createobject("adodb.recordset")
sql3="select * from message where id="&box
rs3.open sql3,conn,1,3
%>
        <TR> 
          <TD align=middle height=50><div align="center"><a href="user.asp?gn=ziliao"><img src="images/user1.gif" alt="我的资料" width="51" height="40" border="0"></a>&nbsp; 
              <a href="user.asp?gn=xgzl"><img src="images/user2.gif" alt="修改资料" width="51" height="40" border="0"></a>&nbsp; 
              <a href="user.asp?gn=myhouse"><img src="images/user3.gif" alt="我的房产" width="51" height="40" border="0"></a>&nbsp; 
              <a href="user.asp?gn=message"><IMG 
src="images/message01.gif" border=0></a>&nbsp; <A 
href="user.asp?gn=box"><IMG 
src="images/message04.gif" border=0></A>&nbsp; <A 
href="user.asp?gn=write"><IMG 
src="images/message05.gif" 
border=0></A>&nbsp;<img src="images/user4.gif" width="40" height="40"></div></TD>
        </TR>
      </TABLE>
      <TABLE width="98%" border=1 align="center" cellPadding=2 cellSpacing=1 borderColor=#ffffff bgColor=a3e0a3>
        <TR align=middle borderColor=#007db5 bgColor=#007db5> 
          <TD bordercolor="#99CC99" bgcolor="a3e0a3"><b><font color="#FFFFFF">查看信件</font></b></TD>
        </TR>
        <TR bgcolor="#FFFFFF"> 
          <TD class=htd align=middle height=30><div align="left">信件主题： 
              <% =rs3("bt") %>
            </div></TD>
        </TR>
        <TR bgcolor="#FFFFFF"> 
          <TD class=htd align=middle height=30><div align="left">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
              <% =rs3("nr") %>
            </div></TD>
        </TR>
        <TR> 
          <TD class=htd align=middle bgColor=#ededed height=30>此信件是由您于 
            <% =rs3("date") %>
            给&nbsp;<FONT class=blue> 
            <% =rs3("jsr") %>
            </FONT>&nbsp;发送的信件</TD>
        </TR>
        <% else
response.Write""
end if %>
      </TABLE></td>
  </tr>
</table>
<!-- #include file="let.asp"-->