📄 showcondomain.asp
字号:
<!--#include file="passinc.asp" -->
<%
if isadmin() = false then
response.redirect "noadmin.asp"
end if
%>
<%
dim ei
set ei = server.createobject("easymail.domain")
ei.Load
dim mam
set mam = server.createobject("easymail.AdminManager")
mam.Load
'-----------------------------------------
dim eu
set eu = Application("em")
dim selstr
selstr = "<option value=''> [Empty] </option>"
i = 0
allnum = eu.GetUsersCount
do while i < allnum
eu.GetUserByIndex i, name, domain, comment
selstr = selstr & "<option value=" & Chr(92) & """" & server.htmlencode(name) & Chr(92) & """>" & server.htmlencode(name) & "</option>"
name = NULL
domain = NULL
comment = NULL
i = i + 1
loop
selstr = selstr & "</select>"
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<SCRIPT LANGUAGE=javascript>
<!--
function window_onload() {
<%
i = 0
allnum = ei.getcount
do while i < allnum
domainname = ei.GetDomain(i)
dmanager = ""
ei.GetControlMsg domainname, isshow, maxuser, dmanager
response.write "f1.username" & i & ".value = """ & server.htmlencode(dmanager) & """;" & Chr(13)
domainname = NULL
isshow = NULL
maxuser = NULL
dmanager = NULL
i = i + 1
loop
%>
}
function mycancel() {
location.href="right.asp?<%=getGRSN() %>";
}
function writeusers(sindex) {
document.write("<select name=\"username" + sindex + "\" class=\"drpdwn\"><%=selstr %>");
}
//-->
</SCRIPT>
<BODY LANGUAGE=javascript onload="return window_onload()">
<br>
<FORM ACTION="savecondomain.asp" METHOD="POST" NAME="f1">
<table width="97%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF">
<tr>
<td colspan="6" height="10" width="50%" bgcolor="#ffffff"><table><tr bgcolor="#dbeaf5"><td nowrap style="border-top:1px #8CA5B5 solid; border-left:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">
<input type="checkbox" name="Enable_DAdminAllotSize" value="checkbox" <% if mam.Enable_DAdminAllotSize = true then response.write "checked"%>>Allow domain administrator to allocate space
</td></tr></table></td>
<td align="right" bgcolor="#ffffff"><br>
<input type="submit" value=" Save " name="submit" class="Bsbttn">
<input type="button" value="Cancel" onClick="javascript:mycancel()" class="Bsbttn"><br>
</td>
</tr>
<tr bgcolor="#dbeaf5">
<td colspan="7" height="28" style="border-bottom:1px #8CA5B5 solid; border-top:1px #8CA5B5 solid; border-left:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid;">
<div align="center"><font class="s" color="#104A7B"><b>Domain Name Control</b></font></div>
</td>
</tr>
<tr bgcolor="#dbeaf5">
<td width="8%" nowrap align="center" height="25" style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid;">Display</td>
<td width="38%" align="center" style="border-bottom:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid;">Domain</td>
<td width="11%" align="center" style="border-bottom:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid;">Existing Users</td>
<td width="11%" align="center" style="border-bottom:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid;">Maximum Users</td>
<td width="5%" align="center" style="border-bottom:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid;">Maximum space(K)</td>
<td width="5%" align="center" style="border-bottom:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid;">Allocated space(K)</td>
<td width="22%" align="center" style="border-bottom:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid;">Domain Administrator</td>
</tr>
<%
i = 0
allnum = ei.getcount
do while i < allnum
domainname = ei.GetDomain(i)
ei.GetControlMsgEx domainname, isshow, maxuser, dmanager, maxsize, allsize
response.write "<tr><td align='center' height='25' style='border-bottom:1px #8CA5B5 solid;'><input type='checkbox' name='check" & i & "'"
if isshow = true then
response.write " checked"
end if
response.write "></td><td style='border-bottom:1px #8CA5B5 solid;'><input name='domain" & i & "' type='text' value='" & domainname & "' size='35' maxlength='64' readonly class='textbox'></td>"
response.write "<td align='center' style='border-bottom:1px #8CA5B5 solid;'>" & ei.GetUserNumberInDomain(domainname) & "</td>"
response.write "<td style='border-bottom:1px #8CA5B5 solid;'><input type='text' name='maxuser" & i & "' maxlength='5' value='" & maxuser & "' class='textbox' size='8'></td>"
if maxsize = 0 then
response.write "<td style='border-bottom:1px #8CA5B5 solid;'><input type='text' name='maxsize" & i & "' maxlength='8' value='Unlimited' class='textbox' size='8'></td>"
else
response.write "<td style='border-bottom:1px #8CA5B5 solid;'><input type='text' name='maxsize" & i & "' maxlength='8' value='" & maxsize & "' class='textbox' size='8'></td>"
end if
if allsize = 0 then
response.write "<td style='border-bottom:1px #8CA5B5 solid;'><input type='text' name='allsize" & i & "' maxlength='8' value='N.A.' readonly class='textbox' size='8'></td>"
else
response.write "<td style='border-bottom:1px #8CA5B5 solid;'><input type='text' name='allsize" & i & "' maxlength='8' value='" & allsize & "' readonly class='textbox' size='8'></td>"
end if
response.write "<td style='border-bottom:1px #8CA5B5 solid;'><script>writeusers(" & i & ")</script></td></tr>" & Chr(13)
domainname = NULL
isshow = NULL
maxuser = NULL
dmanager = NULL
maxsize = NULL
allsize = NULL
i = i + 1
loop
%>
<tr>
<td colspan="7" align="right" bgcolor="#ffffff"><br>
<input type="submit" value=" Save " name="submit" class="Bsbttn">
<input type="button" value="Cancel" onClick="javascript:mycancel()" class="Bsbttn">
</td>
</tr>
</table>
<br><br>
<br>
<div align="center">
<table width="97%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF" style='border-top:1px #8CA5B5 solid;'>
<tr>
<td colspan="2" height="10">
</td>
</tr>
<tr>
<td width="25%" valign="top"><font color="#FF3333">1. Display:</font></td>
<td width="75%"> Unselected domains will not appear in the domain name list at user application.<br>
<br>
</td>
</tr>
<tr>
<td valign="top"><font color="#FF3333">2. Maximum Users:</font></td>
<td>When the number of users in the current domain exceeds the maximum, applications
through Web page to this field will not be allowed. However, the administrator's creation of new users is
not limited by the quota, therefore, the "number of existing users "may often be greater than the "maximum
number of users".<br>
<br>
</td>
</tr>
<tr>
<td valign="top"><font color="#FF3333">Note:</font></td>
<td><font color="#FF3333"> </font>If your server is placed on the internet, it is recommended that you set a "maximum number of users" for every domain name.<br><br>
</td>
</tr>
<tr>
<td valign="top"><font color="#FF3333">Note:</font></td>
<td><font color="#FF3333"> </font>Because the appointed domain administrator may use the allocated space, therefore before the maximum space is set
(provided that there is a domain administrator other than the system administor),
the domain administrator is not allow to allocate the space.
</td>
</tr>
<tr>
<td colspan="2" height="10">
</td>
</tr>
</table>
</div>
</FORM>
<br>
</BODY>
</HTML>
<%
set eu = nothing
set ei = nothing
set mam = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -