mailmanage.asp

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

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

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


set lqsm_mail= server.CreateObject("lqsm.mail")
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.MailBox.value=='')
	{
		alert('邮箱名不能为空');
		web.MailBox.focus();
		return false;
	}	
	if(web.MailDir.value=='')
	{
		alert('邮箱路径不能为空');
		web.MailDir.focus();
		return false;
	}		
	if(web.RealName.value=='')
	{
		alert('用户名不能为空');
		web.RealName.focus();
		return false;
	}	
	
	
	
	if(web.MessageDisk.value=='')
	{
		alert('邮局空间不能为空');
		web.MessageDisk.focus();
		return false;
	}		
	if(isNaN(web.MessageDisk.value))
	{
		alert('邮局空间只能为数字');
		web.MessageDisk.focus();
		return false;
	}	
	if(web.MessageMax.value=='')
	{
		alert('最大邮件数不能为空');
		web.MessageMax.focus();
		return false;
	}	
	if(isNaN(web.MessageMax.value))
	{
		alert('最大邮件数只能为数字');
		web.MessageMax.focus();
		return false;
	}	
	if(web.MaxRcv.value=='')
	{
		alert('最大邮件大小不能为空');
		web.MaxRcv.focus();
		return false;
	}	
	if(isNaN(web.MaxRcv.value))
	{
		alert('最大邮件大小只能为数字');
		web.MaxRcv.focus();
		return false;
	}	
	if(web.MaxUsers.value=='')
	{
		alert('最大用户数不能为空');
		web.MaxUsers.focus();
		return false;
	}	
	if(isNaN(web.MaxUsers.value))
	{
		alert('最大用户数只能为数字');
		web.MaxUsers.focus();
		return false;
	}	
}
//-->
</script>
<%
'on error resume next

MailAction=request("MailAction")

MailDir=request("MailDir")
Domain=request("Domain")
MailBox=request("MailBox")
IPAddress=request("IPAddress")
RealName=request("RealName")
PassWord=request("PassWord")
MessageMax=request("MessageMax")
MessageDisk=request("MessageDisk")
MaxRcv=request("MaxRcv")
MaxUsers=request("MaxUsers")
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"
	if WebIndex="" then WebIndex = lqsm_mail.GetMailList()
end if


if MailAction="query" then
IndexList = split(WebIndex,",")
%>

<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'>空间(M)</td>
<td class='color01' bgcolor='#efefef'>用户名</td>
<td class='color01' bgcolor='#efefef'>删除</td>
<td class='color01' bgcolor='#efefef'>编辑</td></tr>
<%
i=1
for each Index in IndexList
	if Index <> "" then
		if (i >= recb) and  (i <= rece) then
	MailDir=""
	Domain=Index
	MailBox=""
	IPAddress=""
	RealName=""
	PassWord=""
	MessageMax=""
	MessageDisk=""

	ret=lqsm_mail.MailManage(MailAction,MailDir, Domain, MailBox, IPAddress, RealName, PassWord, MessageMax, MessageDisk,MaxRcv,MaxUsers,ErrMsg)
		%>
		<tr>
		<td>&nbsp;<%=i%></td>
		<td>&nbsp;<a href="MailManage.asp?MailAction=query_detail&Domain=<%=Domain%>"><%=Domain%></a></td>
		<td>&nbsp;<%=MailDir%></td>
		<td>&nbsp;<%=MessageDisk%></td>
		<td>&nbsp;<%=RealName%></td>
		<td><a href="MailManage.asp?MailAction=del&Domain=<%=Domain%>">删除</a></td>
		<td><a href="MailManage.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="MailManage.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=mailmanage.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_mail.MailManage(MailAction,MailDir, Domain, MailBox, IPAddress, RealName, PassWord, MessageMax, MessageDisk,MaxRcv,MaxUsers,ErrMsg)
%>
<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>
<tr><td>域&nbsp;&nbsp;&nbsp;&nbsp;名</td><td>&nbsp;<%=Domain%></td></tr>
<tr><td>邮&nbsp;箱&nbsp;名</td><td>&nbsp;<%=MailBox%>&nbsp;</td></tr>
<tr><td>密&nbsp;&nbsp;&nbsp;&nbsp;码</td><td>&nbsp;<%=PassWord%></td></tr>
<tr><td>路&nbsp;&nbsp;&nbsp;&nbsp;径</td><td>&nbsp;<%=MailDir%></td></tr>
<tr><td>IP地址</td><td>&nbsp;<%=IPAddress%></td></tr>
<tr><td>用&nbsp;户&nbsp;名</td><td>&nbsp;<%=RealName%>&nbsp;</td></tr>
<tr><td>空&nbsp;&nbsp;&nbsp;&nbsp;间</td><td>&nbsp;<%=MessageDisk%>&nbsp;M</td></tr>
<tr><td>最大邮件</td><td>&nbsp;<%=MaxRcv%>&nbsp;M</td></tr>
<tr><td>最大用户数</td><td>&nbsp;<%=MaxUsers%>&nbsp;个</td></tr>
<tr><td>最大邮件数</td><td>&nbsp;<%=MessageMax%>&nbsp;封&nbsp;[<font color="#ff0000">0:表示不限制最大邮件数</font>]</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 
ret = lqsm_config.CfgManage("query",WebHomeDir,MailHomeDir,WebIPList,UserName,UserPass,HostID,RegCode,ErrMsg)%>
<form name="Web" action="MailManage.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>域&nbsp;&nbsp;&nbsp;&nbsp;名</td></td><td><input name="Domain" class="form" type="Text" maxlength="100"></td></tr>
<tr><td>密&nbsp;&nbsp;&nbsp;&nbsp;码</td><td><input name="PassWord" class="form" type="Text" maxlength="100"></td></tr>
<tr><td>路&nbsp;&nbsp;&nbsp;&nbsp;径</td><td><input name="MailDir" class="form" type="Text" maxlength="100" size="50"  value="<%=MailHomeDir%>"> </td></tr>
<tr><td>IP&nbsp;地&nbsp;址</td><td>
	<select name="IPAddress">
	<option value="">自动应用虚拟IP</option>
	<% 
	if instr(WebIPList,",") then
		tmp = Split(WebIPList, ",")
		for each tmp2 in tmp
		 	response.write "<option value="&tmp2&">"&tmp2&"</option>"
		next
	elseif WebIPList <> "" then
		response.write "<option value="&WebIPList&">"&WebIPList&"</option>"
	else
		response.write "<option value=127.0.0.1>127.0.0.1</option>"
	end if
	%>
	</select>
