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

	knme =SafeRequest("knme")
	module=SafeRequest("module")
	if knme="" then
	    call errorpage(-2,"对不起，参数错误！")
	end if
	if module="" then
	    call errorpage(-2,"对不起，参数错误！")
	end if
	conn.open constr
	query="select * from v_dsnlst where  k_nme='"&knme&"'"
	rs.open query,conn,1,1
	if rs.recordcount<=0 then
	    call errorpage(-2,"对不起，该订单不存在！")
	End If
	k_nme=trim(rs("k_nme"))
	rs.close
   turnurl="/master/pdtmng/dsn_mng/dsn_adm.asp?knme="&knme
	select case module
	case "dsn_ctt"
substrContent = "entryclass:dsn_mng"&Vend
   substrContent =substrContent &"entrytype:dsn_ctt"&Vend
   substrContent =substrContent &"entryuser:"&entryuser&Vend
   substrContent =substrContent &"entrypass:"&entrypass&Vend
   substrContent =substrContent &"agentname:"&agentname&Vend
   substrContent = substrContent  &"k_nme:" & k_nme & Vend
   substrContent = substrContent  &"k_copnme_cn:" & trim(SafeRequestform("k_copnme_cn")) & Vend
   substrContent = substrContent  &"k_ctt_cn:" & trim(SafeRequestform("k_ctt_cn")) & Vend
   substrContent = substrContent  &"k_prv_cn:" & trim(SafeRequestform("k_prv_cn")) & Vend
   substrContent = substrContent  &"k_adr_cn:" & trim(SafeRequestform("k_adr_cn")) & Vend
   substrContent = substrContent  &"k_cde:" & trim(SafeRequestform("k_cde")) & Vend
   substrContent = substrContent  &"k_tel:" & trim(SafeRequestform("k_tel")) & Vend
   substrContent = substrContent  &"k_fax:" & trim(SafeRequestform("k_fax")) & Vend
   substrContent = substrContent  &"k_eml:" & trim(SafeRequestform("k_eml")) & Vend
   substrContent = substrContent  &"." & Vend
   case "dsn_edta"
      substrContent = "entryclass:dsn_mng"&Vend
   substrContent =substrContent &"entrytype:dsn_edta"&Vend
   substrContent =substrContent &"entryuser:"&entryuser&Vend
   substrContent =substrContent &"entrypass:"&entrypass&Vend
   substrContent =substrContent &"agentname:"&agentname&Vend
   substrContent = substrContent  &"k_nme:" & k_nme & Vend
   substrContent = substrContent  &"k_prd:" & trim(SafeRequestform("k_prd")) & Vend
   substrContent = substrContent  &"k_regtpe:" & trim(SafeRequestform("k_regtpe")) & Vend
   substrContent = substrContent  &"k_regstt:" & trim(SafeRequestform("k_regstt")) & Vend
   substrContent = substrContent  &"k_prcstr:" & trim(SafeRequestform("k_prcstr")) & Vend
   substrContent = substrContent  &"k_cprnme:" & trim(SafeRequestform("k_cprnme")) & Vend
   substrContent = substrContent  &"years:" & trim(SafeRequestform("years")) & Vend
   substrContent = substrContent  &"k_yarcnt:" & trim(SafeRequestform("k_yarcnt")) & Vend
   substrContent = substrContent  &"k_addtme:" & trim(SafeRequestform("k_addtme")) & Vend
   substrContent = substrContent  &"k_exptme:" & trim(SafeRequestform("k_exptme")) & Vend
   substrContent = substrContent  &"k_ifpay:" & trim(SafeRequestform("k_ifpay")) & Vend
   substrContent = substrContent  &"k_stenme:" & trim(SafeRequest("k_stenme")) & VEnd
   substrContent = substrContent  &"k_dme:" & trim(SafeRequest("k_dme")) & VEnd
   substrContent = substrContent  &"k_cnt:" & trim(SafeRequest("k_cnt")) & VEnd
   substrContent = substrContent  &"content:" & trim(SafeRequest("content")) & VEnd
   substrContent = substrContent  &"." & Vend
case "dsn_edtb"
   substrContent = "entryclass:dsn_mng"&Vend
   substrContent =substrContent& "entrytype:dsn_edtb"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "k_nme:" & k_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/dsn_mng/dsn_own.asp?knme="&knme
  end select
   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
   If left5= "10000" Then
      call okpage( turnurl)
   Else
      call errorpage(-2,doresult)
   end if

%>































