deleteresdn.asp

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

<% ModuleCode="M0315" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../include/GetSysParam.asp"-->
<!--#include file="../../Include/WEBCtrl.asp"-->
<%
strIfHavePower="0"
if session("IsDomain")="YES" then
	strIfHavePower="1"
else
	strSQL ="select * from T_DNS_AllResDN where UserID=" & session("UserID") & " and ResDNID='" & Request("ID")&"'"
	Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.open strSQL,Cn
	if not (Rs.eof and Rs.bof) then
		strIfHavePower="1"
	end if
	Rs.Close
	set rs=nothing
end if
    
if (strIfHavePower="1") then

	if request("OKDel")<>"YES" then
	
	%>
		<center>
		<table class='uaeww'>
			<tr>
				<th>您要删除的解析域名为：</tt><%=request("domain_name")%>
				</th>
			</tr>
		</table>
		
		<form action="" method="post">
		您确定要删除这个解析域名?<br>
		<input type="hidden" name="OKDel" value="YES">
		<input type="hidden" name="ID" value="<%=Request("ID")%>">
		<input type="hidden" name="domain" value="<%=request("domain_name")%>">
		<input type="submit" value="确定">
		</form>
	
	<%
	else
		domain=request("domain")
		id=request("id")
		intOK=1
		if domain<>"" then
			ServerIP=Sys_Opt_DNS1_IP
			Zone=domain
			if DeleteZone(ServerIP,Zone,RetStr)=0 then		
				strSQL="Delete from T_DNS_DNSResolve Where DNID='" & ID & "'"
				Cn.Execute(StrSQL)
				
				if DeleteAllUrlDB(Sys_Opt_URLRedirectServer, ID)=0 then
					strSQL="Delete from T_DNS_URLRedirect Where DNID='" & ID & "'"
					Cn.Execute(StrSQL)
				end if
				strSQL="Delete from T_DNS_AllResDN Where ResDNID='" & id & "'"
				Cn.Execute(StrSQL)						
				response.write "<br>已经删除的解析域名为: "&domain
			else
				Response.Write "<br><br><P align='center' class='titletext'>错误！删除的解析域名的DNS失败，或者您没有解析域名!</p>"
			end if				
		end if
	end if
else
	Response.Write "<br><br><P align='center' class='titletext'>对不起，您无权删除此域名!</p>"
end if
%>
</center>
<%
Call PrintPageBottom
%>