</td></tr>
<tr><td>邮&nbsp;箱&nbsp;名</td><td><input name="MailBox" class="form" type="Text" maxlength="100" size="30" value="ROOT"> </td></tr>
<tr><td>姓&nbsp;&nbsp;&nbsp;&nbsp;名</td><td><input name="RealName" class="form" type="Text" maxlength="100" size="30" value="ROOT"></td></tr>
<tr><td>邮局空间</td><td><input name="MessageDisk" class="form" type="Text" maxlength="100" size="8" value="100">&nbsp;M</td></tr>
<tr><td>最大邮件</td><td><input name="MaxRcv" class="form" type="Text" maxlength="100" size="8" value="10">&nbsp;M</td></tr>
<tr><td>最大用户数</td><td><input name="MaxUsers" class="form" type="Text" maxlength="100" size="8" value="5">&nbsp;个</td></tr>
<tr><td>最大邮件数</td><td><input name="MessageMax" class="form" type="Text" maxlength="100" size="8" value="0">&nbsp;封&nbsp;[<font color="#ff0000">0:表示不限制最大邮件数</font>]</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_mail.MailManage(MailAction,MailDir, Domain, MailBox, IPAddress, RealName, PassWord, MessageMax, MessageDisk,MaxRcv,MaxUsers,ErrMsg)
ret = lqsm_config.CfgManage("query",WebHomeDir,MailHomeDir,WebIPList,UserName,UserPass,HostID,RegCode,ErrMsg)
%>
<form name="Web" action="MailManage.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><%=Domain%></td></tr>
<tr><td>路&nbsp;&nbsp;&nbsp;&nbsp;径</td><td><input name="MailDir" class="form" type="Text" maxlength="100" size="50"  value="<%=MailDir%>"></td></tr>
<tr><td>IP&nbsp;地&nbsp;址</td><td>
	<select name="IPAddress">
	
	<% 
	if not instr(IPAddress,"$virtual") then
		response.write "<option value="&IPAddress&" selected>自动应用虚拟IP</option>"
	else
		response.write "<option value="" >自动应用虚拟IP</option>"
	end if
	
	if instr(WebIPList,",") then
		tmp = Split(WebIPList, ",")
		for each tmp2 in tmp
			if tmp2<>IPAddress then
		 		response.write "<option value="&tmp2&">"&tmp2&"</option>"
			else
				response.write "<option value="&tmp2&" selected>"&tmp2&"</option>"
			end if
		next
	elseif WebIPList <> "" then
		if WebIPList<>IPAddress then
			response.write "<option value="&WebIPList&">"&WebIPList&"</option>"
		else
			response.write "<option value="&WebIPList&" selected>"&WebIPList&"</option>"
		end if
	else
		response.write "<option value=127.0.0.1>127.0.0.1</option>"
	end if
	%>
	</select>
</td></tr>
<tr><td>邮&nbsp;箱&nbsp;名</td><td><input name="MailBox" class="form" type="Text" maxlength="100" size="30" value="<%=MailBox%>"></td></tr>
<tr><td>姓&nbsp;&nbsp;&nbsp;&nbsp;名</td><td><input name="RealName" class="form" type="Text" maxlength="100" size="30" value="<%=RealName%>"></td></tr>
<tr><td>邮局空间</td><td><input name="MessageDisk" class="form" type="Text" maxlength="100" size="6" value="<%=MessageDisk%>">&nbsp;M</td></tr>
<tr><td>最大邮件</td><td><input name="MaxRcv" class="form" type="Text" maxlength="100" size="6" value="<%=MaxRcv%>">&nbsp;M</td></tr>
<tr><td>最大用户数</td><td><input name="MaxUsers" class="form" type="Text" maxlength="100" size="6" value="<%=MaxUsers%>">&nbsp;个</td></tr>
<tr><td>最大邮件数</td><td><input name="MessageMax" class="form" type="Text" maxlength="100" size="6" value="<%=MessageMax%>">&nbsp;封&nbsp;[<font color="#ff0000">0:表示不限制最大邮件数</font>]</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%>

<%
ret=lqsm_mail.MailManage(MailAction,MailDir, Domain, MailBox, IPAddress, RealName, PassWord, MessageMax, MessageDisk,MaxRcv,MaxUsers,ErrMsg)

if ret = 0  then
	Msg = "交易成功"
else
	Msg = "交易失败:错误码=["&ret&"]; 描述=["&ErrMsg&"]"
end if
response.write "<table width='80%' align='center'><tr><td align='center'>"&Msg&"</td></tr></table>"


%>

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