成人免费无遮挡无码视频,国产无遮挡18禁网站免费,免费无码又爽又刺激软件下载

<nav id="ygnmy"></nav>
<form id="ygnmy"></form>

  • 首頁 > 開發 > Asp > 正文

    用EasyMailObject組件處理Exchange郵件源代碼(1)

    2018-10-16 21:07:03
    字體:
    來源:轉載
    供稿:網友
    在ASP中用EasyMailObject組件處理Exchange郵件源代碼---讀取郵件主題和大小(maillist1.asp)


    <%@ LANGUAGE="VBscript" %>
    <%
    '************************************************

    '這個文件列出所有郵件,并把郵件內容顯示窗口置為空白窗口
    '作者:awayeah
    '郵箱:awayeah@163.net

    '************************************************
    %>
    <script language=vbscript>
    parent.frmbottom.location.href="blank.htm"
    sub cmdel_onClick()
    '刪除郵件
    frmail.submit
    end sub
    </script>
    <%
    if session("straccount")="" or session("strpassword")="" then
    Response.write("<html><title>錯誤,尚未登錄</title><body><p align=center><br><br>你尚未登錄,請先退出登錄!<br><br>")
    Response.Write ("<a href='login.asp' target='_top'><img src='http://www.newasp.net/Article/asp/example/2005/logout.jpg' border=0></a></p></body></html>")
    Response.End
    end if
    %>
    <html>
    <head>
    <title>收郵件</title>
    </head>
    <STYLE>
    <!--
    A{text-decoration:none}
    -->
    </STYLE>
    <body bgcolor="#008080" text="#000000">
    <%
    '定義郵件服務器地址
    strserver=session("strserver")
    '定義帳號
    strAccount=session("straccount")
    '定義密碼
    strPassword=session("strpassword")
    '設置組件的各種屬性
      Set POP3 = CreateObject("EasyMail.POP3.5")
       POP3.LicenseKey = "awa/S19I500R1AX30C0R3100"
       POP3.MailServer = strServer
       POP3.Account = strAccount
       POP3.Password = strPassword
       pop3.PreferredBodyFormat=1
       pop3.TimeOut=120

       x = POP3.Connect
       If x <> 0 Then
          Response.Write "<p align=center>連接錯誤: " + CStr(x) + "<br><br>請和管理員聯系"
          POP3.Disconnect
          Response.End
       End If

       x = POP3.DownloadMessages(0)
       If x <> 0 Then
          Response.Write "下載錯誤: " + CStr(x) +"<br><br>請和管理員聯系"
          POP3.Disconnect
          Response.End
       End If%>
    <p><br></p>
    <form name="frmail" action="mail_prc.asp" method="POST">
    <center>
    <table border="1" width="580" cellspacing="0" cellpadding="0" bordercolor="#000080" bgcolor="#FFFFFF">
    <tr><td colspan=6 align="center">
    <%
    '分頁處理
    if Request.QueryString("currentpage")="" then
    cp=1
    else
    cp=Request.QueryString("currentpage")
    end if
    '得到郵件總數
    m_count=POP3.Messages.Count
    if m_count<=10 then
    pagenum=1
    sd=1
    ed=m_count
    else
    pagenum=int(m_count/10)+1
    if clng(cp)<>pagenum then
    lastpage=m_count mod 10
    sd=(clng(cp)-1)*10+1
    ed=clng(cp)*10
    else
    sd=(clng(cp)-1)*10+1
    ed=m_count
    end if
    end if
    %>
    你有<font color="ff00ff"><%=POP3.Messages.Count%></font>封郵件。</td>
    <%session("msgcount")=POP3.Messages.Count%>
    </tr>
    <tr>
    <td align="center" width="20">號</td>
    <td align="center" width="120">來自/回復</td>
    <td align="center" width="270">主題</td>
    <td align="center" width="90">日期</td>
    <td align="center" width="60">大小</td>
    <td align="center" width="20">選擇</td>
    </tr>
        <%for i= sd to ed%>

    <tr>
    <td align="center" width="20"><%=i%></td>
    <%
    fw="回復:"+replace(POP3.messages.item(i).subject,space(1),"_")
    %>
    <td width="100">
    <%receiver=POP3.Messages.item(i).from%>
    <%if POP3.Messages.item(i).fromaddr="" then%>
    <a href="">
    <%else
    %>
    <a href=#  onClick=javascript:window.open('sendmail1.asp?addr=<%=pop3.messages.item(i).fromaddr%>&subject=<%=fw%>','sendnew','width=600,height=480,scrollbars=yes');>
    <%end if%>
    <%if trim(receiver)="" then
    response.write "匿 名</a>"%>
    <%else%>
    <a href=#  onClick=javascript:window.open('sendmail1.asp?addr=<%=pop3.messages.item(i).fromaddr%>&subject=<%=fw%>','sendnew','width=600,height=480,scrollbars=yes');>
    <font face="宋體" size="2">
    <%=POP3.Messages.item(i).From%></font>
    <%end if%>
    </td>
    <td width="270">

    <%msgid=POP3.GetMessageID(i)%>
    <a href="showbody1.asp?id=<%=msgid%>" target="frmbottom">
    <font face="宋體" size="2">
    <%
    if trim(POP3.messages.item(i).Subject)="" then
    response.write "無主題"
    else
    response.write POP3.messages.item(i).Subject
    end if
    %></font>
    </a></td>
    <td width="90"><font face="宋體" size="2"><%=cdate(mid(cstr(POP3.messages.item(i).date),6,11))%></font></td>

    <td  width="60"><font face="宋體" size="2"><%=POP3.messages.item(i).size%></font></td>
    <td><input type="checkbox" name="c<%=i%>" value="<%=i%>"></td>
    </tr>
    <%next
       POP3.Disconnect

    %>
    </table>
    </center>
    <p align="center"><input type="button" name="cmdel" value="刪除"></p>
    </form>
    <div align="center">
    <table border="1" cellspacing="0" cellpadding="0" bordercolor="#ff0080" bgcolor="#FFFFFF">
    <tr><td>頁數</td>
    <%for i=1 to pagenum%>
    <td><a href="maillist1.asp?currentpage=<%=i%>" target=frmtop> <%=i%> </a></td>
    <%next%>
    </tr></table></div>

    </body>
    </html>

    發表評論 共有條評論
    用戶名: 密碼:
    驗證碼: 匿名發表

    圖片精選

    成人免费无遮挡无码视频,国产无遮挡18禁网站免费,免费无码又爽又刺激软件下载