usermailedit.asp

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

<%
MailID = Request("MailID")
if (MailID="") then Response.Redirect ("error.asp?id=001")
%>
<!--#include file="top.asp"-->
<!--#include file="../checkpost.asp"-->
<table width="100%" align="center" bgcolor="#cccccc" border="0" cellpadding="0" cellspacing="1" style="font-size: 9pt; line-height: 200%">
<tr>
<td align=center bgcolor="#FFFFFF">
<%
'此模块是进行空间基本信息修改查询
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [Mail_OK] where MailID=" & MailID
rs.open sql,conn,1,1
if rs.bof and rs.eof then Response.Redirect("error.asp?id=001")
MailName=rs("MailName")
MailHost=rs("MailHost")
MailSize=rs("MailSize")
MailNum=rs("MailNum")
MailMater=rs("MailMater")
MailUser=rs("MailUser")
MailType=rs("MailType")
BeginDate=rs("BeginDate")
EndDate=rs("EndDate")
rs.close
MailUseSize=0
if not isnull(MailUser) or len(MailUser)>0 then
MailuserNum=split(MailUser,",")
MailUserNums=Ubound(MailuserNum)+1
for i=0 to Ubound(MailuserNum)
TpmMailuserNum=split(MailuserNum(i),"|")
MailUseSize=MailUseSize+TpmMailuserNum(1)
next
else
MailUserNums=0
end if
%>
<table width=80% border="0" cellspacing="0" cellpadding="0" height="20" bordercolor="#FFFFFF" bordercolordark=#ffffff bordercolorlight=#cccccc>
<td colspan="2" height=1><img border=0 src=../images/state.gif>  <b>企业邮局主机信息</b></td>
 </tr>
 <tr>
<td width=10%>&nbsp;</td>
<td width=90%>
<table width=100%>   
<tr>
<%
Set Autohost = Server.CreateObject("autohost.gethostip")
realip=Autohost.getip(MailHost)
Set Autohost = nothing
%>
<tr><td colspan="4">邮局域名: <font color=red><b><%=MailMater%></b></font>   邮局服务器: <font color=red><b><%=realip%></b></font></td></tr>   
<td colspan="4">   
产品名称: <%=MailName%>
</td>  
</tr>
<tr>  
<td width="10%">
空间图示:</td><td width="30">0 M</td><td width="250" align=left><table width="250" border="0" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#CCCCCC">
<img src="image/bk.gif" width="<%=(clng(MailUseSize)/MailSize)*250%>" height="7" border="0" bordercolor="#FFFFFF" alt="空间使用量为:<%=MailUseSize%>M"></td>
</tr>
</table>
</td><td><%=MailSize%> M</td>
</tr>
<tr>  
<td width="10%">
用户图示:</td><td width="30">0 个</td><td width="250" align=left><table width="250" border="0" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#CCCCCC">
<img src="image/bk.gif" width="<%=(MailUserNums/MailNum)*250%>" height="7" border="0" bordercolor="#FFFFFF" alt="用户数量为:<%=MailUserNums%>"></td>
</tr>   
</table>
</td><td><%=MailNum%> 个</td>
</tr>
<tr>  
<td colspan="4">开设日期: <%=BeginDate%>
</td>   
</tr>   

<tr>  
<td colspan="4">到期日期: <%=EndDate%><%if Cdate(EndDate)<Date then Response.write " <font color=red>空间已到期</font>"%>
</td>   
</tr>       
</table>   
</td>
 </tr>
<tr> 
<td height="22" colspan="2"> 
<hr size=1 color="E1E6EC">
</td>
</tr>
 <tr>
<td colspan="2" height=1><img border=0 src=../images/update.gif>  <b>邮局升级</b></td>
 </tr>
 <tr>
