<!--#include virtual="/incs/config.asp" -->

<%chk_log()%>
<%
''''''''''''''''''''''''''''''''
chk_newpwr 1,6,3
	dnme=SafeRequest("dnme")
	If dnme="" Then
	call errorpage(-2,"对不起，参数错误！")
	End If
if session("sysclass")>=5 then
query="select * from v_dmtlst   where d_dme ='"&dnme&"'"
elseif session("sysclass")>=4 then
query="select * from v_dmtlst  where d_dme ='"&dnme&"'  and  ((("&session("sysarestr")&" or u_myare=0) and u_rotnme='') or u_rotnme='"&session("usrname")&"')"
else
query="select * from v_dmtlst  where d_unme='"&session("usrname")&"' and d_dme ='"&dnme&"'"
end if
	conn.open constr
	rs.open query,conn,1,1
	
    if rs.recordcount<>1 then
	rs.close
	conn.close
	call errorpage(-2,"对不起，该通用网址不存在或者您无权操作！")
	end if
	domain_to_modi= rs("d_dme")
	rs.close
%>
  <%
   substrContent = "entryclass:dmt_odr"&Vend
   substrContent =substrContent& "entrytype:del"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&Vend
   substrContent = substrContent & "domainname:" & domain_to_modi & Vend
   substrContent = substrContent & "." & Vend
   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
   If left5= "10000" Then
      call okpage( "/master/pdtmng/dmt_mng/dmt_lst.asp")
   Else
      call errorpage(-2,doresult)
   end if

%>