webeasymailmanage.asp

<虚拟主机站点管理系统>呵呵是我们公司的一个小产品

<%
	if Session("UserName") = "" then
		response.Redirect "login.asp"
	end if
%>

<%
session("title")="砺青站点管理系统"
session("headline")="首页 -> WebEasyMail邮局管理"

if IsEmpty(Application("em")) then
	Application.Lock
			dim a
			set a = server.CreateObject("easymail.Users")

			Set Application("em") = a
		Application.Unlock
		TimeDelaySeconds(10)
end if



set lqsm_easymail= server.CreateObject("lqsm.easymail")
set lqsm_config= server.CreateObject("lqsm.config")


%>


<!--#include file="head.asp"-->
 
 <br><br><br>
 <script language='JavaScript'>
<!--
function check_input()
{
	web=document.Web;
	if(web.Domain.value=='')
	{
		alert('域名不能为空');
		web.Domain.focus();
		return false;
	}
	if(web.Manager.value=='')
	{
		alert('管理用户名不能为空');
		web.Manager.focus();
		return false;
	}	
	if(web.ManagerPass.value=='')
	{
		alert('管理用户密码不能为空');
		web.ManagerPass.focus();
		return false;
	}		

		
	if(web.MaxSize.value=='')
	{
		alert('最大空间不能为空');
		web.MaxSize.focus();
		return false;
	}	
	if(isNaN(web.MaxSize.value))
	{
		alert('最大空间只能为数字');
		web.MaxSize.focus();
		return false;
	}	
	if(web.MaxUser.value=='')
	{
		alert('最大用户数不能为空');
		web.MaxUser.focus();
		return false;
	}	
	if(isNaN(web.MaxUser.value))
	{
		alert('最大用户数只能为数字');
		web.MaxUser.focus();
		return false;
	}	
}
//-->
</script>
<%
'on error resume next

MailAction=request("MailAction")
Domain=request("Domain")
MaxUser=request("MaxUser")
Manager=request("Manager")
MaxSize=request("MaxSize") * 1024
ManagerPass=request("ManagerPass")
ErrMsg=""

page = request("page")
if page ="" or (not IsNumeric(page)) then
	page = 1
end if
ret = lqsm_config.CfgGetConfig("PageSize",PageSize,ErrMsg)
if not IsNumeric(PageSize) then PageSize = 20
recb = (page-1) * cint(PageSize) +1
rece = recb + cint(PageSize) -1




if MailAction="" then
	 MailAction="query"
	 
end if


if MailAction="query" then
%>

<table border=1 bordercolor=#888888 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=88% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef'>序号</td>
<td class='color01' bgcolor='#efefef'>域名</td>
<td class='color01' bgcolor='#efefef'>用户数</td>
<td class='color01' bgcolor='#efefef'>最大空间(K)</td>
<td class='color01' bgcolor='#efefef'>管理用户名</td>
<td class='color01' bgcolor='#efefef'>删除</td>
<td class='color01' bgcolor='#efefef'>编辑</td></tr>
<%
i=1
for Index = 0 to lqsm_easymail.GetCount() -1
	
	dim Domain
	MaxUser = ""
	Manager = ""
	MaxSize = ""
	AllSize = ""
	Domain = lqsm_easymail.GetDomain(Index)
	if Domain <> "system.mail" then
	if (i >= recb) and  (i <= rece) then
		ret = lqsm_easymail.MailGetDetail (Domain, IsShow, MaxUser, Manager, MaxSize, AllSize)
		%>
		<tr>
		<td>&nbsp;<%=i%></td>
		<td>&nbsp;<%=Domain%></td>
		<td>&nbsp;<%=MaxUser%></td>
		<td>&nbsp;<%=MaxSize/1024%></td>
		<td>&nbsp;<%=Manager%></td>
		<td><a href="WebEasyMailManage.asp?MailAction=del&Domain=<%=Domain%>">删除</a></td>
		<td><a href="WebEasyMailManage.asp?MailAction=edit_pre&Domain=<%=Domain%>">修改</a></td>
		</tr>
		
		<%
		end if
		i = i+ 1
	
	
	end if
	
next
%>
<Tr><td colspan="13" align="center"><a href="WebEasyMailManage.asp?MailAction=add_pre">增加邮局</a></td></TR>
</table>
<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<%
pageall = cint(i / PageSize)
if (pageall * PageSize) < i then
	pageall = pageall + 1
end if
response.write page & "/" & pageall
do while ii<=pageall 
	if ii<> page then
		response.write "&nbsp;&nbsp;<A HREF=WebEasymailmanage.asp?page="&ii&">"&ii&"</A>"
else
	response.write ii
end if
ii=ii+1
loop
response.write Msg
response.end
end if 
%>

