Gunakan komponen EasyMailObject untuk menangani Kode Sumber Surat Exchange di ASP --- Baca Subjek dan Ukuran Surat (Maillist1.asp)
< %@ Language = "vbscript" %>
<%
'*********************************************** *****
'File ini mencantumkan semua email dan mengatur jendela tampilan konten email sebagai jendela kosong
'Penulis: Awayeah
'Email: [email protected]
'*********************************************** *****
%>
<bahasa skrip = vbscript>
parent.frmbottom.location.href = "blank.htm"
sub cmdel_onclick ()
'Hapus email
frmail.submit
akhir sub
</script>
<%
jika sesi ("straccount") = "" atau sesi ("strpassword") = "" lalu
Response.write ("<html> <title> kesalahan, belum masuk lagi </iteme> <body> <p align = center> <br> <br> Anda belum masuk, silakan keluar terlebih dahulu! <Br <br > <br> ")
Response.write ("<a href = 'login.asp' target = '_ top'> <img src = 'http: //www.newap.net/article/asp/example/2005/logout.jpg' border = 0 >/a> </p> </body> </html> ")
Respons.end
akhiri jika
%>
<Html>
<head>
<title> Terima email </iteme>
</head>
<tyle>
<!-
A {Text-Decoration: None}
->
</tyle>
<body bgcolor = "#008080" text = "#000000">
<%
'Tentukan alamat server email
strserver = sesi ("strserver")
'Tentukan akun
Straccount = sesi ("Straccount")
'Tentukan kata sandi
strpassword = sesi ("strpassword")
'Atur berbagai sifat komponen
Set Pop3 = CreateObject ("EasyMail.pop3.5")
Pop3.licensey = "AWA/S19I500R1AX30C0R3100"
POP3.MailServer = Strserver
POP3.Account = Straccount
Pop3.password = strpassword
POP3.PreferredBodyFormat = 1
pop3.timeout = 120
x = pop3.connect
Jika x <> 0 lalu
Response.write "<p align = center> kesalahan koneksi:" + cstr (x) + "<br> <br> Silakan hubungi administrator"
Pop3.disconnect
Respons.end
Akhiri jika
x = pop3.downloadmessages (0)
Jika x <> 0 lalu
Response.write "Kesalahan Unduh:" + CSTR (x) + "<br> <br> Silakan hubungi administrator"
Pop3.disconnect
Respons.end
Akhiri jika%>
<p> <br> </p>
<Form name = "frmail" action = "mail_prc.asp" Method = "Post">
<senter>
<Table CellPacing = "0" CellPadding = "0" BorderColor = "#000080" bgcolor = "#fffff">
<tr> <td colspan = 6 align = "center">
<%
'Pemrosesan pagination
Jika request.QueryString ("currentpage") = "" Lalu
CP = 1
kalau tidak
cp = request.queryString ("currentpage")
akhiri jika
'Dapatkan jumlah total email
m_count = pop3.messages.count
Jika m_count <= 10 lalu
Pagenum = 1
SD = 1
ed = m_count
kalau tidak
pagenum = int (m_count/10) +1
jika clng (cp) <> pagenum maka
LastPage = m_count mod 10
sd = (clng (cp) -1)*10+1
ed = clng (cp)*10
kalau tidak
sd = (clng (cp) -1)*10+1
ed = m_count
akhiri jika
akhiri jika
%>
Anda memiliki <font color = "ff00ff"> <%= pop3.messages.count%> </font> email. </td>
<%sesi ("msgcount") = pop3.messages.count%>
</tr>
<tr>
<td align = "center"> angka </td>
<td align = "center"> dari/balasan </td>
<td align = "center"> tema </td>
<td align = "center"> tanggal </td>
<td align = "center"> ukuran </td>
<td align = "center"> pilih </td>
</tr>
<%untuk i = sd ke ed%>
<tr>
<td align = "center"> <%= i%> </td>
<%
fw = "balasan:"+ganti (pop3.messages.item (i) .subject, space (1), "_")
%>
<td>
<%receiver = pop3.messages.item (i). Dari%>
<%jika pop3.messages.item (i) .fromaddr = "" lalu%>
<a href = "">
<%lain
%>
<a href =#onclick = javascript: window.open ('sendmail1.asp? addr = <%= pop3.messages.item (i) .fromaddr%> & subjek = <%= fw%>', 'sendnew', ' lebar = 600, tinggi = 480, scrollbars = ya ');>
<%berakhir jika%>
<%jika trim (penerima) = "" Lalu
response.write "Anonim </a>"%>
<%else%>
<a href =#onclick = javascript: window.open ('sendmail1.asp? addr = <%= pop3.messages.item (i) .fromaddr%> & subjek = <%= fw%>', 'sendnew', ' lebar = 600, tinggi = 480, scrollbars = ya ');>
<font face = "宋体" size = "2">
<%= Pop3.messages.item (i). Dari%> </font>
<%berakhir jika%>
</td>
<td>
<%msgid = pop3.getMessageId (i)%>
<a href = "showbody1.asp? id = <%= msgid%>" target = "frmbottom">
<font face = "宋体" size = "2">
<%
jika trim (pop3.messages.item (i) .subject) = "" Lalu
Response.write "Tidak ada topik"
kalau tidak
response.write pop3.messages.item (i) .subject
akhiri jika
%> </font>
</a> </td>
<td> <font face = "宋体" size = "2"> <%= cdate (mid (cstr (pop3.messages.item (i) .date), 6,11))%> </font> </t/ td>
<tdwidth = "60"> <font face = "宋体" size = "2"> <%= pop3.messages.item (i) .Size%> </font> </td>
<td> <input type = "centang kotak" name = "c <%= i%>" value = "<%= i%>"> </td>
</tr>
<%Berikutnya
Pop3.disconnect
%>
</boable>
</penter>
<p align = "center"> <input type = "tombol" name = "cmdel" value = "delete"> </p>
</form>
<Div Align = "Center">
<Table CellPacing = "0" CellPadding = "0" BorderColor = "#ff0080" bgcolor = "#fffff">
<tr> <td> halaman </td>
<%untuk i = 1 ke pagenum%>
<td> <a href = "maillist1.asp? currentpage = <%= i%>" target = frmtop> <%= i%> </a> </td>
<%Next%>
</tr> </able> </div>
</body>
</html>