<!--#include virtual="/incs/config.asp" -->
<!--#include virtual="/incs/web_top.asp"-->
      <SCRIPT language=JavaScript type=text/javascript>
function ifok()
{
if (confirm("请再次确认是否更换域名！"))
document.mail_modi.submit();
}
function chk_edt()
{
if(confirm("请确认是否更改!"))
return true;
else
return false;
}
function chk_del()
{
if(confirm("如果确认，该邮箱内现有信件将全部丢失且不可恢复!"))
return true;
else
return false;
}
  </SCRIPT>
      <%
chk_log_usr()
	mnme=SafeRequest("mnme")
	If mnme="" Then
	call errorpage(-2,"对不起，参数错误！")
	End If
	query="select * from v_emllst  where m_unme='"&session("usrname")&"'  and m_dme ='"&mnme&"'"
	rs.open query,conn,1,1
    if rs.recordcount<>1 then
	rs.close
	conn.close
	call errorpage(-2,"对不起，该邮局不存在或者您无权操作！")
	response.end
	end if
	mailname=trim(rs("m_dme"))
	g_sst=rs("m_sst")
query="select * from memlst where u_nme='"&rs("m_unme")&"'"
rs1.open query,conn,1,1
if not rs1.eof then
u_nme=trim(rs1("u_nme"))
end if
rs1.close

