<% on error resume next %>
<!--#include virtual="/incs/config.asp" -->
<!--#include virtual="/incs/present.asp" -->
<% chk_log()%>
  <%
chk_newpwr 4,0,0
	dnme =SafeRequest("dnme")
	module=trim(SafeRequest("module"))
	if dnme= "" then
	    call errorpage(-2,"对不起，参数错误！")
	end if
	if module="" then
	    call errorpage(-2,"对不起，参数错误！")
	end if
	conn.open constr
	rs.open "select * from v_dmclst where   d_dme= '"&dnme&"'",conn,3

	if rs.recordcount<=0 then
	    call errorpage(-2,"对不起，该域名不存在！")
	else
	   d_prd=trim(rs("d_prd"))
		d_dme = lcase(trim(rs("d_dme")))
		domainname=d_dme
	End If
	rs.close
	
select case 	 module
case "dmc_edta"
substrContent = "entryclass:dmc_mng"&Vend
   substrContent =substrContent& "entrytype:dmc_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_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 & "content:" & trim(SafeRequest("content")) & Vend
   substrContent = substrContent & "." & Vend
   turnurl="/master/pdtmng/dmc_mng/dmc_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/dmc_mng/dmc_own.asp?dnme="&dnme
   case "dmc_edtb"
   substrContent = "entryclass:dmc_mng"&Vend
   substrContent =substrContent& "entrytype:dmc_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/dmc_mng/dmc_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

%>