user_message.asp

本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流

<% 
if session("user_id")="" then
response.Redirect"user_login.asp"
end if
%> 
<% 
set rs=server.createobject("adodb.recordset")
sql="select * from message where jsr='"&session("user_name")&"' order by id desc"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
%>
<TABLE width="98%" border=0 cellPadding=2 cellSpacing=1 bgColor=#C0C0C0>
  <TR align=middle borderColor=#007db5> 
    <TD width="6%" bgcolor="#EFEFEF"><FONT class=end><B>已读</B></FONT></TD>
    <TD width="20%" bgcolor="#EFEFEF"><FONT class=end><B>发信人</B></FONT></TD>
    <TD width="38%" bgcolor="#EFEFEF"><FONT class=end><B>短信主题</B></FONT></TD>
    <TD width="20%" bgcolor="#EFEFEF"><FONT class=end><B>发送日期</B></FONT></TD>
    <TD width="16%" bgcolor="#EFEFEF"><FONT class=end><B>短信操作</B></FONT></TD>
  </TR>
  <TR> 
    <TD class=htd align=middle bgColor=#FFFFFF colSpan=5 height=30>共<FONT class=red>0</FONT>条短信<FONT class=gray>（为了节省空间，请及时删除无用信息）</FONT> 
    </TD>
  </TR>
</TABLE>
<% else %>
<TABLE cellSpacing=1 cellPadding=2 width="98%" bgColor=#C0C0C0 border=0>
  <TR align=middle borderColor=#007db5 bgColor=#007db5> 
    <TD width="6%" bgcolor="#EFEFEF"><FONT class=end><B>已读</B></FONT></TD>
    <TD width="20%" bgcolor="#EFEFEF"><FONT class=end><B>发信人</B></FONT></TD>
    <TD width="39%" bgcolor="#EFEFEF"><FONT class=end><B>短信主题</B></FONT></TD>
    <TD width="23%" bgcolor="#EFEFEF"><FONT class=end><B>发送日期</B></FONT></TD>
    <TD width="12%" bgcolor="#EFEFEF"><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("fbr") %> 的详细资料" href="L_user.asp?pname=<% =rs("fbr") %>"><% =rs("fbr") %></a>
    </TD>
    <TD align=left> <div align="center"><A href="user_messageCK.asp?message=<% =rs("id") %>"> 
        <% =rs("bt") %>
        </A></div></TD>
    <TD class=timtd> 
      <% =rs("date") %>
    </TD>
    <TD><a href="?del=<% =rs("id") %>"><img src="images/message06.gif" alt="删除此信件" width="18" height="18" border="0"></a></TD>
  </TR>
  <% rs.movenext
	   wend
		end if 
		%>
  <TR> 
    <% set tjj=conn.execute("Select count(*) as tjj1 From message where jsr='"&session("user_name")&"'") %>
    <TD class=htd align=middle bgColor=#EFEFEF colSpan=5 height=30>共<FONT class=red> 
      <% =tjj("tjj1") %>
      </FONT>条短信<FONT class=gray>（为了节省空间，请及时删除无用信息）</FONT> </TD>
  </TR>
</TABLE>