%>
      <%
			    proid=trim(rs("m_prd"))

		%>
      <script language=javascript>
		function expl()
		{
		if (identity.style.display=="none")
		identity.style.display="block";
		else
		identity.style.display="none";
		}
		
		function b_regstt_chg()
		{
		if(confirm("是否确认更改邮箱状态?"))
		return true;
		else
		return false;
		
		}
		</script>
      <table cellspacing=0 cellpadding=0 width="100%" border=0>
        <tbody> 
        <tr> 
          <td colspan=2><img height=3 
            src="/imgs/spacer.gif" width=3></td>
        </tr>
        <tr> 
          <td width=438 
          background=/imgs/bg_inside_pages_link.jpg 
          height=30><img height=11 
            src="/imgs/aword_square.gif" width=11 
            align=absMiddle> <a href="/">首 页</a> <strong>&gt;</strong> <a href="/control/">管理中心</a> 
            <b>&gt;</b> <a href="/control/eml_mng/eml_lst.asp">企业邮局管理</a></td>
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td colspan=2><img height=10 
            src="/imgs/shadow_inside_pages.jpg" 
        width=438></td>
        </tr>
        </tbody> 
      </table>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY> 
        <TR> 
          <TD vAlign=top width=180 bgColor=#f3f3f3> 
            <!--#include virtual="/incs/control_left.asp"-->
            <br>
            <br>
            <br>
            <br>
            <br>
            <br>
            <br>
            <br>
            <br>
          </TD>
          <TD vAlign=top width=10 
          background=/imgs/bg_inside_pages_block.jpg><IMG 
            height=1 src="/imgs/bg_inside_pages_block.jpg" 
            width=10></TD>
          <TD vAlign=top> 
            <table cellspacing=2 cellpadding=0 width="100%" border=0>
              <tbody> 
              <tr> 
                <td  colspan=2 valign="middle"> 
                  <table class=line cellspacing=0 cellpadding=0 width="98%" 
                  border=0 align="center">
                    <tbody> 
                    <tr> 
                      <td valign=bottom width="25%" height=20><font color="#000000" class=ddropshadow><b><span class=enbold><strong>邮局<font color="#000000">列表<a href="index.asp"><font color="#FF0000">（查询）</font></a></font></strong></span></b></font></td>
                      <td valign=bottom noWrap align=right 
                        width="75%"><a href="eml_lst.asp?querytype=8"><font color="#000000">今天新开通</font></a> 
                        <font color="#000000">|</font> <a href="eml_lst.asp?querytype=9"><font color="#000000">本周新开通</font></a> 
                        <font color="#000000">|</font> <a href="eml_lst.asp?querytype=10"><font color="#000000">本周到期</font></a> 
                        <font color="#000000">| </font><a href="eml_lst.asp?querytype=11"><font color="#000000">本月到期</font></a></td>
                    </tr>
                    <tr> 
                      <td align=middle width="100%" colspan=2 height=5></td>
                    </tr>
                    <tr> 
                      <td align=middle width="100%" colspan=2 height=2 bgcolor="#5F5F5F"></td>
                    </tr>
                    </tbody> 
                  </table>
                  <br>
                </td>
              </tr>
              <tr> 
                <td  colspan=2 valign="middle" height="28"> 
                  <table   bordercolor="#5785B2" cellpadding="0" cellspacing="0" id="AutoNumber3" style="border-collapse: collapse" width="98%" align="center">
                    <tr> 
                      <td height="34" bgcolor="#FFFFFF"> 
                        <div align="center"> 
                          <table width="85%" border="0" cellspacing="0" cellpadding="0" align="center">
                            <tr> 
                              <td> 
                                <!--#include file="eml_mnu.asp"-->
                              </td>
                            </tr>
                          </table>
                          <br>
                        </div>
                      </td>
                    </tr>
                    <% if g_sst=1 then %>
                    <tr> 
                      <td valign="top" bgcolor="#FFFFFF" height="50"> 
                        <table align="center" bgcolor="#666666" border="0" cellpadding="4" cellspacing="1" width="100%">
                          <tr align="middle" bgcolor="#8b8b8b"> 
                            <td colspan="6" height="22"> 
                              <table align="center"  border="0" cellpadding="2" cellspacing="0" width="100%">
                                <tr align="middle" > 
                                  <td align="center"> 
                                    <p align="center"><b><font color="#FFFFFF"><a name="m_usr"></a>用户添加</font></b> 
                                  </td>
                                </tr>
                              </table>
                            </td>
                          </tr>
                          <tr align="middle" bgcolor="#FFFFFF"> 
                            <td width="30%" height="22" valign="bottom" bgcolor="#FFFFFF"> 
                              <p align="center">邮箱用户 
                            </td>
                            <td width="20%" height="22" valign="bottom"> 
                              <p align="center">邮箱密码(6-16位) 
                            </td>
                            <td valign="bottom" width="17%"> 
                              <div align="center">邮箱大小</div>
                            </td>
                            <td valign="bottom" align="center" width="17%">备注</td>
                            <td colspan=2 bgcolor="#FFFFFF" valign="bottom"> 
                              <div align="center">添加</div>
                            </td>
                          </tr>
                          <form action="eml_mng.asp" method="post" name=form1>
                            <tr> 
                              <td bgcolor="#FFFFFF" height="20"> 
                                <input name="mailuser"   tabindex=1  style="FONT-SIZE: 9pt ;border: 1px solid #C0C0C0 ; height:16px ;width:60px;">
                                @<%=mailname%> </td>
                              <td bgcolor="#FFFFFF"  height="20"  > 
                                <div align="center"> 
                                  <input name="mailpassword"   tabindex=1 size=20 style="FONT-SIZE: 9pt ;border: 1px solid #C0C0C0 ; height:16px ;width:70px;">
                                  <input name="mailname" type="hidden" value="<%=mailname%>">
                                  <input name="module" type=hidden value="eml_mbx_add" >
                                </div>
                              </td>
                              <td bgcolor="#FFFFFF"  height="20" align="center"  > 
                                <input name="mailmaxsize" style="FONT-SIZE: 9pt ;border: 1px solid #C0C0C0 ; height:16px ;width=50px" tabindex=1 >
                                M </td>
                              <td bgcolor="#FFFFFF"  height="20" align="center"  > 
                                <input name="mailownname" style="FONT-SIZE: 9pt ;border: 1px solid #C0C0C0 ; height:16px;width=100px" tabindex=1>
                              </td>
                              <td height="20" colspan="2" bgcolor="#FFFFFF" align="center"> 
                                <input type=submit value="添加" name=adfadf class=dud_button1>
                              </td>
                            </tr>
                          </form>
                        </table>
                        <br>
                        <table width="100%" bgcolor="#666666" cellspacing="1" cellpadding="0" border="0">
                          <tr align="middle" bgcolor="#FFFFFF"> 
                            <td height="25"  bgcolor="#8b8b8b" align="center" colspan="6"><b><font color="#FFFFFF"><a name="m_usr"></a>用户列表</font></b></td>
                          </tr>
                          <tr align="center" bgcolor="#FFFFFF"> 
                            <td height="25" bgcolor="#FFFFFF" width=30%>邮箱用户</td>
                            <td height="25" bgcolor="#FFFFFF" width=7%>状态</td>
                            <td height="25" bgcolor="#FFFFFF" width=15%>备注</td>
                            <td height="25" bgcolor="#FFFFFF" width=15%>邮箱大小</td>
                            <td height="25" bgcolor="#FFFFFF" width=15%>改变状态</td>
                            <td height="25" bgcolor="#FFFFFF">邮箱管理</td>
                          </tr>
                          <%