<%if MailAction="query_detail" then 
MailAction="query"
ret = lqsm_easymail.MailGetDetail (Domain, IsShow, MaxUser, Manager, MaxSize, AllSize)
%>
<table border=1 bordercolor=#888888 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=65% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef' colspan="2" align="center">WebEasyMAil邮局详细信息</td></tr>
<tr><td>域&nbsp;&nbsp;&nbsp;&nbsp;名</td><td>&nbsp;<%=Domain%></td></tr>
<tr><td>管理用户名</td><td>&nbsp;<%=Manager%></td></tr>
<tr><td>最大用户数</td><td>&nbsp;<%=MaxUser%>&nbsp;个</td></tr>
<tr><td>空&nbsp;&nbsp;&nbsp;&nbsp;间</td><td>&nbsp;<%=MaxSize/1024%>&nbsp;M</td></tr>
<tr><td>已用空间</td><td>&nbsp;<%=AllSize/1024%>&nbsp;M&nbsp;</td></tr>
<tr><td align="center" colspan="2"> <input type='button' value='返  回' onclick='history.go(-1)' name='button' style='text-align:center'></td></tr>
</table>
<%
response.end
end if%>





<%if MailAction="add_pre" then 

%>
<form name="Web" action="WebEasyMailManage.asp" onsubmit='return check_input()'>
<table border=1 bordercolor=#888888 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=65% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef' colspan="2" align="center">请输入邮局信息</td></tr>
<input name="MailAction" type="Hidden" value="add">
<tr><td>域名</td></td><td><input name="Domain" class="form" type="Text" maxlength="100"></td></tr>
<tr><td>管理用户名</td><td><input name="Manager" class="form" type="Text" maxlength="100"></td></tr>
<tr><td>密码</td><td><input name="ManagerPass" class="form" type="Text" maxlength="100"  value="1111"> </td></tr>
<tr><td>最大用户数</td><td><input name="MaxUser" class="form" type="Text" maxlength="100" value="10"> </td></tr>
<tr><td>最大空间</td><td><input name="MaxSize" class="form" type="Text" maxlength="100" value="100000">M</td></tr>
<tr><td align="center" colspan="2"><input type="Submit" value="添  加" style='text-align:center'> <input type='button' value='返  回' onclick='history.go(-1)' name='button' style='text-align:center'></td></tr>
</table>
</form>
<%
response.end
end if%>



<%if MailAction="edit_pre" then 
MailAction="query"
ret = lqsm_easymail.MailGetDetail (Domain, IsShow, MaxUser, Manager, MaxSize, AllSize)
%>
<form name="Web" action="WebEasyMailManage.asp" onsubmit='return check_input()'>
<table border=1 bordercolor=#888888 bordercolordark=#ffffff cellpadding=3 cellspacing=0 width=65% class='size09' align='center'>
<tr><td class='color01' bgcolor='#efefef' colspan="2" align="center">请输入邮局信息</td></tr>
<input name="MailAction" type="Hidden" value="edit">
<input name="Domain" type="Hidden" value="<%=Domain%>">
<tr><td>域&nbsp;&nbsp;&nbsp;&nbsp;名</td><td>&nbsp;<%=Domain%></td></tr>
<tr><td>管理用户名</td><td>&nbsp;<input name="Manager" class="form" type="Text" maxlength="100" value="<%=Manager%>"></td></tr>
<tr><td>最大用户数</td><td>&nbsp;<input name="MaxUser" class="form" type="Text" maxlength="100" value="<%=MaxUser%>">&nbsp;个</td></tr>
<tr><td>空&nbsp;&nbsp;&nbsp;&nbsp;间</td><td>&nbsp;<input name="MaxSize" class="form" type="Text" maxlength="100" value="<%=MaxSize/1024%>">&nbsp;M</td></tr>
<tr><td align="center" colspan="2"><input type="Submit" value="修  改" style='text-align:center'> <input type='button' value='返  回' onclick='history.go(-1)' name='button' style='text-align:center'></td></tr>
</table>
</form>
<%
response.end
end if%>

<%

select case MailAction
	case	"add"
		ret = lqsm_easymail.MailAdd(Domain, Manager, ManagerPass,MaxUser,MaxSize,ErrMsg)
	case	"del"
		ret = lqsm_easymail.MailDel (Domain)
	case	"edit"
		ret = lqsm_easymail.MailEdit(Domain,MaxUser,Manager,MaxSize)
End Select


if ret = 0  then
	Msg = "交易成功" & Err.description
else
	Msg = "交易失败:错误码=["&ret&"]; 描述=["&ErrMsg&"]" & err.description
end if

response.write "<table width='80%' align='center'><tr><td align='center'>"&Msg&"</td></tr></table>"


function TimeDelaySeconds(DelaySeconds)
	SecCount = 0
	Sec2 = 0

	while SecCount < DelaySeconds + 1
		Sec1 = Second(Time())
		if Sec1 <> Sec2 then
			Sec2 = Second(Time())
			SecCount = SecCount + 1
		end if
	wend
end function

%>

<!--#include file="bottom.asp"-->