mailedit_user.asp

一个非常优秀的自动建站程序

<%
MailID = Request("MailID")
if (MailID="") then Response.Redirect ("error.asp?id=001")
MailEditUser = Request("MailEditUser")
if (MailEditUser="") then Response.Redirect ("error.asp?id=001")
%>
<!--#include file="top.asp"-->
<!--#include file="../checkpost.asp"-->
<%
if Request("action")="action" then
if (Trim(Request.form("MailUserSize"))="") or (Trim(Request.form("MailUserpass"))="") or (Trim(Request.form("cMailUserpass"))="") then Response.Redirect("Error.asp?ID=004")
if Trim(Request.form("MailUserpass"))<>Trim(Request.form("MailUserpass")) then Response.Redirect("error.asp?id=005")
if len(trim(Request.Form("MailUserpass")))<5 then Response.Redirect("error.asp?id=023")
if clng(Trim(Request.form("MailUserSize")))<=0 then Response.Redirect("UserMailEdit.asp?MailID=" & MailID)
'此模块是进行空间基本信息修改查询
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [Mail_OK] where MailID=" & MailID
rs.open sql,conn,1,3
if rs.bof and rs.eof then Response.Redirect("error.asp?id=001")
MailHost=rs("MailHost")
MailSize=rs("MailSize")
MailNum=rs("MailNum")
MailMater=rs("MailMater")
MailUser=rs("MailUser")
MailType=rs("MailType")
BeginDate=rs("BeginDate")
EndDate=rs("EndDate")
MailUseSize=0
if not isnull(MailUser) or len(MailUser)>0 then
MailuserNum=split(MailUser,",")
for i=0 to Ubound(MailuserNum)
TpmMailuserNum=split(MailuserNum(i),"|")
if TpmMailuserNum(0)<>MailEditUser then MailUseSize=MailUseSize+TpmMailuserNum(1)
next
end if
if MailUseSize+clng(Trim(Request.form("MailUserSize")))>MailSize then Response.Redirect("error.asp?id=024")
'----------添加用户模块	
Set Autohost = Server.CreateObject("autohost.Createhost")
Autohost.HostIp=MailHost'服务器的IP
Autohost.HostPort=Port'程序端口
Autohost.Guid=Guid
Autohost.HostAction="modmailuser"'动作,这个是创建邮局用户
Autohost.MailDomain=MailMater'开通邮箱的域名
Autohost.MailUser=MailEditUser'开通邮箱的用户
Autohost.MailPass=Trim(Request.form("MailUserpass"))'开通邮箱的用户密码
Autohost.MailSize=Trim(Request.form("MailUserSize"))'开通邮箱的用户空间大小
ReturnValue=Autohost.send'给服务器执行
set Autohost=nothing
if instr(ReturnValue,"失败") then 
   Response.Redirect("error.asp?ID=012")
elseif instr(ReturnValue,"BUSING") then 
   Response.Redirect("error.asp?ID=016")
elseif instr(ReturnValue,"CLOSE") then 
   Response.Redirect("error.asp?ID=017")
elseif ReturnValue="" then 
   Response.Redirect("error.asp?ID=012")
elseif instr(ReturnValue,"非法命令") then 
   Response.Redirect("error.asp?ID=019")
elseif instr(ReturnValue,"非法用户") then 
   Response.Redirect("error.asp?ID=020")
else
if not isnull(MailUser) or len(MailUser)>0 then
for i=0 to Ubound(MailuserNum)
TpmMailuserNum=split(MailuserNum(i),"|")
if TpmMailuserNum(0)=MailEditUser then
   TpmMailuserNum(1)=Trim(Request.form("MailUserSize"))
   MailuserNum(i)=MailEditUser&"|"&Trim(Request.form("MailUserSize"))
end if   
next
rs("MailUser")=join(MailuserNum,",")
rs.update
end if
rs.close
Response.Redirect("UserMailEdit.asp?MailID="&MailID)
end if
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [Mail_OK] where MailID=" & MailID
rs.open sql,conn,1,3
if rs.bof and rs.eof then Response.Redirect("error.asp?id=001")
MailSize=rs("MailSize")
MailNum=rs("MailNum")
MailMater=rs("MailMater")
MailUser=rs("MailUser")
MailType=rs("MailType")
if not isnull(MailUser) or len(MailUser)>0 then
MailuserNum=split(MailUser,",")
for i=0 to Ubound(MailuserNum)
TpmMailuserNum=split(MailuserNum(i),"|")
if TpmMailuserNum(0)=MailEditUser then 
MailUserSize=TpmMailuserNum(1)
EditUser=True
exit for
end if
next
MailUseSize=0
for i=0 to Ubound(MailuserNum)
TpmMailuserNum=split(MailuserNum(i),"|")
if TpmMailuserNum(0)<>MailEditUser then MailUseSize=MailUseSize+TpmMailuserNum(1)
next
end if
if EditUser=False then Response.Redirect("error.asp?ID=011")
end if
%>
<table width="100%" align="center" bgcolor="#cccccc" border="0" cellpadding="2" cellspacing="1" style="font-size: 9pt; line-height: 200%">
<tr>
<td align=center bgcolor="#FFFFFF">
<br>
<table align=center width=500 cellpadding="2" cellspacing="1" bgcolor=#cccccc>
<form name=AddForm action="?action=action&MailID=<%=MailID%>&MailEditUser=<%=MailEditUser%>" method=post>
<tr>
<td bgcolor=ddeeff align=left height=24 colspan="3">
<font color=red><b><%=MailMater%></b></font> 邮局用户修改 可用空间为:<%=MailSize-MailUseSize%>
</td>
</tr>
<tr>
<td bgcolor=FFFFFF width=24%>
&nbsp;<font color=red>*</font> 邮局用户:
</td>
<td bgcolor=FFFFFF width=40%>
<input style="width:210px" value="<%=MailEditUser%>" readonly>
</td>
<td bgcolor=FFFFFF width=36%>
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 空间大小:
</td>
<td bgcolor=FFFFFF>
<input name="MailUserSize" style="width:210px" value="<%=MailUserSize%>">
</td>
<td bgcolor=FFFFFF>
MB
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 邮箱密码:
</td>
<td bgcolor=FFFFFF>
<input name="MailUserpass" style="width:210px" value="" type=password>
</td>
<td bgcolor=FFFFFF>
</td>
</tr>
<tr>
<td bgcolor=FFFFFF>
&nbsp;<font color=red>*</font> 确认密码:
</td>
<td bgcolor=FFFFFF>
<input name="cMailUserpass" style="width:210px" value="" type=password>
</td>
<td bgcolor=FFFFFF>
</td>
</tr>
<tr>
<td bgcolor=FFFFFF align=center height=30 colspan="3">
<input type="submit" value=" 提交 " name="Submit" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
&nbsp;&nbsp;&nbsp;
<input type="reset" value=" 重 置 " name="B2" style="font-size: 9pt; COLOR: #ffffff; height:20px;background-color:#568ac2;" onMouseOver ="this.style.backgroundColor='#77A3D2'" onMouseOut ="this.style.backgroundColor='#568ac2'">
&nbsp;
</td>
</tr>
</form>
</table>
<br>
<table width=100% height=50 border=0 align=center>
<tr><td align=center><a href="javascript:history.go(-1)"><font color="#000000">返回前页</font></a></td></tr>
</table>
</td>
</tr>
</table>
</TD></TR></TABLE>
<!--#include file="foot.asp"-->