 删除邮件时调用的文档(mail_prc.asp) <%@ Language=VBScript %> <% ’************************************* ’这个文档是删除邮件时调用的 ’作者：awayeah ’邮箱：awayeah@163.net ’************************************* dim cc,cc1,sep,dd ’取得邮件总数 msgcount = session("msgcount") sep="," for i=1 to msgcount dd="c"+cstr(i) msgid=cstr(Request.Form (dd)) if msgid="" then cc1=cc1+msgid else cc1=cc1+msgid+sep end if next if len(cc1)=0 then Response.Redirect "maillist1.asp" end if cc1=left(cc1,len(cc1)-1) dim arr arr=split(cc1,",") Set POP3 = CreateObject("EasyMail.POP3.5") pop3.account=session("straccount") pop3.password=session("strpassword") POP3.MailServer = "192.9.200.89" POP3.LicenseKey = "awa/S19I500R1AX30C0R3100" x = POP3.Connect() for i=0 to ubound(arr) arr(i)=clng(arr(i)) y = POP3.DownloadHeaders ’删除邮件 x = POP3.DeleteSingleMessage(arr(i)) If x <> 0 Then ’ Response.Write "
POP3.Disconnect Response.End Else ’Response.Write "Message deleted successfully." ’Response.Write "" ’POP3.Disconnect End If next POP3.Disconnect Response.Redirect "maillist1.asp" %> |
喜欢本文，那就收藏到： |
.text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://my.poco.cn/fav/storeIt.php?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t)+'&img=http://www.h-strong.com/blog/logo.gif','keyit','scrollbars=no,width=475,height=575,status=no,resizable=yes'));keyit.focus(); "添加到POCO网摘"){kind=logo}
Rss Feed
