<% 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=SafeRequest("module")
	if snme="" then
	    call errorpage(-2,"对不起，参数错误！")
	end if
	if module="" then
	    call errorpage(-2,"对不起，参数错误！")
	end if
	conn.open constr
	query="select * from v_svrlst where  s_nme='"&snme&"'"
	rs.open query,conn,1,1
	if rs.recordcount<=0 then
	    call errorpage(-2,"对不起，该订单不存在！")
	End If
	s_nme=trim(rs("s_nme"))
	rs.close
   turnurl="/master/pdtmng/svr_mng/svr_adm.asp?snme="&snme
	select case module
	case "svr_ctt"
substrContent = "entryclass:svr_mng"&Vend
   substrContent =substrContent &"entrytype:svr_ctt"&Vend
   substrContent =substrContent &"entryuser:"&entryuser&Vend
   substrContent =substrContent &"entrypass:"&entrypass&Vend
   substrContent =substrContent &"agentname:"&agentname&Vend
   substrContent = substrContent  &"s_nme:" & s_nme & Vend
   substrContent = substrContent  &"s_copnme_cn:" & trim(SafeRequestform("s_copnme_cn")) & Vend
   substrContent = substrContent  &"s_ctt_cn:" & trim(SafeRequestform("s_ctt_cn")) & Vend
   substrContent = substrContent  &"s_prv_cn:" & trim(SafeRequestform("s_prv_cn")) & Vend
   substrContent = substrContent  &"s_adr_cn:" & trim(SafeRequestform("s_adr_cn")) & Vend
   substrContent = substrContent  &"s_cde:" & trim(SafeRequestform("s_cde")) & Vend
   substrContent = substrContent  &"s_tel:" & trim(SafeRequestform("s_tel")) & Vend
   substrContent = substrContent  &"s_fax:" & trim(SafeRequestform("s_fax")) & Vend
   substrContent = substrContent  &"s_eml:" & trim(SafeRequestform("s_eml")) & Vend
   substrContent = substrContent  &"." & Vend
   case "svr_edta"
      substrContent = "entryclass:svr_mng"&Vend
   substrContent =substrContent &"entrytype:svr_edta"&Vend
   substrContent =substrContent &"entryuser:"&entryuser&Vend
   substrContent =substrContent &"entrypass:"&entrypass&Vend
   substrContent =substrContent &"agentname:"&agentname&Vend
   substrContent = substrContent  &"s_nme:" & s_nme & Vend
   substrContent = substrContent  &"s_prd:" & trim(SafeRequestform("s_prd")) & Vend
   substrContent = substrContent  &"s_regtpe:" & trim(SafeRequestform("s_regtpe")) & Vend
   substrContent = substrContent  &"s_regstt:" & trim(SafeRequestform("s_regstt")) & Vend
   substrContent = substrContent  &"s_prcstr:" & trim(SafeRequestform("s_prcstr")) & Vend
   substrContent = substrContent  &"s_cprnme:" & trim(SafeRequestform("s_cprnme")) & Vend
   substrContent = substrContent  &"years:" & trim(SafeRequestform("years")) & Vend
   substrContent = substrContent  &"s_yarcnt:" & trim(SafeRequestform("s_yarcnt")) & Vend
   substrContent = substrContent  &"s_addtme:" & trim(SafeRequestform("s_addtme")) & Vend
   substrContent = substrContent  &"s_exptme:" & trim(SafeRequestform("s_exptme")) & Vend
   substrContent = substrContent  &"s_ifpay:" & trim(SafeRequestform("s_ifpay")) & Vend
   substrContent = substrContent  &"s_idc:" & trim(SafeRequest("s_idc")) & VEnd
   substrContent = substrContent  &"s_ucnt:" & trim(SafeRequest("s_ucnt")) & VEnd
   substrContent = substrContent  &"s_cpu:" & trim(SafeRequest("s_cpu")) & VEnd
   substrContent = substrContent  &"s_ram:" & trim(SafeRequest("s_ram")) & VEnd
   substrContent = substrContent  &"s_hd:" & trim(SafeRequest("s_hd")) & VEnd
   substrContent = substrContent  &"s_ip:" & trim(SafeRequest("s_ip")) & VEnd
   substrContent = substrContent  &"s_oth:" & trim(SafeRequest("s_oth")) & VEnd
   substrContent = substrContent  &"s_bnd:" & trim(SafeRequest("s_bnd")) & VEnd
   substrContent = substrContent  &"content:" & trim(SafeRequest("content")) & VEnd
   substrContent = substrContent  &"." & Vend
case "svr_edtb"
   substrContent = "entryclass:svr_mng"&Vend
   substrContent =substrContent& "entrytype:svr_edtb"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "s_nme:" & s_nme & 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
'''''''''''''''''''''''''''''''
    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/svr_mng/svr_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

%>































