managemailuser.asp

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

<% ModuleCode="M0510" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
PostID=Request.QueryString("ID")
%>
<!--#include file="../../Include/connect.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

%>
<!--#include file="MailMenu.asp"-->
<!--#include file="../../Include/WEBCtrl.asp"-->
<%
Dim UserList,Users
UserList=GetUserList(Rs("ServerIP"),Rs("BPostDN"))
if UserList<>"-1" then
	Users=Split(UserList,"|")
%>
<!------------------------------------------------------------------------------------->
<FORM action="ManageMailUserDo.asp" method="post" name="domainInfo">
<input type="hidden" name="ID" value="<%=PostID%>">
<font color=<%=Opt_Font_TitleColor%> class="titletext">mail.<%=Rs("BPostDN")%> 邮局用户管理</font>
<TABLE bgcolor="<%=Opt_Table_BGColor%>" border=0 cellPadding=2 cellSpacing=1 width="100%">
   <tr bgcolor="<%=Opt_TR_BGColor%>">
      <td>用户名</td>
      <td>说明</td>
      <td>状态</td>
      <td>最后登陆日期</td>
      <td>操作</td>
   </tr>
<%
For I=0 to UBound(Users)
	if Trim(Users(I))<>"" then
		Er=Split(Users(I),"~")
		if I mod 2 =0 Then %>
		<tr bgcolor="<%=Opt_TD_BGColor1%>" height="20">
		<% else %>
		<tr bgcolor="<%=Opt_TD_BGColor2%>" height="20">
		<% end if %>
		<TD><%=Er(0)%></TD>
		<TD><%=Er(1)%></TD>
		<TD>
		<%
		if Er(2) then
			Response.Write "禁用"
		else
			Response.Write "启用"
		end if
		%>
		</TD>
		<TD><%=Er(3)%></TD>
		<td>
		<%
		if Er(2) then %>
		<a href="ManageMailUserDo.asp?OP=enable&ID=<%=PostID%>&UID=<%=Er(0)%>" class="a2">启用</a>
		<% else %>
		<a href="ManageMailUserDo.asp?OP=disable&ID=<%=PostID%>&UID=<%=Er(0)%>" class="a2">禁用</a>
		<% end if %>
		<a href="ViewMailBox.asp?OP=chgpass&ID=<%=PostID%>&UID=<%=Er(0)%>" class="a2">管理</a>
		</td>
		</TR>
<%
	end if
Next
%>
   <tr>
     <td colspan="5">
     <a href="http://mail.<%=Rs("BPostDN")%>"  target="_blank" 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
%>