uviewmail.html

关于利用DELPHI来进行企业级方案解决的著作的附书源码

<!-- #include file="Top.html" -->


<%
  //显示服务器端脚本错误信息
  errors = new Enumerator(EmailAdapter.Errors)
  if (!errors.atEnd())
   Response.Write('<p>The following error(s) happened:');
  for (; !errors.atEnd(); errors.moveNext())
    Response.Write("<li>" + errors.item().Message)

  // 调用EmailAdapter脚本对象
  // 显示邮件数量
  emails = new Enumerator(EmailAdapter.Records);
  if (EmailAdapter.MessageCount.Value > 0)
  {
    var i = 0;
%>
<p>共有 <%=EmailAdapter.MessageCount.DisplayText%> 封邮件<br>

<center>
<table width="90%">
<tr>
  <td bgcolor="#DCDCDC"><font
    face="Arial, Helvetica" size="2"><b>Id</b></font></td>
  <td bgcolor="#DCDCDC"><font
    face="Arial, Helvetica" size="2"><b>标题</b></font></td>
  <td bgcolor="#DCDCDC"><font
    face="Arial, Helvetica" size="2"><b>日期</b></font></td>
  <td bgcolor="#DCDCDC"><font
    face="Arial, Helvetica" size="2"><b>大小</b></font></td>
</tr>

<%
    for (;!emails.atEnd(); emails.moveNext())
    {
      Response.Write('<tr>');
      var color; // Color every other row
      if (i % 2 == 0)
        color = 'bgcolor="#DCDCDC"';
      else
        color = '';

        
      Response.Write('<td ' + color + '>' +
        EmailAdapter.MessageId.DisplayText + '</td>\n');
      // 在邮件主题栏创建超链到阅读邮件页面（EmailMessageModule）
      Response.Write('<td ' + color + '><b>主题:</b> ' +
        '<a href="' + EmailAdapter.GetEmail.AsHREF + '">' +
        EmailAdapter.MessageSubject.DisplayText + '</a><br>');

      Response.Write(
        '<b>来自:</b> ' + EmailAdapter.MessageFromName.DisplayText +
        ' &lt;<a href="mailto:' +
        EmailAdapter.MessageFromEmail.DisplayText +
        '">' + EmailAdapter.MessageFromEmail.DisplayText + '</a>&gt;' +
        '</td>\n');
      Response.Write('<td ' + color + '>' +
        EmailAdapter.MessageDate.DisplayText + '</td>\n');
      Response.Write('<td ' + color + '>' +
     EmailAdapter.MessageSize.DisplayText + '</td>\n');

      Response.Write('</tr>');
      i++;
    }

%>
</table>
</center>
<%
  }
  else
    Response.Write('<P>现在没有你的邮件<br>');
%>

<!-- #include file="Bottom.html" -->