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

	vnme =SafeRequest("vnme")
	module=SafeRequest("module")
	if vnme="" then
	    call errorpage(-2,"对不起，参数错误！")
	end if
	if module="" then
	    call errorpage(-2,"对不起，参数错误！")
	end if
	conn.open constr
	query="select * from v_advlst where  v_nme='"&vnme&"'"
	rs.open query,conn,1,1
	if rs.recordcount<=0 then
	    call errorpage(-2,"对不起，该订单不存在！")
	End If
	v_nme=trim(rs("v_nme"))
	vnme=v_nme
	rs.close
   turnurl="/master/pdtmng/adv_mng/adv_adm.asp?vnme="&vnme
	select case module
	case "adv_ctt"
substrContent = "entryclass:adv_mng"&Vend
   substrContent =substrContent &"entrytype:adv_ctt"&Vend
   substrContent =substrContent &"entryuser:"&entryuser&Vend
   substrContent =substrContent &"entrypass:"&entrypass&Vend
   substrContent =substrContent &"agentname:"&agentname&Vend
   substrContent = substrContent  &"v_nme:" & v_nme & Vend
   substrContent = substrContent  &"v_copnme_cn:" & trim(SafeRequestform("v_copnme_cn")) & Vend
   substrContent = substrContent  &"v_ctt_cn:" & trim(SafeRequestform("v_ctt_cn")) & Vend
   substrContent = substrContent  &"v_prv_cn:" & trim(SafeRequestform("v_prv_cn")) & Vend
   substrContent = substrContent  &"v_adr_cn:" & trim(SafeRequestform("v_adr_cn")) & Vend
   substrContent = substrContent  &"v_cde:" & trim(SafeRequestform("v_cde")) & Vend
   substrContent = substrContent  &"v_tel:" & trim(SafeRequestform("v_tel")) & Vend
   substrContent = substrContent  &"v_fax:" & trim(SafeRequestform("v_fax")) & Vend
   substrContent = substrContent  &"v_eml:" & trim(SafeRequestform("v_eml")) & Vend
   substrContent = substrContent  &"." & Vend
   case "adv_edta"
      substrContent = "entryclass:adv_mng"&Vend
   substrContent =substrContent &"entrytype:adv_edta"&Vend
   substrContent =substrContent &"entryuser:"&entryuser&Vend
   substrContent =substrContent &"entrypass:"&entrypass&Vend
   substrContent =substrContent &"agentname:"&agentname&Vend
   substrContent = substrContent  &"v_nme:" & v_nme & Vend
   substrContent = substrContent  &"v_prd:" & trim(SafeRequestform("v_prd")) & Vend
   substrContent = substrContent  &"v_regtpe:" & trim(SafeRequestform("v_regtpe")) & Vend
   substrContent = substrContent  &"v_regstt:" & trim(SafeRequestform("v_regstt")) & Vend
   substrContent = substrContent  &"v_prcstr:" & trim(SafeRequestform("v_prcstr")) & Vend
   substrContent = substrContent  &"v_cprnme:" & trim(SafeRequestform("v_cprnme")) & Vend
   substrContent = substrContent  &"years:" & trim(SafeRequestform("years")) & Vend
   substrContent = substrContent  &"v_yarcnt:" & trim(SafeRequestform("v_yarcnt")) & Vend
   substrContent = substrContent  &"v_addtme:" & trim(SafeRequestform("v_addtme")) & Vend
   substrContent = substrContent  &"v_exptme:" & trim(SafeRequestform("v_exptme")) & Vend
   substrContent = substrContent  &"v_ifpay:" & trim(SafeRequestform("v_ifpay")) & Vend
   substrContent = substrContent  &"v_mgr:" & trim(SafeRequestform("v_mgr")) & Vend
   substrContent = substrContent  &"v_kwd:" & trim(SafeRequestform("v_kwd")) & Vend
   substrContent = substrContent  &"v_plc:" & trim(SafeRequestform("v_plc")) & Vend
   substrContent = substrContent  &"v_cnt:" & trim(SafeRequestform("v_cnt")) & Vend
   substrContent = substrContent  &"content:" & trim(SafeRequestform("content")) & Vend
   substrContent = substrContent  &"v_steurl:" & trim(SafeRequestform("v_steurl")) & Vend
   substrContent = substrContent  &"v_stenme:" & trim(SafeRequestform("v_stenme")) & Vend
   substrContent = substrContent  &"." & Vend
case "adv_edtb"
   substrContent = "entryclass:adv_mng"&Vend
   substrContent =substrContent& "entrytype:adv_edtb"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "v_nme:" & v_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/adv_mng/adv_own.asp?vnme="&vnme

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

%>