rs1.open "select * from mbxlst where b_emldme='"& mnme & "' order by b_usrnme desc",conn,1,1
If not(rs1.eof And rs1.bof) Then
	%>
                          <%

	Do While Not rs1.eof
	%>
                          <tr align="center" bgcolor="#FFFFFF"> 
                            <td height="25" bgcolor="#FFFFFF" align=left>&nbsp;<b><%=trim(rs1("b_usrnme"))%></b>&nbsp;<b><font color="#FF0000">@</font></b>&nbsp;<%=mailname%></td>
                            <td height="25" bgcolor="#FFFFFF"><%= showstatus_usr(rs1("b_regstt"),rs("m_regtpe"))%></td>
                            <td height="25" bgcolor="#FFFFFF"><%=trim(rs1("b_ownnme"))%></td>
                            <td height="25" bgcolor="#FFFFFF"><%=trim(rs1("b_sze"))%>&nbsp;M</td>
                            <form action="eml_mng.asp" method="post" name=form1>
                              <td height="25" bgcolor="#FFFFFF"> 
                                <% if rs1("b_regstt")="1" then
							response.write "<input type=submit name=ifok value='停止' onclick=""javascript:b_regstt_chg();"" class=dud_button1>"
							elseif rs1("b_regstt")="2" then
							response.write "<input type=submit name=ifok value='启用' onclick=""javascript:b_regstt_chg();""  class=dud_button1>"					
							else
							response.write "不可用"
							end if
							
							%>
                                <input name="mailname" type="hidden" value="<%=mailname%>">
                                <input name="mailuser" type="hidden" value="<%=rs1("b_usrnme")%>">
                                <input name="module" type=hidden value="eml_mbx_ctt" >
                              </td>
                            </form>
                            <form action="eml_mng.asp" method="post" name=form1>
                              <td  height="20" bgcolor="#FFFFFF"> 
                                <div align="center"><img src="/imgs/edit.gif" width="23" height="17"  onclick="javascript:location.href='eml_mbx.asp?bnme=<%=rs1("b_usrnme")%>&mailname=<%=mnme%>&mtpe=<%=g_sst%>';" title="管理邮箱" style="cursor:hand;"> 
                                  <input name="mailname" type="hidden" value="<%=mailname%>">
                                  <input name="mailuser" type="hidden" value="<%=rs1("b_usrnme")%>">
                                  <input name="module" type=hidden value="eml_mbx_del" >
                                  <input type=image src="/imgs/del.gif" width="17" height="17" title="删除信箱" name="image"  onclick="javascript:return chk_del();">
                                </div>
                              </td>
                            </form>
                          </tr>
                          <%
	rs1.movenext
	Loop
End If
%>
                        </table>
                      </td>
                    </tr>
                    <% else %>
                    <tr> 
                      <td valign="top" bgcolor="#FFFFFF" height="50"> 
                        <table align="center" bgcolor="#666666" border="0" cellpadding="4" cellspacing="1" width="100%">
                          <tr align="middle" bgcolor="#8b8b8b"> 
                            <td colspan="6" height="22"> 
                              <table align="center"  border="0" cellpadding="2" cellspacing="0" width="100%">
                                <tr align="middle" > 
                                  <td align="center"> 
                                    <p align="center"><b><font color="#FFFFFF"><a name="m_usr"></a>用户添加</font></b> 
                                  </td>
                                </tr>
                              </table>
                            </td>
                          </tr>
                          <tr align="middle" bgcolor="#FFFFFF"> 
                            <td width="30%" height="22" valign="bottom" bgcolor="#FFFFFF"> 
                              <p align="center">邮箱用户 
                            </td>
                            <td width="20%" height="22" valign="bottom"> 
                              <p align="center">邮箱密码(6-16位) 
                            </td>
                            <td valign="bottom" width="17%"> 
                              <div align="center">邮箱大小</div>
                            </td>
                            <td valign="bottom" align="center" width="17%">备注</td>
                            <td colspan=2 bgcolor="#FFFFFF" valign="bottom"> 
                              <div align="center">添加</div>
                            </td>
                          </tr>
                          <form action="eml_mng.asp" method="post" name=form1>
                            <tr> 
                              <td bgcolor="#FFFFFF" height="20"> 
                                <input name="mailuser"   tabindex=1  style="FONT-SIZE: 9pt ;border: 1px solid #C0C0C0 ; height:16px ;width:60px;">
                                @<%=mailname%> </td>
                              <td bgcolor="#FFFFFF"  height="20"  > 
                                <div align="center"> 
                                  <input name="mailpassword"   tabindex=1 size=20 style="FONT-SIZE: 9pt ;border: 1px solid #C0C0C0 ; height:16px ;width:70px;">
                                  <input name="mailname" type="hidden" value="<%=mailname%>">
                                  <input name="module" type=hidden value="eml_mbx_add" >
                                </div>
                              </td>
                              <td bgcolor="#FFFFFF"  height="20" align="center"  > 
                                <input name="mailmaxsize" style="FONT-SIZE: 9pt ;border: 1px solid #C0C0C0 ; height:16px ;width=50px" tabindex=1 >
                                M </td>
                              <td bgcolor="#FFFFFF"  height="20" align="center"  > 
                                <input name="mailownname" style="FONT-SIZE: 9pt ;border: 1px solid #C0C0C0 ; height:16px;width=100px" tabindex=1>
                              </td>
                              <td height="20" colspan="2" bgcolor="#FFFFFF" align="center"> 
                                <input type=submit value="添加" name=adfadf class=dud_button1>
                              </td>
                            </tr>
                          </form>
                        </table>
                        <br>
                        <table width="100%" bgcolor="#666666" cellspacing="1" cellpadding="0" border="0">
                          <tr align="middle" bgcolor="#FFFFFF"> 
                            <td height="25"  bgcolor="#8b8b8b" align="center" colspan="6"><b><font color="#FFFFFF"><a name="m_usr"></a>用户列表</font></b></td>
                          </tr>
                          <tr align="center" bgcolor="#FFFFFF"> 
                            <td height="25" bgcolor="#FFFFFF" width=30%>邮箱用户</td>
                            <td height="25" bgcolor="#FFFFFF" width=7%>状态</td>
                            <td height="25" bgcolor="#FFFFFF" width=15%>备注</td>
                            <td height="25" bgcolor="#FFFFFF" width=15%>邮箱大小</td>
                            <td height="25" bgcolor="#FFFFFF" width=15%>改变状态</td>
                            <td height="25" bgcolor="#FFFFFF">邮箱管理</td>
                          </tr>
                          <%
substrContent = "entryclass:eml_mng"&Vend
substrContent =substrContent& "entrytype:eml_mbx_lst"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "mailname:" & mailname & Vend
   substrContent = substrContent & "." & Vend
   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
If left5="10000" Then
	%>
                          <%
	doresult=right(doresult,len(doresult)-5)		  
usrstr=split(doresult,"|")
	for i=0 to ubound(usrstr)
	if instr(usrstr(i),";")>0 then
	usrstr2=lcase(usrstr(i))
	usrdtl=split(usrstr2,";")
	if usrdtl(8)=1 then
	ctreml=usrdtl(0)
	end if
	%>
                          <tr align="center" bgcolor="#FFFFFF"> 
                            <td height="25" bgcolor="#FFFFFF" align=left>&nbsp;<b><%=usrdtl(0)%></b>&nbsp;<b><font color="#FF0000">@</font></b>&nbsp;<%=mailname%></td>
                            <td height="25" bgcolor="#FFFFFF"><%= showstatus_usr_wem(usrdtl(2),rs("m_regtpe"))%></td>
                            <td height="25" bgcolor="#FFFFFF"><%=usrdtl(3)%></td>
                            <td height="25" bgcolor="#FFFFFF"><%=clng(usrdtl(1))%>&nbsp;M</td>
                            <form action="eml_mng.asp" method="post" name=form1>
                              <td height="25" bgcolor="#FFFFFF"> 
                                <%
					 if usrdtl(2)="false"  then
							response.write "<input type=submit name=ifok value='停止' onclick=""javascript:b_regstt_chg();"" class=btxx>"
							elseif usrdtl(2)="true" then
							response.write "<input type=submit name=ifok value='启用' onclick=""javascript:b_regstt_chg();""  class=btxx>"					
							else
							response.write "不可用"
							end if
							
							%>
                                <input name="mailname" type="hidden" value="<%=mailname%>">
                                <input name="mailuser" type="hidden" value="<%=usrdtl(0)%>">
                                <input name="module" type=hidden value="eml_mbx_ctt" >
                              </td>
                            </form>
                            <form action="eml_mng.asp" method="post" name=form1>
                              <td  height="20" bgcolor="#FFFFFF"> 
                                <div align="center"><img src="/imgs/edit.gif" width="23" height="17"  onclick="javascript:location.href='eml_mbx.asp?mtpe=<%=g_sst%>&mailname=<%=mailname%>&bnme=<%=usrdtl(0)%>';" title="管理邮箱" style="cursor:hand;"> 
                                  <input name="mailname" type="hidden" value="<%=mailname%>">
                                  <input name="mailuser" type="hidden" value="<%=usrdtl(0)%>">
                                  <input name="module" type=hidden value="eml_mbx_del" >
                                  <input type=image src="/imgs/del.gif" width="17" height="17" title="删除信箱" name="image"  onclick="javascript:return chk_del();">
                                </div>
                              </td>
                            </form>
                          </tr>
                          <%
						  end if
