messages.asp

动感系统XP Access版,服务器需要安装Jmail 组件 配置SendMessages.asp 最后部分的参数

<META http-equiv=Content-Type content="text/html; charset=gb2312">
<title>网站公告</title>
<link href="style_article.css" rel="stylesheet" type="text/css"> 
<!-- #include file="conn.asp" -->
<!--#include file="inc/CHAR.asp"-->
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="0">
  <tr> 
    <td bgcolor="#8BCE00"> <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#333333">
        <tr> 
          <td align="center" bgcolor="#FFFFFF">
<% Set Rs=server.createobject("adodb.recordset")
sql="select * from Messages where ID="&Trim(Request.QueryString("ID"))
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
	Response.Write("没有记录")
else
%>		  
            <table width="100%" border="0" cellspacing="1" cellpadding="5">
              <tr> 
                <td align="center" bgcolor="#F5F5F5"><%= rs("Title") %></td>
              </tr>
              <tr> 
                <td>
                  <% Response.Write UBBCode(rs("Content")) %>
                </td>
              </tr>
              <tr>
                <td align="right"><%= rs("DateTime") %></td>
              </tr>
            </table>
<% end if
Set Rs=nothing
CloseDatabase %>
			 </td>
        </tr>
      </table></td>
  </tr>
</table>