<% on error resume next %>
<!--#include virtual="/incs/config.asp" -->
<!--#include virtual="/incs/present.asp" -->
<% chk_log()%>
  <%
chk_newpwr 4,0,0
	module=trim(SafeRequest("module"))
	if module="" then
	    call errorpage(-2,"对不起，参数错误！")
	end if
	dnme=SafeRequest("dnme")
If dnme="" Then
 call errorpage(-2,"请选择域名!")
end if
	conn.open constr
if session("sysclass")>=5 then
query="select * from v_dmelst   where d_dme ='"&dnme&"'"
elseif session("sysclass")>=4 then
query="select * from v_dmelst  where d_dme ='"&dnme&"'  and  ((("&session("sysarestr")&" or u_myare=0) and u_rotnme='') or u_rotnme='"&session("usrname")&"')"
end if
	rs.open query,conn,1,1
	  if rs.recordcount<>1 then
      call errorpage(-2,"对不起，该域名不存在！")
      end if
	   d_prd=trim(rs("d_prd"))
		d_dme = lcase(trim(rs("d_dme")))
		domainname=d_dme
	rs.close
	
select case 	 module
case "dme_edta"
substrContent = "entryclass:dme_mng"&Vend
   substrContent =substrContent& "entrytype:dme_edta"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "domainname:" & domainname & Vend
   substrContent = substrContent & "d_dme:" & trim(SafeRequest("d_dme")) & Vend
   substrContent = substrContent & "d_prd:" & trim(SafeRequest("d_prd")) & Vend
   substrContent = substrContent & "d_regtpe:" & trim(SafeRequest("d_regtpe")) & Vend
   substrContent = substrContent & "d_regstt:" & trim(SafeRequest("d_regstt")) & Vend
   substrContent = substrContent & "d_cpr:" & trim(SafeRequest("d_cpr")) & Vend
   substrContent = substrContent & "d_dnspri:" & trim(SafeRequest("d_dnspri")) & Vend
   substrContent = substrContent & "d_urlpri:" & trim(SafeRequest("d_urlpri")) & Vend
   substrContent = substrContent & "d_cprnme:" & trim(SafeRequest("d_cprnme")) & Vend
   substrContent = substrContent & "d_maxdns:" & trim(SafeRequest("d_maxdns")) & Vend
   substrContent = substrContent & "d_prcstr:" & trim(SafeRequest("d_prcstr")) & Vend
   substrContent = substrContent & "years:" & trim(SafeRequest("years")) & Vend
   substrContent = substrContent & "d_yarcnt:" & trim(SafeRequest("d_yarcnt")) & Vend
   substrContent = substrContent & "d_addtme:" & trim(SafeRequest("d_addtme")) & Vend
   substrContent = substrContent & "d_exptme:" & trim(SafeRequest("d_exptme")) & Vend
   substrContent = substrContent & "d_dnshst1:" & trim(SafeRequest("d_dnshst1")) & Vend
   substrContent = substrContent & "d_dnshst2:" & trim(SafeRequest("d_dnshst2")) & Vend
   substrContent = substrContent & "d_dnsip1:" & trim(SafeRequest("d_dnsip1")) & Vend
   substrContent = substrContent & "d_dnsip2:" & trim(SafeRequest("d_dnsip2")) & Vend
   substrContent = substrContent & "d_ifpay:" & trim(SafeRequest("d_ifpay")) & Vend
   substrContent = substrContent & "dom_org:" & trim(SafeRequest("dom_org")) & Vend
   substrContent = substrContent & "dom_org_cn:" & trim(SafeRequest("dom_org_cn")) & Vend
   substrContent = substrContent & "dom_ln:" & trim(SafeRequest("dom_ln")) & Vend
   substrContent = substrContent & "dom_ln_cn:" & trim(SafeRequest("dom_ln_cn")) & Vend
   substrContent = substrContent & "dom_fn:" & trim(SafeRequest("dom_fn")) & Vend
   substrContent = substrContent & "dom_fn_cn:" & trim(SafeRequest("dom_fn_cn")) & Vend
   substrContent = substrContent & "content:" & trim(SafeRequest("content")) & Vend
   substrContent = substrContent & "." & Vend
   turnurl="/master/pdtmng/dme_mng/dme_adm.asp?dnme="&dnme
   case "own"
          substrcontent = "entryclass:sys2_mng" & Vend
          substrcontent = substrcontent & "entrytype:own" & Vend
          substrcontent = substrcontent & "entryuser:" & entryuser & Vend
          substrcontent = substrcontent & "entrypass:" & entrypass & Vend
          substrcontent = substrcontent & "agentname:" & agentname & Vend
          substrcontent = substrcontent & "g_prd:" & SafeRequest("g_prd") & Vend
          substrcontent = substrcontent & "g_pnme:" & SafeRequest("g_pnme") & Vend
          substrcontent = substrcontent & "ifall:" & SafeRequest("ifall") & Vend
          substrcontent = substrcontent & "oldunme:" & SafeRequest("oldunme") & Vend
          substrcontent = substrcontent & "newunme:" & trim(SafeRequest("newunme")) & Vend
          substrcontent = substrcontent & "." & Vend
   turnurl="/master/pdtmng/dme_mng/dme_own.asp?dnme="&dnme
   case "dme_edtb"
   substrContent = "entryclass:dme_mng"&Vend
   substrContent =substrContent& "entrytype:dme_edtb"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "domainname:" & domainname & Vend
   substrContent = substrContent & "pstprd1:" & trim(SafeRequestform("pstprd1")) & Vend
   substrContent = substrContent & "pstprd2:" & trim(SafeRequestform("pstprd2")) & Vend
   substrContent = substrContent & "pstprd3:" & trim(SafeRequestform("pstprd3")) & Vend
   substrContent = substrContent & "pstnme1:" & trim(SafeRequestform("pstnme1")) & Vend
   substrContent = substrContent & "pstnme2:" & trim(SafeRequestform("pstnme2")) & Vend
   substrContent = substrContent & "pstnme3:" & trim(SafeRequestform("pstnme3")) & Vend
   substrContent = substrContent & "setnme:" & trim(SafeRequestform("setnme")) & Vend
   substrContent = substrContent & "pstrotprd:" & trim(SafeRequestform("pstrotprd")) & Vend
   substrContent = substrContent & "pstrotnme:" & trim(SafeRequestform("pstrotnme")) & Vend
   substrContent = substrContent & "." & Vend
   turnurl="/master/pdtmng/dme_mng/dme_adm.asp?dnme="&dnme
'''''''''''''''''''''''''''''''

end select   
   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
   If left5= "10000" Then
      call okpage( turnurl)
   Else
      call errorpage(-2,doresult)
   end if

%>