📄 viewmaildetail.asp
字号:
<% ModuleCode="M0510" %>
<!--#include file="../../Include/Reference.asp"-->
<script src="<%=HomeDir%>css/Mail.js"></script>
<%
Call PrintPageHead
PostID=Request.QueryString("ID")
%>
<!--#include file="../../Include/connect.asp"-->
<%
strSQL="Select * from v_MailList Where Stat<>'0' and PostID='" & PostID & "'"
if Session("ISADMIN")<>"YES" then
strSQL = strSQL & " and UserID=" & Session("UserID")
end if
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
Response.Write "<br><br><P align='center' class='titletext'>对不起, 找不到此邮局或者您没有权限！</p>"
else
%>
<!--#include file="MailMenu.asp"-->
<!--#include file="../../Include/GetSysParam.asp"-->
<!--#include file="../../Include/WEBCtrl.asp"-->
<%
if rs("IfSubmit")<>"1" then
ServerIP=Rs("ServerPubIP")
MailDomain=Rs("BPostDN")
MailUser=Rs("MaxUser")
MailSize=Rs("MaxSize")
if ChangeMailDomainProp(ServerIP,MailDomain,Opt_System_MailManager & "@" & MailDomain, MailUser, CStr(Cint(MailSize)*1000))<>0 then
Response.Write "建立邮局失败, 请重新尝试! 错误码: 3"
Call PrintPageBottom
Response.End
end if
strSQL="Update T_DNS_AllPost Set IfSubmit='1' Where PostID='" & PostID & "'"
Cn.Execute(StrSQL)
end if
'Dim MaxUser,UserNum,MaxSize,UsedSize,GiveSize
if GetDomainInfo(Rs("ServerIP"),Rs("BPostDN"), MaxUser,UserNum,MaxSize,GiveSize,UsedSize)<>0 then
Response.Write "<br><br><P align='center' class='titletext'>对不起, 服务器已经断开, 请重新尝试！！</p>"
Call PrintPageBottom
Response.End
end if
if (not IsNumeric(MaxUser)) or (not IsNumeric(UserNum)) or (not IsNumeric(MaxSize)) or (not IsNumeric(GiveSize)) or (not IsNumeric(UsedSize)) then
Response.Write "<br><br><P align='center' class='titletext'>对不起, 服务器已经断开, 请重新尝试！！</p>"
Call PrintPageBottom
Response.End
end if
%>
<!------------------------------------------------------------------------------------->
<TABLE align=center bgcolor="<%=Opt_Table_BGColor%>" border=0 cellPadding=5 cellSpacing=1 width="95%">
<tr bgcolor="<%=Opt_TD_BGColor2%>">
<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">邮局绑定域名</td>
<td><a href="http://mail.<%=Rs("BPostDN")%>" target="_blank" class="a2"><%=Rs("BPostDN")%></a>
<a href="javascript:gook()">（点击可进行邮局管理）</a>
<form name="f1" method="post" action="http://mail.<%=Rs("BPostDN")%>/default.asp" target="_blank"><input type="hidden" name="username" value="webmaster"><input type="hidden" name="pwhidden"><input type="hidden" name="pwshow" value="<%=Rs("PSW")%>"><input type="hidden" name="picnum" value="7652">
</form>
</td>
</tr>
<tr bgcolor="<%=Opt_TD_BGColor2%>">
<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">产品名称</td>
<td><%=Rs("MailType")%></td>
</tr>
<tr bgcolor="<%=Opt_TD_BGColor2%>">
<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">服务器</td>
<td><%=Rs("ServerPubIP")%></td>
</tr>
<tr bgcolor="<%=Opt_TD_BGColor2%>">
<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">邮局空间大小</td>
<td><%=Rs("MaxSize")%>M</td>
<tr bgcolor="<%=Opt_TD_BGColor2%>">
<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">已分配空间</td>
<td>
<table border=0 cellPadding=0 cellSpacing=0 width="100%">
<tr>
<td colspan="2">
<%
if Clng(Rs("MaxSize"))=0 then
Per=0
else
Per=Cint((Clng(GiveSize)/1000)/Clng(Rs("MaxSize"))*100)
end if
%>
<table style="BORDER-RIGHT: <%=Opt_TR_BGColor%> 1px solid; PADDING-RIGHT: 0px; BORDER-TOP: <%=Opt_TR_BGColor%> 1px solid; PADDING-LEFT: 0px; PADDING-BOTTOM: 1px; BORDER-LEFT: <%=Opt_TR_BGColor%> 1px solid; PADDING-TOP: 1px; BORDER-BOTTOM: <%=Opt_TR_BGColor%> 1px solid" cellspacing=0 cellpadding=0 width="100%" border=0 bgcolor="<%=Opt_Table_BGColor%>">
<tbody>
<tr>
<td width="100%">
<div style="FONT-SIZE: 3px; WIDTH: <%=Per%>%; HEIGHT: 6px; BACKGROUND-COLOR: <%=Opt_TR_BGColor%>"></div>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr>
<td>
<%=Cstr(Clng(GiveSize)\1000)%>M
</td>
<td align="right">
<%=Per%>%
</td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="<%=Opt_TD_BGColor2%>">
<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">已使用空间</td>
<td>
<table border=0 cellPadding=0 cellSpacing=0 width="100%">
<tr>
<td colspan="2">
<%
if Clng(Rs("MaxSize"))=0 then
Per=0
else
Per=Cint((Clng(UsedSize)/1000/1000)/Clng(Rs("MaxSize"))*100)
end if
%>
<table style="BORDER-RIGHT: <%=Opt_TR_BGColor%> 1px solid; PADDING-RIGHT: 0px; BORDER-TOP: <%=Opt_TR_BGColor%> 1px solid; PADDING-LEFT: 0px; PADDING-BOTTOM: 1px; BORDER-LEFT: <%=Opt_TR_BGColor%> 1px solid; PADDING-TOP: 1px; BORDER-BOTTOM: <%=Opt_TR_BGColor%> 1px solid" cellspacing=0 cellpadding=0 width="100%" border=0 bgcolor="<%=Opt_Table_BGColor%>">
<tbody>
<tr>
<td width="100%">
<div style="FONT-SIZE: 3px; WIDTH: <%=Per%>%; HEIGHT: 6px; BACKGROUND-COLOR: <%=Opt_TR_BGColor%>"></div>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr>
<td>
<%=FormatNumber(Clng(UsedSize)/1000,2,,,-1)%>K
</td>
<td align="right">
<%=Per%>%
</td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="<%=Opt_TD_BGColor2%>">
<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">邮局邮箱个数</td>
<td>
<table border=0 cellPadding=0 cellSpacing=0 width="100%">
<tr>
<td colspan="2">
<%
if Clng(Rs("MaxUser"))=0 then
Per=0
else
Per=Cint(Clng(UserNum)/Clng(Rs("MaxUser"))*100)
end if
%>
<table style="BORDER-RIGHT: <%=Opt_TR_BGColor%> 1px solid; PADDING-RIGHT: 0px; BORDER-TOP: <%=Opt_TR_BGColor%> 1px solid; PADDING-LEFT: 0px; PADDING-BOTTOM: 1px; BORDER-LEFT: <%=Opt_TR_BGColor%> 1px solid; PADDING-TOP: 1px; BORDER-BOTTOM: <%=Opt_TR_BGColor%> 1px solid" cellspacing=0 cellpadding=0 width="100%" border=0 bgcolor="<%=Opt_Table_BGColor%>">
<tbody>
<tr>
<td width="100%">
<div style="FONT-SIZE: 3px; WIDTH: <%=Per%>%; HEIGHT: 6px; BACKGROUND-COLOR: <%=Opt_TR_BGColor%>"></div>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr>
<td>
<%=Rs("MaxUser")%>个邮箱 (已分配 <%=UserNum%> 个)
[<a href="ManageMailUser.asp?ID=<%=PostID%>" class="a2">用户管理</a>]
</td>
<td align="right">
<%=Per%>%
</td>
</tr>
</table>
</td>
</tr>
<tr bgcolor="<%=Opt_TD_BGColor2%>">
<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">开通时间</td>
<td><%=Rs("STime")%></td>
</tr>
<tr bgcolor="<%=Opt_TD_BGColor2%>">
<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">到期时间</td>
<td><%=FormatDateTime(Rs("ETime"),vbShortDate)%></td>
</tr>
<tr bgcolor="<%=Opt_TD_BGColor2%>">
<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">租用年限</td>
<td><%=Rs("UYear")%>年</td>
</tr>
<tr bgcolor="<%=Opt_TD_BGColor2%>">
<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">运行状况</td>
<td>
<%
Select Case Rs("PostStat")
Case "1"
%>
开通 --> [<a href="ManageMailDomain.asp?OP=disable&ID=<%=PostID%>" class="a2">关闭邮局</a>]
<%
Case "2"
%>
关闭 --> [<a href="ManageMailDomain.asp?OP=enable&ID=<%=PostID%>" class="a2">开通邮局</a>]
<%
End Select
%>
</td>
</tr>
<tr bgcolor="<%=Opt_TD_BGColor2%>">
<td width="20%" bgcolor="<%=Opt_TR_BGColor%>" align="right">缴费情况</td>
<td>
<%
Select Case Rs("FeeStat")
Case "1"
Response.Write "正常"
Case "2"
Response.Write "未缴"
End Select
%>
<% if Session("ISADMIN")="YES" then %>
--> [<a href="DeleteMailDomain.asp?ID=<%=PostID%>" class="a2"><font color="red">删除邮局</font></a>]
<% end if %>
</td>
</tr>
</table>
<%
end if
Rs.Close
Set Rs=Nothing
Cn.Close
Set Cn=Nothing
Call PrintPageBottom
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -