
   <% 
	data_path="../../" 'ACC连接数据库路径，对SQL无效
	numid="19"
	dir="../err.asp" 
  %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<!--#include file="../../inc/filesystem.asp"-->
<!--#include file="../rolecheck.asp"-->
<html>
<LINK href="../css/style.css" rel=stylesheet type=text/css>
<style type="text/css">
<!--
.STYLE1 {
	color: #FFFFFF;
	font-weight: bold;
}
#result {
	position:absolute; left: 261px; top:109px; width:422px; height:59px; z-index:1;
}
-->
</style>
<style type="text/css">
<!--
#div1{
position:absolute;
visibility:hidden;
filter:alpha(opacity=70);
background-color:#FFFFFF;
}

-->
</style>
<script>
var checkflag="false";
function check(field){
if(checkflag=="false"){
for(i=0;i<field.length;i++){
field[i].checked=true;}
checkflag="true";
return "解除全选"; }
else {
for(i=0;i<field.length;i++) {
field[i].checked=false;}
checkflag="false";
return "选择全部";}}
</script>
<script src="../js/ajax.js"></script>
<script language="JavaScript"> 
    function Launch(page, width, height) { 
        OpenWin = this.open(page, "webstudio", "toolbar=no, menubar=no ,location=no, scrollbars=yes, resizable=yes, width=" + width + ", height=" + height + ", top=" + (screen.height/2 - height/2) + ", left=" + (screen.width/2 - width/2) + "\"");
    } 
</script>
<script>

function aa(bb,vv){

mailsubject=document.myform.mailsubject.value
ms_ifhtm=document.myform.ms_ifhtm.value
gradeid=document.myform.gradeid.value
websen_sjhsshuxin=document.myform.websen_sjhsshuxin.value
blockPage=document.myform.blockPage.value
window.open("zhuangtai.asp?id="+vv+"&email="+bb+"&mailsubject="+mailsubject+"&ms_ifhtm="+ms_ifhtm+"&gradeid="+gradeid+"&websen_sjhsshuxin="+websen_sjhsshuxin+"&blockPage="+blockPage, "a", "height=100, width=400, top=0, left=0, toolbar=no, menubar=no,scrollbars=no, resizable=no, location=no, status=no ")
 }
</SCRIPT> 
<body>
<div id="div1" align="center">
</div>
<div id="result"  style="display:none;">&nbsp;
</div>
<form method="post" action="Bs_Mail_hy.asp" name="myform1">
<tr  bgcolor="#B6C5DC" align="center"  > 
<td  height=25 colspan="2" >模糊查询：登录名:<input  type="text" name="searchname" value="<%=request("searchname")%>" onBlur="this.value=this.value.replace(/\s/g,'');"  maxlength="30" />&nbsp;公司名:<input  type="text" name="scomname" value="<%=request("scomname")%>" maxlength="30"  onblur="this.value=this.value.replace(/\s/g,'');"/>
<%
  searchname=replace_text(request("searchname"))
   scomname=replace_text(request("scomname"))
%>
</select>
&nbsp;<input type="submit" name="searchgo" value="搜索" />
</td>
</tr>
</form>
<table width="100%" border="0" cellspacing="1" cellpadding="0" align=center class="tableBorder" >
<form name="myform"  action="zhuangtai.asp?bianliang=1"  method="post" > 
<%

mailbody=request.form("content")
sql1="select mailbody from websen_worldec_Temp "
Set rs1= Server.CreateObject("ADODB.Recordset") 
rs1.open sql1,conn,1,3
if mailbody<> "" then 
rs1("mailbody")=mailbody
rs1.update
end if
rs1.close
mailsubject=request.form("mailsubject")'标题
ms_ifhtm=request.form("ms_ifhtm")'leixing
frommail1=request.form("frommail1")'youxiang
sql2="select top 1 * from Websen_worldec_config"
Set rs2= Server.CreateObject("ADODB.Recordset") 
rs2.open sql2,conn,1,3
if mailsubject <>""  and ms_ifhtm<>"" then
rs2("EmailTitle")=mailsubject
rs2("Emailinfo")=frommail1
rs2("Emaillei")=ms_ifhtm
rs2.update
end if
rs2.close
set rs2=nothing
set rs1=nothing
id=request("bb")
kk=int(id)
websen_sjhsshuxin=request("websen_sjhsshuxin")
gradeid=request("selects")
session("gradeid")=gradeid

blockPage=request("page")
session.Timeout=45
Contents.RemoveAll()  
sql="select * from Websen_corporation where id<>0 "
if gradeid<>"" then 
sql=sql&" and  gradeid="&gradeid
 end if
 if shen<>"" then 
 sql=sql&"  and flag="&shen
 end if
 if websen_sjhsshuxin<>"" then
 sql=sql&" and websen_sjhsshuxin="&websen_sjhsshuxin
 end if 
 if exd<>"" then 
 sql=sql&"   and Exd="&exd 
 end if
 if tui<>"" then
 sql=sql&"  and Uflag="&tui
 end if
 if searchname<>"" then
  sql=sql&" and [user] like '%"&searchname&"%'"
 end if
 if scomname<>"" then 
 sql=sql&"  and qymc like '%"&scomname&"%' "
 end if
 sql=sql&" order by id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1 
