<form id="hz9zz"></form>
  • <form id="hz9zz"></form>

      <nobr id="hz9zz"></nobr>

      <form id="hz9zz"></form>

    1. 明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

      在ASP中用EasyMailObject組件處理Exchange郵件源代碼(2)

      [摘要]讀取郵件內容和附件(showbody1.asp)<%@ LANGUAGE="VBSCRIPT" %><%'***********************...
      讀取郵件內容和附件(showbody1.asp)
      <%@ LANGUAGE="VBSCRIPT" %>
      <%
      '************************************************

      '這個文件顯示郵件的內容和附件
      '作者:awayeah
      '郵箱:awayeah@163.net

      '************************************************
      %>

      <html>
      <head>
      <title>讀郵件</title>
      </head>
      <body>
      <%
      SET POP3=session("POP3")
      x = POP3.Connect()

      If x <> 0 Then
      Response.Write "連接錯誤: " + CStr(x)
      POP3.Disconnect
      End If
      y = POP3.DownloadHeaders
      j=pop3.GetMessageNumFromID(request.querystring("id"))
      msg = POP3.DownloadSingleMessage(j)
      'Set Message Object to point to that downloaded message
      Set Message = POP3.Messages(msg)
      '顯示郵件內容
      Response.Write replace(Message.bodytext,chr(13),"<br>")
      %>
      <%
      '如果該郵件有附件,則顯示附件文件名和文件大小
      if message.Attachments.Count>0 then%>
      <P></p>
      <hr>
      <table border=1 align="left" cellspacing="0">
      <tr><td>文件名</td><td>大小</td><tr>
      <%
      For k = 1 To message.Attachments.Count
      Response.Write ("<tr><td>")%>
      <a href=# onClick=javascript:window.open('saveatt.asp?msgid=<%=j%>&attid=<%=k%>','getatt','width=600,height=440,scrollbars=yes');>
      <%=Message.Attachments(k).name%></a></td><td>
      <%Response.Write cstr(Message.Attachments(k).size)
      Response.Write "</td></tr>"
      Next
      %>
      </table>
      <%
      end if
      POP3.Disconnect
      %>
      </body>
      </html>





      日韩精品一区二区三区高清