<%Response.Buffer=True
Response.CacheControl="no-cache"   
Response.Expires=0%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>导入发送的邮件</title>
</head>

<body>
<!--#include file="../../config.asp"-->
<!--#include file="../../manage/checkuserflag.asp"-->
<%call CheckUserFlag("22")%>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p align="center">正在导出数据……</p>
<%
s_id=request("s_id")
'openDb DataPathFile
email_string=request.form("productid")
email_str="email_s" & s_id
email_string_old=request.cookies(email_str)
email_string_len=len(email_string)
email_string_new=""
if email_string_old<>"" and email_string_len>5 then
	email_string_new=email_string_old & ", " & email_string
elseif email_string_len>5 then
	email_string_new=email_string
end if
if email_string_new<>"" then
	response.cookies(email_str)=email_string_new
end if
'response.write request.cookies("email_s")
'response.end
'CloseDB
return_page

sub return_page()%>
    <form action="email_list_load.asp" method=post name="frm_back">
    <input type="hidden" name="s_id" value=<%=s_id%>>
    <input type="hidden" name="me_page" value=<%=request.Cookies("back_page")%>>
    <input type="hidden" name="keyword" value=<%=request.Cookies("back_keyword")%>>
    <input type="hidden" name="dep" value=<%=request.Cookies("back_dep")%>>
    </form>
    <script language="javascript">
         //alert("环境选项设置保存完成！");
		 document.frm_back.submit(); 
    </script>
<%end sub%>

</body>
</html>