<td>&nbsp;</td>
<td>
<table width=100%>
<tr>
<form name="form" method="post" action="UserMailEdit_Space.asp?MailID=<%=MailID%>">
<td>
增加空间: <input name="space" value=""> MB
<td align=right>
<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'">
</td>
</form>
</tr>
<tr>
<form name="form" method="post" action="UserMailEdit_Num.asp?MailID=<%=MailID%>">
<td>
增加用户: <input name="Num" value=""> 个
</td>
<td align=right>
<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'">
</td>
</form>
</tr>
</table>
</td>
 </tr>
<tr> 
<td height="22" colspan="2"> 
<hr size=1 color="E1E6EC">
</td>
</tr>
 <tr>
<td colspan="2" height=1><img border=0 src=../images/ftp.gif>  <b>用户列表</b></td>
 </tr>
 <tr>
<td>&nbsp;</td>
<td><br>
<table width="99%" align="center" bgcolor="#cccccc" border="0" cellpadding="5" cellspacing="1">
<tr bgcolor="#ffffff">
<td align=center>用户邮箱</td>
<td width=80 align=center>空间大小</td>
<td width=80 align=center>状态</td>
<td width=80 align=center>修改</td>
<td width=80 align=center>删除</td>
</tr>
<%
if not isnull(MailUser) or len(MailUser)>0  then
MailUseSize=0
MailuserNum=split(MailUser,",")
for i=0 to Ubound(MailuserNum)
TpmMailuserNum=split(MailuserNum(i),"|")
MailUseSize=MailUseSize+TpmMailuserNum(1)
%>
<tr bgcolor="#FFFFFF">
<td align=center><%=TpmMailuserNum(0)%>@<%=MailMater%></td>
<td align=center><%=TpmMailuserNum(1)%> M</td>
<td align=center><%if Cdate(EndDate)<Date then Response.write " <img border=0 src=../images/stop.gif>" else Response.write " <img border=0 src=../images/run.gif>"%></td>
<td align=center><a href="MailEdit_User.asp?MailID=<%=MailID%>&MailEditUser=<%=TpmMailuserNum(0)%>"><img border="0" src="../images/edit.gif"></a></td>
<td align=center><a href="UserMailDel.asp?MailID=<%=MailID%>&MailDelUser=<%=TpmMailuserNum(0)%>"><img border="0" src="../images/del.gif"></a>
</td>
</tr>
<%
next
end if
%>
</table>
<br>
<table width="100%" align="center" bgcolor="#ffffff" border="0" cellpadding="5" cellspacing="1">
<tr>
<form name="form" method="post" action="UserMailEdit_User.asp?MailID=<%=MailID%>">
<td>
用户名: <input name="MailAddUser" value="">@<input value="<%=MailMater%>" readonly size=<%=len(MailMater)%>> 密码: <input name="MailUserpass" value="" type=password size=12> 空间:<input name="MailUserSize" value="<%=MailSize-MailUseSize%>" size=6> M
</td>
<td align=right>
<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'">
</td>
</form>
</tr>
</table>
</td>
 </tr>
<tr> 
<td height="22" colspan="2"> 
<hr size=1 color="E1E6EC">
</td>
</tr>
 <tr>
<td colspan="2" height=1><img border=0 src=../images/hosts.gif>  <b>时间修改</b></td>
 </tr>
 <tr>
<td>&nbsp;</td>
<td>
<table width=100%>
<tr>
<form name="form" method="post" action="UserMailEdit_BeginDate.asp?MailID=<%=MailID%>">
<td>
开设日期: <input name="BeginDate" value="<%=BeginDate%>">
<td align=right>
<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'">
</td>
</form>
</tr>
<tr>
<form name="form" method="post" action="UserMailEdit_EndDate.asp?MailID=<%=MailID%>">
<td>
到期日期: <input name="EndDate" value="<%=EndDate%>">
</td>
<td align=right>
<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'">
</td>
</form>
</tr>
</table>
 <tr>
</table>
</td>
</tr>
</table>
</TD></TR></TABLE>
<!--#include file="foot.asp"-->