viewmailbox.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M0510" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
PostID=Request.QueryString("ID")
MailUser=Request.QueryString("UID")
%>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/WEBCtrl.asp"-->
<%
strSQL="Select * from v_MailList Where 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
Result=GetUserMailBoxInfo(Rs("ServerIP"),MailUser)
if Result<>"-1" then
	BF=Split(Result,"~")
	MailBoxSize=BF(0)
	UsedSize=FormatNumber(Clng(BF(1))/1000,2,,,-1)
	Per=BF(2)
%>
<!--#include file="MailMenu.asp"-->
<!------------------------------------------------------------------------------------->
  <table width="60%" border="0" cellspacing="1" cellpadding="5" align="center" bgcolor="<%=Opt_Table_BGColor%>">
	<tr bgcolor="<%=Opt_TR_BGColor%>">
	  <td colspan=2 align=center>
	    <font color=red>mail.<%=Rs("BPostDN")%></font> 下的 <%=MailUser%> 用户
	  </td>
	</tr>		
	<tr bgcolor="<%=Opt_TD_BGColor2%>">
	  <td bgcolor="<%=Opt_TR_BGColor%>" width="25%">分配空间</td>
	  <td width="75%">
	  <%=MailBoxSize%>K
	  </td>
	</tr>
	<tr bgcolor="<%=Opt_TD_BGColor2%>">
	  <td bgcolor="<%=Opt_TR_BGColor%>">已使用</td>
	  <td>
	  <%=UsedSize%>K
	  </td>
	</tr>
	<tr bgcolor="<%=Opt_TD_BGColor2%>">
	  <td bgcolor="<%=Opt_TR_BGColor%>">百分比</td>
	  <td>
              <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>
	  <%=Per%>%
	  </td>
	</tr>
	<tr>
	  <td colspan=2 bgcolor="<%=Opt_TD_BGColor2%>" align=center>
	    <a href="ModiUserPass.asp?OP=chgpass&ID=<%=PostID%>&UID=<%=MailUser%>" class="a2">改密</a>
	    <a href="ManageMailUserDo.asp?OP=clear&ID=<%=PostID%>&UID=<%=MailUser%>" class="a2">清空</a>
	    <a href="ManageMailUserDo.asp?OP=del&ID=<%=PostID%>&UID=<%=MailUser%>" class="a2">删除</a>
	    <a href="#" onclick="javascript:history.go(-1)" class="a2">&gt;&gt;返回</a>
	  </td>
	</tr>
  </table>
</form>   

<%
else
	Response.Write "<br><br><P align='center' class='titletext'>邮局服务器已经断开, 请重新尝试！</p>"
end if

end if

Rs.Close
Set Rs=Nothing
Cn.Close
Set Cn=Nothing
Call PrintPageBottom
%>