deletedomain.asp

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

<% ModuleCode="M0310" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>

<!--#include file="domain_manage_class.asp"-->
<!--#include file="../../Include/WEBCtrl.asp"-->
<%
strIfHavePower="0"
if session("IsDomain")="YES" then
	strIfHavePower="1"
else
	strSQL ="select * from T_DNS_AllDN where UserID=" & session("UserID") & " and DNID='" & Request("ID")&"'"
	Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.open strSQL,Cn
	if not (Rs.eof and Rs.bof) then
		strIfHavePower="1"
	else
		strIfHavePower="0"
	end if
	Rs.Close
	set rs=nothing
end if
    
if (strIfHavePower="1") then
	set manage=new manage_domain
	manage.domain=request("domain_name")
	manage.DN_ID=Request("ID")
    
	manage.customer_id=session("UserID")
	manage.customer_password=session("UserPSW")


	if request("OKDel")<>"YES" then
		%>
		<center>
		<table class='uaeww'>
			<tr>
				<th>[您要删除的域名为：</tt><%= manage.domain%>]
				</th>
			</tr>
		</table>
		
		<form action="" method="post">
		您确定要删除这个域名?<br>
		<input type="hidden" name="OKDel" value="YES">
		<input type="hidden" name="ID" value="<%=manage.DN_ID%>">
		<input type="hidden" name="domain" value="<%= manage.domain%>">
		<input type="submit" value="确定">
		</form>
	
	<%
	else
		if not request("domain")="" then
			call manage.InitDB()
			call manage.InitSocket()
			
			if not manage.err_code=0 then
				response.write manage.err_code
			else
				call manage.DomainQuery()
				
				if not manage.err_code=0 then
					response.write manage.err_code
				else
					call manage.Delete()
					
					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>"
					else
						ServerIP=Sys_Opt_DNS1_IP
						Zone=manage.domain
						if DeleteZone(ServerIP,Zone,RetStr)=0 then
							strSQL="Delete from T_DNS_DNSResolve Where DNID='" & manage.DN_ID & "'"
							Cn.Execute(StrSQL)
							if DeleteAllUrlDB(Sys_Opt_URLRedirectServer, manage.DN_ID)=0 then
								strSQL="Delete from T_DNS_URLRedirect Where DNID='" & manage.DN_ID & "'"
								Cn.Execute(StrSQL)
							end if
							
							response.write "<br>已经删除的域名为: "&manage.domain
						else
							Response.Write "<br><br><P align='center' class='titletext'>错误！删除的域名的DNS失败!</p>"
						end if						
					end if
				end if
			end if
		end if
	end if
else
	Response.Write "<br><br><P align='center' class='titletext'>对不起，您无权删除此域名!</p>"
end if
%>
</center>
<%
Call PrintPageBottom
%>