managednsdo.asp

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

<% ModuleCode="M0310" %>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/Security.asp"-->
<!--#include file="../../Include/WEBCtrl.asp"-->
<!--#include file="../../Include/GetSysParam.asp"-->
<%

DNID=Request("ID")
OP=Request("OP")
HostName=Request.Form("HostName")
RRType=Request.Form("RRType")
Reference=Request.Form("Reference")
RRData=Request.Form("RRData")

strSQL="Select * from v_DomainList Where DNID='" & DNID & "'"
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=Sys_Opt_DNS1_IP
	Zone=Rs("DomainName")
	Dim RetStr
	Select Case OP
		Case "pause"
			if PauseZone(ServerIP,Zone,RetStr)=0 then
				strSQL="Update T_DNS_AllDN Set DNSStat='2' Where DNID='" & DNID & "'"
				Cn.Execute(StrSQL)
				Cn.Execute("SP_UserOP "& session("UserID")& ",'T_DNS_AllDN','域名DNS管理','" & DNID & "','pause','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
			end if
		Case "resume"
			if ResumeZone(ServerIP,Zone,RetStr)=0 then
				strSQL="Update T_DNS_AllDN Set DNSStat='1' Where DNID='" & DNID & "'"
				Cn.Execute(StrSQL)
				Cn.Execute("SP_UserOP "& session("UserID")& ",'T_DNS_AllDN','域名DNS管理','" & DNID & "','resume','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
			end if
		Case "add"
			if Trim(RRData)="" then
				Response.Redirect "ManageDNS.asp?ID=" & DNID
			end if
			Success=False
			Select Case RRType
				Case "A"
					if HostName="" then
						if AddHost(ServerIP,Zone,"@",RRData,RetStr)=0 then
							Success=True
							Reference="-"
						end if
					else
						if AddHost(ServerIP,Zone,HostName,RRData,RetStr)=0 then
							Success=True
							Reference="-"
						end if
					end if
				Case "MX"
					if HostName="" then
						if AddMailer(ServerIP,Zone,RRData,HostName,Reference,RetStr)=0 then
							Success=True
						end if
					else
						CmdStr=" /RecordAdd " & Zone & " " & HostName & " MX " & Reference & " " & RRData
						if ExecuteDNSCommand(ServerIP,CmdStr,RetStr)=0 then
							Success=True
						end if
					end if
				Case "CNAME"
					if HostName="" then
						if AddAlias(ServerIP,Zone,RRData,"@",RetStr)=0 then
							Success=True
							Reference="-"
						end if
					else
						if AddAlias(ServerIP,Zone,RRData,HostName,RetStr)=0 then
							Success=True
							Reference="-"
						end if
					end if
				Case "NS"
					if AddNameServer(ServerIP,Zone,RRData,RetStr)=0 then
						Success=True
						Reference="-"
					end if
				Case "TXT"
					if HostName="" then
						CmdStr=" /RecordAdd " & Zone & " @ TXT " & RRData
					else
						CmdStr=" /RecordAdd " & Zone & " " & HostName & " TXT " & RRData
					end if
					if ExecuteDNSCommand(ServerIP,CmdStr,RetStr)=0 then
						Success=True
						Reference="-"
					end if
			End Select
			
			if Success then
			
				Set RsNo= Cn.Execute("SP_PublicNObyRs 'P1170'")
				DRID=RsNo("Result")
				RsNo.Close
				
				strSQL="Insert into T_DNS_DNSResolve (DRID,DNID,HostName,TTL,RRType,Reference,RRData,CrtDate) values('" & +_
					DRID & "','" & DNID & "','" & HostName & "','3600','" & RRType & "','" & +_
					Reference & "','" & RRData & "',getdate())"
				Cn.Execute(StrSQL)
				Cn.Execute("SP_UserOP "& session("UserID")& ",'T_DNS_AllDN','域名DNS管理','" & DNID & "/" & DRID & "','add','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
			
			end if
		Case "del"
			DRID=Request.Form("DRID")
			Success=False
			Select Case RRType
				Case "A"
					if HostName="" then
						if DeleteHost(ServerIP,Zone,"@",RRData,RetStr)=0 then
							Success=True
						end if
					else
						if DeleteHost(ServerIP,Zone,HostName,RRData,RetStr)=0 then
							Success=True
						end if
					end if
				Case "MX"
					if HostName="" then
						if DeleteMailer(ServerIP,Zone,RRData,HostName,Reference,RetStr)=0 then
							Success=True
						end if
					else
						CmdStr=" /RecordDelete " & Zone & " " & HostName & " MX " & Reference & " " & RRData & " /f"
						if ExecuteDNSCommand(ServerIP,CmdStr,RetStr)=0 then
							Success=True
						end if
					end if
				Case "CNAME"
					if DeleteAlias(ServerIP,Zone,HostName,RetStr)=0 then
						Success=True
					end if
				Case "NS"
					if DeleteNameServer(ServerIP,Zone,RRData,RetStr)=0 then
						Success=True
					end if
				Case "TXT"
					if HostName="" then
						CmdStr=" /RecordDelete " & Zone & " @ TXT " & RRData & " /f"
					else
						CmdStr=" /RecordDelete " & Zone & " " & HostName & " TXT " & RRData & " /f"
					end if
					if ExecuteDNSCommand(ServerIP,CmdStr,RetStr)=0 then
						Success=True
					end if
			End Select
			
			if Success then
				
				strSQL="Delete from T_DNS_DNSResolve Where DRID='" & DRID & "'"
				Cn.Execute(StrSQL)
				Cn.Execute("SP_UserOP "& session("UserID")& ",'T_DNS_AllDN','域名DNS管理','" & DNID & "/" & DRID & "','del','"& Request.ServerVariables("REMOTE_ADDR") &"'" )
			
			end if
	End Select
end if

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

Response.Redirect "ManageDNS.asp?ID=" & DNID
%>