六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網(wǎng)中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

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

發(fā)表時間：2024-01-11 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]讀取郵件主題和大小(maillist1.asp) <%@ LANGUAGE="VBSCRIPT" %> <% '************************************************ '這個文件列出所有郵件，并把郵件內(nèi)...

讀取郵件主題和大小(maillist1.asp)
<%@ LANGUAGE="VBSCRIPT" %>
<%
'************************************************

'這個文件列出所有郵件，并把郵件內(nèi)容顯示窗口置為空白窗口
'作者：awayeah
'郵箱：[email protected]

'************************************************
%>
<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.okasp.com/techinfo/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")
'設(shè)置組件的各種屬性
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>請和管理員聯(lián)系"
POP3.Disconnect
Response.End
End If

x = POP3.DownloadMessages(0)
If x <> 0 Then
Response.Write "下載錯誤: " + CStr(x) +"<br><br>請和管理員聯(lián)系"
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
'得到郵件總數(shù)
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>頁數(shù)</td>
<%for i=1 to pagenum%>
<td><a href="maillist1.asp?currentpage=<%=i%>" target=frmtop> <%=i%> </a></td>
<%next%>
</tr></table></div>

</body>
</html>




主站蜘蛛池模板： 最新狠狠色狠狠色综合 | 亚洲国产欧美日韩 | 四虎永久免费地址在线网站 | 中文线码中文高清播放中 | 一级毛片成人免费看免费不卡 | 欧美一级看片a免费观看 | 日韩亚洲一区二区三区 | 色香蕉网 | 中文字幕乱码一二三四区 | 亚洲国产第一 | 青青青国产在线观看免费网站 | 日本一区二区在线不卡 | 婷婷影院在线综合免费视频 | 欧洲色网站| 亚洲综合网在线观看 | 天堂资源地址在线 | 青娱乐91在线 | 亚洲精品中文字幕区 | 一级做a爱片久久毛片 | 欧美特级午夜一区二区三区 | 午夜欧美 | 下载一级毛片 | 四虎国产精品永久地址49 | 日韩一区二区三区不卡视频 | 欧美又硬又粗又长又大 | 天天干天天天天 | 自拍视频网址 | 依人在线观看 | 日本黄色福利视频 | 天干夜天天夜天干天 | 青青草影院在线观看 | 一级黄色片视频 | 日本一区二区影院 | 日本高清视频在线www色下载 | 欧美综合精品 | 色先锋资源 | 午夜噜噜| 午夜男人网 | 五月婷婷在线观看视频 | 手机看片福利日韩 | 亚洲小视频在线观看 |