managemaildomain.asp

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

<% ModuleCode="M0510" %>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/Security.asp"-->
<!--#include file="../../Include/WEBCtrl.asp"-->
<%
PostID=Request.QueryString("ID")
OP=Request.QueryString("OP")
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 not Rs.Eof Then
	ServerIP=Rs("ServerIP")
	MailDomain=Rs("BPostDN")
	Select Case OP
		Case "enable"
			if EnableMailDomain(ServerIP,MailDomain)=0 then
				strSQL="Update T_DNS_AllPost Set PostStat='1' Where PostID='" & PostID & "'"
				Cn.Execute(StrSQL)
				Cn.Execute("SP_UserOP "& session("UserID") & ",'T_DNS_AllPost','邮局管理','" & PostID & "','启用','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
				
			end if
		Case "disable"
			if DisableMailDomain(ServerIP,MailDomain)=0 then
				strSQL="Update T_DNS_AllPost Set PostStat='2' Where PostID='" & PostID & "'"
				Cn.Execute(StrSQL)
				Cn.Execute("SP_UserOP "& session("UserID") & ",'T_DNS_AllPost','邮局管理','" & PostID & "','停用','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
			end if
	End Select
end if

Rs.Close
Set Rs=Nothing
Cn.Close
Set Cn=Nothing

Response.Redirect "ViewMailDetail.asp?ID=" & PostID
%>