modidnsserverdo.asp

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

<% ModuleCode="M0310" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
DNID=Request.Form("ID")
%>
<!--#include file="domain_manage_class.asp"-->

<%
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 Rs.Eof Then
	Response.Write "<br><br><P align='center' class='titletext'>对不起, 找不到此域名或者您没有权限！</p>"
else
%>
<!--#include file="../../Include/WEBCtrl.asp"-->

<!--#include file="DomainMenu.asp"-->
<%
	
	ServerIP=Sys_Opt_DNS1_IP
	Zone=Rs("DomainName")
	Dim RetStr
	
	OldDNS1Name=LCase(Trim(Rs("DNS1Name")))
	OldDNS2Name=LCase(Trim(Rs("DNS2Name")))
	NewDNS1Name=LCase(Trim(Request.Form("dnsname1")))
	NewDNS2Name=LCase(Trim(Request.Form("dnsname2")))

	set manage=new manage_domain
	manage.DN_ID=DNID
	manage.customer_id=session("UserID")
	manage.customer_password=session("UserPSW")
	manage.clID=session("UserID")
	manage.pwd=rs("DNPSW")
	manage.domaintype=rs("DNType")
	manage.domain=rs("DomainName")
	manage.dns1=NewDNS1Name
	manage.dns2=NewDNS2Name
	manage.pw=rs("DNPSW")
		
	'Response.Write OldDNS1Name & "','" & OldDNS2Name & "','" & NewDNS1Name & "','" & NewDNS2Name
	'Response.End

		
	if OldDNS1Name=NewDNS1Name and OldDNS2Name=NewDNS2Name then '-------------------------------------------和原来一样
		Response.Write "<br><br><P align='center' class='titletext'>输入的域名的DNS和原有的一样, 无需修改！</p>"
	else '-------------------------------------------------------------------------------------------------不一样
		call manage.InitDB()
		call manage.InitSocket()
		if not manage.err_code=0 then
			response.write "&nbsp;&nbsp;&nbsp;"&manage.err_code&"错误--初始化socket错误!"
		else
			call manage.changedns()
	
			if not manage.err_code=0 then
				response.write "<table class='uaeww'><tr><th rowspan=2></th>"
				response.write "<th align=left>操作失败，错误代码："&manage.err_code
				response.write "</th><tr><th align=left>错误信息："&err_msg(manage.err_code)
				response.write "</th></tr></table>"
				Call PrintPageBottom
				response.end
			else
				set Rs2=Cn.Execute("SP_DNModify '2',"&session("UserID")&",'"&manage.DN_ID&"','"&manage.dns1&"','"&manage.dns2&"','"&manage.pw&"','4','5','6','7','8','9','10','11','12','13','14','15','16','17','18',',"&Request.ServerVariables("REMOTE_ADDR")&"'")
				if rs2("result")="0" then
					reg.err_code=1
				end if				
				response.write "<font color=red>&nbsp;&nbsp;&nbsp;&nbsp;" & rs2("msg") & "</font><br>"
				rs2.close
				set rs2=nothing	
				if OldDNS1Name=Sys_Opt_DNS1_Name and OldDNS2Name=Sys_Opt_DNS2_Name then  '-------------------------原来在我司,新的不在我司
					if DeleteZone(ServerIP,Zone,RetStr)=0 then
						strSQL="Delete from T_DNS_DNSResolve Where DNID='" & DNID & "'"
						Cn.Execute(StrSQL)
						if DeleteAllUrlDB(Sys_Opt_URLRedirectServer, DNID)=0 then
							strSQL="Delete from T_DNS_URLRedirect Where DNID='" & DNID & "'"
							Cn.Execute(StrSQL)
						end if
	
						Cn.Execute("SP_UserOP "& session("UserID")& ",'T_DNS_AllDN','域名改DNS','" & DNID & "','转出','"& Request.ServerVariables("REMOTE_ADDR") &"'")
						
						Response.Write "<br><br><P align='center' class='titletext'>修改域名的DNS成功! 您的域名的DNS服务已从我司转出</p>"
					else
						Response.Write "<br><br><P align='center' class='titletext'>修改域名的DNS失败! 请重新尝试 </p>"
					end if
				else '---------------------------------------------------------------------------------------------原来不在我司
					if NewDNS1Name=Sys_Opt_DNS1_Name and NewDNS2Name=Sys_Opt_DNS2_Name then '------------------------新的在我司
						if AddPrimaryZone(ServerIP,Zone, NewDNS1Name, NewDNS2Name,RetStr)=0 then
							'strSQL="Update T_DNS_AllDN Set DNS1Name='" & NewDNS1Name & "',DNS2Name='" & NewDNS2Name & "',DNSStat='1' Where DNID='" & DNID & "'"
							'Cn.Execute(StrSQL)
							Cn.Execute("SP_UserOP "& session("UserID")& ",'T_DNS_AllDN','域名改DNS','" & DNID & "','转入','"& Request.ServerVariables("REMOTE_ADDR") &"'")
							
							%>
							<br><br><P align='center' class='titletext'>修改域名的DNS成功! 您的域名DNS服务已转入我司, 您可以进行<a href="ManageDNS.asp?ID=<%=DNID%>" class="a2">DNS解析管理</a>
							</p>
							<%
						else
							Response.Write "<br><br><P align='center' class='titletext'>修改域名的DNS失败! 请重新尝试 2</p>"
						end if				
					else '-------------------------------------------------------------------------------------------新的也不在我司
						strSQL="Update T_DNS_AllDN Set DNS1Name='" & NewDNS1Name & "',DNS2Name='" & NewDNS2Name & "' Where DNID='" & DNID & "'"
						Cn.Execute(StrSQL)
						Cn.Execute("SP_UserOP "& session("UserID")& ",'T_DNS_AllDN','域名改DNS','" & DNID & "','修改','"& Request.ServerVariables("REMOTE_ADDR") &"'")
						
						Response.Write "<br><br><P align='center' class='titletext'>修改域名的DNS成功! </p>"
					end if
				end if
			end if
		end if
   	end if
end if

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