<!--#include virtual="/incs/config.asp" -->
<%chk_log_usr()%>
<%
''''''''''''''''''''''''''''''''
conn.open constr
If SafeRequest("dnme")<>"" Then
	dnme=SafeRequest("dnme")
End If
If dnme="" Then
 call errorpage(-2,"错误域名!")
end if
	query="select * from dmelst where d_unme='"&session("usrname")&"'  and d_dme ='"&dnme&"'"
	  rs.open query,conn,1,1
	  if rs.recordcount<=0 then
      call errorpage(-2,"对不起，该域名不存在！")
      end if
	domain_to_modi= rs("d_dme")
	rs.close
%>
  <%
   substrContent = "entryclass:dme_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( "/control/dme_mng/dme_lst.asp")
   Else
      call errorpage(-2,doresult)
   end if

%>