删除邮件时调用的文件(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)