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

<%chk_log_usr()%>
  <%
	dnme =SafeRequest("dnme")
	conn.open constr
query="select * from dmtlst where d_dme='"&dnme&"'"
rs.open query,conn,1,1
if rs.eof then
 call errorpage(-2,"对不起，该通用网址不存在！")
 end if
 domainname=trim(rs("d_dme"))
 rs.close
 conn.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:" &domainname & Vend
   substrContent = substrContent & "." & Vend
   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
   If left5= "10000" Then
      call okpage( "/control/dmt_mng/dmt_lst.asp")
   Else
      call errorpage(-2,doresult)
   end if

%>