<% on error resume next %>
<!--#include virtual="/incs/config.asp" -->
<!--#include virtual="/incs/present.asp" -->
<% chk_log()%>
<%

chk_newpwr 4,0,0
%>
  <%
	snme =SafeRequest("snme")
	module=trim(SafeRequest("module"))
	if snme="" then
	    call errorpage(-2,"对不起，参数错误！")
	end if
	if module="" then
	    call errorpage(-2,"对不起，参数错误！")
	end if
	conn.open constr
	rs.open "select * from setlst where   s_nme='"&snme&"'",conn,1,1

	if rs.recordcount<=0 then
	    call errorpage(-2,"对不起，该套餐不存在！")
	else
		domainname= lcase(trim(rs("s_dme")))
	End If
	rs.close
select case module	
	case "edt"
   substrContent = "entryclass:setadm"&Vend
   substrContent =substrContent& "entrytype:edt"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "s_nme:" & snme & Vend
   substrContent = substrContent & "s_pss:" & trim(SafeRequest("s_pss")) & Vend
   substrContent = substrContent & "s_prd:" & trim(SafeRequest("s_prd")) & Vend
   substrContent = substrContent & "s_regtpe:" & trim(SafeRequest("s_regtpe")) & Vend
   substrContent = substrContent & "s_regstt:" & trim(SafeRequest("s_regstt")) & Vend
   substrContent = substrContent & "years:" & trim(SafeRequest("years")) & Vend
   substrContent = substrContent & "s_yarcnt:" & trim(SafeRequest("s_yarcnt")) & Vend
   substrContent = substrContent & "s_prcstr:" & trim(SafeRequest("s_prcstr")) & Vend
   substrContent = substrContent & "s_addtme:" & trim(SafeRequest("s_addtme")) & Vend
   substrContent = substrContent & "s_exptme:" & trim(SafeRequest("s_exptme")) & Vend

   for i=1 to 5
   substrContent = substrContent & "s_prd"&i&":" & trim(SafeRequest("s_prd"&i)) & Vend
   substrContent = substrContent & "s_nme"&i&":" & trim(SafeRequest("s_nme"&i))&trim(SafeRequest("s_data"&i&"0")) & Vend
   substrContent = substrContent & "s_dat"&i&"1:" & trim(SafeRequest("s_dat"&i&"1")) & Vend
   substrContent = substrContent & "s_dat"&i&"2:" & trim(SafeRequest("s_dat"&i&"2")) & Vend
   substrContent = substrContent & "s_dat"&i&"3:" & trim(SafeRequest("s_dat"&i&"3")) & Vend
   substrContent = substrContent & "s_dat"&i&"4:" & trim(SafeRequest("s_dat"&i&"4")) & Vend
   substrContent = substrContent & "s_dat"&i&"5:" & trim(SafeRequest("s_dat"&i&"5")) & Vend
   next


   substrContent = substrContent & "dom_org:" & trim(SafeRequest("dom_org")) & Vend
   substrContent = substrContent & "dom_org_cn:" & trim(SafeRequest("dom_org_cn")) & Vend
   substrContent = substrContent & "dom_org_ping:" & trim(SafeRequest("dom_org_ping")) & Vend
   substrContent = substrContent & "dom_org_suo:" & trim(SafeRequest("dom_org_suo")) & 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 & "dom_co:" & trim(SafeRequest("dom_co")) & Vend
   substrContent = substrContent & "dom_co_cn:" & trim(SafeRequest("dom_co_cn")) & Vend
   substrContent = substrContent & "dom_st:" & trim(SafeRequest("dom_st")) & Vend
   substrContent = substrContent & "dom_st_cn:" & trim(SafeRequest("dom_st_cn")) & Vend
   substrContent = substrContent & "dom_ct:" & trim(SafeRequest("dom_ct")) & Vend
   substrContent = substrContent & "dom_ct_cn:" & trim(SafeRequest("dom_ct_cn")) & Vend
   substrContent = substrContent & "dom_adr1:" & trim(SafeRequest("dom_adr1")) & Vend
   substrContent = substrContent & "dom_adr1_cn:" & trim(SafeRequest("dom_adr1_cn")) & Vend
   substrContent = substrContent & "dom_pc:" & trim(SafeRequest("dom_pc")) & Vend
   substrContent = substrContent & "dom_ph:" & trim(SafeRequest("dom_ph")) & Vend
   substrContent = substrContent & "dom_fax:" & trim(SafeRequest("dom_fax")) & Vend
   substrContent = substrContent & "dom_em:" & trim(SafeRequest("dom_em")) & Vend
   substrContent = substrContent & "." & Vend
   turnurl="/master/pdtmng/set_mng/set_adm.asp?snme="&snme
   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/set_mng/set_own.asp?snme="&snme
   end select
 
   doresult = hzsocket(substrContent)
 
   left5=left(doresult,5)
   If left5= "10000" Then
      call okpage( turnurl)
   Else
      call errorpage(-2,doresult)
   end if

%>