msg_per_page=15 '定义每页显示记录条数
if action=0 then action=1
		
%>
<input type="hidden" value="<%=gradeid%>" name="gradeid"/>
<input type="hidden" value="<%=mailsubject%>"  name="mailsubject"/>
<input type="hidden" value="<%=websen_sjhsshuxin%>" name="websen_sjhsshuxin"/>
<TEXTAREA  name="mailbody"  style="display:none" ><%=mailbody%></TEXTAREA>
<input type="hidden" value="<%=ms_ifhtm%>"  name="ms_ifhtm"/>
<input type="hidden" value="<%=blockPage%>" name="blockPage" />
<input type="hidden" value="<%=selAnnounce%>" name="selAnnounce"/>
<!--#include file="../../inc/headpage.asp"-->
<%
if rs.eof then
response.Write"<tr><td  collspan=2  align=center height=80>暂无数据信息</td></tr> "
else
%>
<tr  bgcolor="#B6C5DC" align="center"  > 
  <td  height=25 ></td>
  <td  height=25 >序号</td>
<td  height=25 >会员登录名称</td>
<td width="14%">企业名称</td>
<td width="11%">注册时间</td>
<td width="17%">邮箱</td>
<td width="10%">邮箱状态</td>
<td width="17%">结果</td>
<td width="12%">操作</td>
</tr>
<tr><td colspan="9"   height="1"   bgcolor="#496C94"></td></tr> 
<%
i=0
countnum=1
do while not rs.eof and rowcount > 0
%>
<tr align="center"  <%if i mod 2=0 then response.Write("bgcolor=#ffffff  onMouseOut=""this.style.backgroundColor='#ffffff'"" onMouseOver=""this.style.backgroundColor='#D7E3F3'""") else response.Write(" bgcolor=#EEF0F2   onMouseOut=""this.style.backgroundColor='#EEF0F2'"" onMouseOver=""this.style.backgroundColor='#D7E3F3'""") end if%>>
<td width="5%"><input type='checkbox'  name='selAnnounce2' value='<%=cstr(rs("id"))%>' /></td>
<td width="4%"  height=30  ><%=countnum%></td>
<td width="10%"  ><a href="useredit.asp?id=<%=rs("id")%>" title="查看用户注册资料信息"><%=rs("user")%></a></td>
<td style="word-break:break-all"><%=rs("qymc")%></td>
<td><%=rs("idate")%></td>
<td  ><%=rs("email")%></td>
<td><%if rs("websen_sjhsshuxin")= 1 then%>
  审核通过
    <%else%>
    <font color="#FF0000">审核未通过</font>
    <%end if%></td>
<td ><img src='../../images/loading.gif' width=20 height=20 style="display:none;">
 <% if  rs("id")=kk then%>邮件发送成功<%else%>
<DIV id="<%=rs("id")%>">&nbsp;暂时未发送</DIV>
<%end if%>
</td>
<td > <input type="button" value="发送邮件"  style="color:green"   onClick='javascript:aa("<%=rs("email")%>","<%=rs("ID")%>");'/></td>
</tr>
 <%
 countnum=countnum+1
 i=i+1
 rowcount=rowcount-1
rs.movenext
loop

  %>

<tr>
<td colspan="10"  align="center"  height="30">     <hr size="1" color="#EEEEEE" noshade="noshade" />
 <input name="button" type=button style="color:#3399FF"  onClick="this.value=check(this.form)" value="选择全部">
  <input type="button" value="过滤未审核邮箱"  style="color:#3399FF"  onClick="window.location.href='Bs_Mail_hy.asp?selects=<%=gradeid%>&websen_sjhsshuxin=1'"/>
 <input  value="群发选种邮箱"  style="color:#3399FF"  type="button" onClick="javascript:return validateUser('selAnnounce2');"/>
 <hr size="1" color="#EEEEEE" noshade="noshade" /></td>
</tr>
<%end if%>
<tr>
<td colspan="10"  align="center" > 

  <%=listPages("Bs_Mail_hy.asp?dd=")%></td>
</tr>
 </form>
</table>
</body>
</html>
<script language="javascript">
var ti = null;
function loading(){
var tmd = 0;
var x1 = document.body.clientWidth;  
var y1 = document.body.clientHeight; 
	with(div1){
		style.width=x1+20;
		style.height=y1;
		style.overflowX="hidden";
		style.overflowY="hidden";
		style.visibility="visible";
	}
	div1.style.left=0;
	div1.style.top=document.body.scrollTop;
	div1.style.filter='Alpha(Opacity=0)';
	document.body.style.overflowX="hidden";
	document.body.style.overflowY="hidden";
	result.style.top=parseInt(document.body.scrollTop)+((document.body.clientHeight-250)/2); 
	result.style.visibility="visible";
	ti = setInterval("hei()",10);
	
}
var x = 0;
function hei(){
	x+=10;
	if(x<81){
		div1.style.filter='Alpha(Opacity='+x+')';
	}
}

</script>
