user_messagebox.asp

功能的增加及完善 1.完善了上次不能读写房源编号的错误； 2.增加了不是会员不能查看房主的相系方法的功能； 3.增加了不是会员不能发布的功能； 4.完善了会员中心信息等功能； 5.新增了一个

<% 
if session("uid")="" then
response.Redirect"error.asp"
end if

set rs=server.createobject("adodb.recordset")
sql="select * from message where fbr='"&session("uid")&"' order by id desc"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
%> 
<table bordercolor=#ffffff cellspacing=1 cellpadding=2 width="98%" bgcolor=#99CC99 border=1>
  <tr align=middle bordercolor=#007db5 bgcolor=#007db5> 
    <td width="6%" bordercolor="#99CC99" bgcolor="a3e0a3"><font class=end><b>已读</b></font></td>
    <td width="20%" bordercolor="ff9900" bgcolor="a3e0a3"><font class=end><b>接收人</b></font></td>
    <td width="38%" bordercolor="ff9900" bgcolor="a3e0a3"><font class=end><b>短信主题</b></font></td>
    <td width="20%" bordercolor="ff9900" bgcolor="a3e0a3"><font class=end><b>发送日期</b></font></td>
    <td width="16%" bordercolor="ff9900" bgcolor="a3e0a3"><font class=end><b>短信</b></font><font class=end><b>操作</b></font></td>
  </tr>
  <tr> 
    <td class=htd align=middle bgcolor=#ededed colspan=5 height=30>共<font class=red>0</font>条短信<font class=gray>（为了节省空间，请及时删除无用信息）</font> 
    </td>
  </tr>
</table>
<% else %>
<TABLE borderColor=#ffffff cellSpacing=1 cellPadding=2 width="98%" bgColor=#99CC99 border=1>
  <TR align=middle borderColor=#007db5 bgColor=#007db5> 
    <TD width="6%" bordercolor="ff9900" bgcolor="a3e0a3"><FONT class=end><B>已读</B></FONT></TD>
    <TD width="20%" bordercolor="ff9900" bgcolor="a3e0a3"><FONT class=end><B>接收人</B></FONT></TD>
    <TD width="39%" bordercolor="ff9900" bgcolor="a3e0a3"><FONT class=end><B>短信主题</B></FONT></TD>
    <TD width="23%" bordercolor="ff9900" bgcolor="a3e0a3"><FONT class=end><B>发送日期</B></FONT></TD>
    <TD width="12%" bordercolor="ff9900" bgcolor="a3e0a3"><FONT class=end><B>短信</B></FONT><FONT class=end><B>操作</B></FONT></TD>
  </TR>
  <% 
while not rs.eof
%>
  <TR align=middle borderColor=#ffffff bgColor=#ffffff> 
    <TD> 
      <% if rs("ok")="0" then %>
      <img src="images/message03.gif" alt="对方已读此信件" width="21" height="14"> 
      <% else %>
      <img src="images/message02.gif" alt="对方未读此信件" width="21" height="14"> 
      <% end if %>
    </TD>
    <TD> 
      <a title="点击查看 <% =rs("jsr") %> 的详细资料" href="L_user.asp?pname=<% =rs("jsr") %>"><% =rs("jsr") %></a>
    </TD>
    <TD align=left> <div align="center">
        <% =rs("bt") %>
        </div></TD>
    <TD class=timtd> 
      <% =rs("date") %>
    </TD>
    <TD><a href="user_messageCK.asp?box=<% =rs("id") %>"><img src="images/message07.gif" width="12" height="13" border="0"></a></TD>
  </TR>
  <% rs.movenext
	   wend
		end if 
		%>
  <TR> 
    <% set tjj=conn.execute("Select count(*) as tjj1 From message where fbr='"&session("uid")&"'") %>
    <TD class=htd align=middle bgColor=#ededed colSpan=5 height=30>共<FONT class=red> 
      <% =tjj("tjj1") %>
      </FONT>条短信<FONT class=gray>（为了节省空间，请及时删除无用信息）</FONT> </TD>
  </TR>
</TABLE>