next
End If
%>
                        </table>
                        <br>
                        <table width="100%" bgcolor="#666666" cellspacing="1" cellpadding="0" border="0">
                          <tr bgcolor="#FFFFFF"> 
                            <td height="25"  bgcolor="#8b8b8b" align="center"><b><font color="#FFFFFF"><a name="m_usr"></a>管理邮箱</font></b></td>
                          </tr>
                          <tr bgcolor="#FFFFFF"> 
                            <td height="25" bgcolor="#FFFFFF" style="line-height:150%">&nbsp;&nbsp;注：登录管理邮箱可以设置相关邮局操作，以及开通和管理其它邮箱。<br>
                              &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;当前管理邮箱为：<b> 
                              <%if ctreml <>"" then
				response.write ctreml&"@"&mailname
				else
				response.write "无"
				end if%>
                              </b></td>
                          </tr>
    			  <form action=eml_mng.asp method=post>
                      <tr bgcolor="#FFFFFF"> 
                              <td height="35" bgcolor="#FFFFFF" align=center>
<select name="mailuser">
				<option value="">无</option>
              <%
	for i=0 to ubound(usrstr)
	if instr(usrstr(i),";")>0 then
	usrstr2=lcase(usrstr(i))
	usrdtl=split(usrstr2,";")
	if  ctreml=usrdtl(0) then
            response.write "<option  selected value='"&usrdtl(0)&"'>"&usrdtl(0)&"@"&mailname&"</option>"
			else
            response.write "<option value='"&usrdtl(0)&"'>"&usrdtl(0)&"@"&mailname&"</option>"
			end if
end if
	next
%>
				</select>
                  <input type=submit value="设  定" name=adfadf2 class=btxx>
                       <input name="mailname" type="hidden" value="<%=mailname%>">
                      <input name="module" type="hidden" value="eml_ctr_wem">
               </td>
                        </tr>
						</form>
                         
                        </table>
                      </td>
                    </tr>
                    <% end if %>
                    <tr> 
                      <td height="175" valign="top" bgcolor="#FFFFFF"> <br>
                      </td>
                    </tr>
                    <tr> 
                      <td height="20" valign="top" bgcolor="#FFFFFF"> <br>

                        <%
Function showstatus_usr(byval regstt,byval regtpe)
regtpe_str=right("000"&cstr(regtpe),2)
regstt_str=right("000"&cstr(regstt),2)
gifstr=regtpe_str&regstt_str&".gif"
if regstt="false" then
thetitle="暂停中"
else
thetitle="运行中"
end if

showstatus_usr="<img src=/icons/"&gifstr&" title='"&thetitle&"'>"   

End Function
%>
                        <%
Function showstatus_usr_wem(byval regstt,byval regtpe)
if regstt="false" then
regstt=1
thetitle="暂停中"
else
regstt=2
thetitle="运行中"
end if
regtpe_str=right("000"&cstr(regtpe),2)
regstt_str=right("000"&cstr(regstt),2)
gifstr=regtpe_str&regstt_str&".gif"
showstatus_usr_wem="<img src=/icons/"&gifstr&" title='"&thetitle&"'>"   

End Function
%>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
              </tbody> 
            </table>
          </TD>
        </TR>
        </TBODY> 
      </TABLE>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY> 
        <TR> 
          <TD bgColor=#cccccc><IMG height=1 
            src="/imgs/spacer.gif" 
      width=1></TD>
        </TR>
        </TBODY> 
      </TABLE>
      <!--#include virtual="/incs/web_bottom.asp"-->




