user_messageck.asp

设计考虑校园电子商务模式

<%
'****************************************************
' 多多校园                      Power by ddtaobao.com
' Email:[e-mail]               OICQ:136465584 
' Web: http://www.ddtaobao.com              作者:多多
' 校园、企业、医院、公司程序定做，系统开发，网站制作!
' Copyright (C) 2007 ddtaobao.com All Rights Reserved
'****************************************************
%><TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0 class=page>
  <TBODY>
    <TR> <td><!--#include file="top.asp"-->
<!--#include file="inc/UserChk.asp"--> 
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td ><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="100%">　</td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td ><TABLE width="98%" border=0 align="center" cellPadding=0 cellSpacing=0>
        <% if request("message")<>"" then
message=HTMLEncode(request("message"))
set rs2=server.createobject("adodb.recordset")
sql2="select * from dd_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="usercenter.asp?gn=message"><IMG 
src="images/message01.gif" border=0></a>&nbsp; <A 
href="usercenter.asp?gn=box"><IMG 
src="images/message04.gif" border=0></A>&nbsp; <A 
href="usercenter.asp?gn=write"><IMG 
src="images/message05.gif" 
border=0></A>&nbsp;<a href="usercenter.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>
      <div align="center">
      <TABLE width="98%" border=1 cellPadding=2 cellSpacing=1 borderColor=#ffffff bgColor=#C0C0C0>
        <TR align=middle borderColor=#007db5 bgColor=#007db5> 
          <TD bordercolor="#FFFFFF" bgcolor="#EFEFEF"><b>查看信件</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=#EFEFEF height=30>此信件是由&nbsp;<FONT class=blue> 
            <a href="L_user.asp?pname=<% =rs2("fbr") %>"><% =rs2("fbr") %></a> 
            </FONT>&nbsp;于 
            <% =rs2("date") %>
            给你发送的信件</TD>
        </TR>
      </TABLE>
      </div>
      <%
else 
response.Write""
end if %>
      <% if request("box")<>"" then %>
      <TABLE width="98%" border=0 align="center" cellPadding=0 cellSpacing=0>
        <% 
box=HTMLEncode(request("box"))
set rs3=server.createobject("adodb.recordset")
sql3="select * from dd_message where id="&box
rs3.open sql3,conn,1,3
%>
        <TR> 
          <TD align=middle height=50><div align="center"> 
              <a href="usercenter.asp?gn=message"><IMG 
src="images/message01.gif" border=0></a>&nbsp; <A 
href="usercenter.asp?gn=box"><IMG 
src="images/message04.gif" border=0></A>&nbsp; <A 
href="usercenter.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>
      <div align="center">
      <TABLE width="98%" border=1 cellPadding=2 cellSpacing=1 borderColor=#ffffff bgColor=#C0C0C0>
        <TR align=middle borderColor=#007db5 bgColor=#007db5> 
          <TD bordercolor="#FFFFFF" bgcolor="#EFEFEF"><b>查看信件</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=#EFEFEF height=30>此信件是由您于 
            <% =rs3("date") %>
            给&nbsp;<FONT class=blue> 
            <% =rs3("jsr") %>
            </FONT>&nbsp;发送的信件</TD>
        </TR>
        <% else
response.Write""
end if %>
      </TABLE></div>

<!--#include file="bottom.asp"-->
</TD>
    </TR>
  </TBODY>
</TABLE>