<!--#include virtual="/incs/config.asp" -->
<!--#include virtual="/incs/md5.asp" -->
<%
response.expires=0
chk_log()
chk_newpwr 4,0,0
module=trim(SafeRequest("module"))
if module="" then 
call errorpage(-2,"对不起，参数错误！")
end if
select case module
case "plt_edt"
 pl_tstcnt_hst=right("00"&trim(SafeRequest("pl_tstcnt_hst")),2)
 pl_tstcnt_ftp=right("00"&trim(SafeRequest("pl_tstcnt_ftp")),2)
 pl_tstcnt_eml=right("00"&trim(SafeRequest("pl_tstcnt_eml")),2)
 pl_tstcnt_sql=right("00"&trim(SafeRequest("pl_tstcnt_sql")),2)
 pl_tstcnt=pl_tstcnt_hst&pl_tstcnt_ftp&pl_tstcnt_eml&pl_tstcnt_sql
   substrContent = "entryclass:sys2_mng"&Vend
   substrContent =substrContent& "entrytype:plt_edt"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent &"pl_stenme:"&trim(SafeRequest("pl_stenme"))&Vend
   substrContent = substrContent &"pl_steurl:"&trim(SafeRequest("pl_steurl"))&Vend
   substrContent = substrContent &"pl_usrnme_gst:"&trim(SafeRequest("pl_usrnme_gst"))&Vend
   substrContent = substrContent &"pl_usrnme_sys:"&trim(SafeRequest("pl_usrnme_sys"))&Vend
   substrContent = substrContent &"pl_usrnme_fat:"&trim(SafeRequest("pl_usrnme_fat"))&Vend
   substrContent = substrContent &"pl_usrpss_fat:"&trim(SafeRequest("pl_usrpss_fat"))&Vend
   substrContent = substrContent &"pl_usrpss_gst:"&trim(SafeRequest("pl_usrpss_gst"))&Vend
   substrContent = substrContent &"pl_dftprc:"&trim(SafeRequest("pl_dftprc"))&Vend
   substrContent = substrContent &"pl_dftpwr:"&trim(SafeRequest("pl_dftpwr"))&Vend
   substrContent = substrContent &"pl_dmectr_url:"&trim(SafeRequest("pl_dmectr_url"))&Vend
   substrContent = substrContent &"pl_hstctr_url:"&trim(SafeRequest("pl_hstctr_url"))&Vend
   substrContent = substrContent &"pl_ftpctr_url:"&trim(SafeRequest("pl_ftpctr_url"))&Vend
   substrContent = substrContent &"pl_emlctr_url:"&trim(SafeRequest("pl_emlctr_url"))&Vend
   substrContent = substrContent &"pl_sqlctr_url:"&trim(SafeRequest("pl_sqlctr_url"))&Vend
   substrContent = substrContent &"pl_pay_url:"&trim(SafeRequest("pl_pay_url"))&Vend
   substrContent = substrContent &"pl_copnme_cn:"&trim(SafeRequest("pl_copnme_cn"))&Vend
   substrContent = substrContent &"pl_copnme_en:"&trim(SafeRequest("pl_copnme_en"))&Vend
   substrContent = substrContent &"pl_adr_cn:"&trim(SafeRequest("pl_adr_cn"))&Vend
   substrContent = substrContent &"pl_cde:"&trim(SafeRequest("pl_cde"))&Vend
   substrContent = substrContent &"pl_emlask:"&trim(SafeRequest("pl_emlask"))&Vend
   substrContent = substrContent &"pl_emlfnc:"&trim(SafeRequest("pl_emlfnc"))&Vend
   substrContent = substrContent &"pl_emlsup:"&trim(SafeRequest("pl_emlsup"))&Vend
   substrContent = substrContent &"pl_emljob:"&trim(SafeRequest("pl_emljob"))&Vend
   substrContent = substrContent &"pl_tel_lng:"&trim(SafeRequest("pl_tel_lng"))&Vend
   substrContent = substrContent &"pl_tel_sht:"&trim(SafeRequest("pl_tel_sht"))&Vend
   substrContent = substrContent &"pl_fax:"&trim(SafeRequest("pl_fax"))&Vend
   substrContent = substrContent &"pl_oicq:"&trim(SafeRequest("pl_oicq"))&Vend
   substrContent = substrContent &"pl_emlsvr:"&trim(SafeRequest("pl_emlsvr"))&Vend
   substrContent = substrContent &"pl_emlath:"&trim(SafeRequest("pl_emlath"))&Vend
   substrContent = substrContent &"pl_emlmbx:"&trim(SafeRequest("pl_emlmbx"))&Vend
   substrContent = substrContent &"pl_emlpss:"&trim(SafeRequest("pl_emlpss"))&Vend
   substrContent = substrContent &"pl_emlnme:"&trim(SafeRequest("pl_emlnme"))&Vend
   substrContent = substrContent &"pl_emldme:"&trim(SafeRequest("pl_emldme"))&Vend
   substrContent = substrContent &"pl_emldmc:"&trim(SafeRequest("pl_emldmc"))&Vend
   substrContent = substrContent &"pl_emldmt:"&trim(SafeRequest("pl_emldmt"))&Vend
   substrContent = substrContent &"pl_emlhst:"&trim(SafeRequest("pl_emlhst"))&Vend
   substrContent = substrContent &"pl_emleml:"&trim(SafeRequest("pl_emleml"))&Vend
   substrContent = substrContent &"pl_emlftp:"&trim(SafeRequest("pl_emlftp"))&Vend
   substrContent = substrContent &"pl_emldsn:"&trim(SafeRequest("pl_emldsn"))&Vend
   substrContent = substrContent &"pl_emlser:"&trim(SafeRequest("pl_emlser"))&Vend
   substrContent = substrContent &"pl_emlset:"&trim(SafeRequest("pl_emlset"))&Vend
   substrContent = substrContent &"pl_emladv:"&trim(SafeRequest("pl_emladv"))&Vend
   substrContent = substrContent &"pl_emlsql:"&trim(SafeRequest("pl_emlsql"))&Vend
   substrContent = substrContent &"pl_tstcnt:"&pl_tstcnt&Vend
   substrContent = substrContent &"pl_iflog:"&trim(SafeRequest("pl_iflog"))&Vend
   substrContent = substrContent &"pl_ifonl:"&trim(SafeRequest("pl_ifonl"))&Vend
   substrContent = substrContent &"pl_emlsgl:"&trim(SafeRequest("pl_emlsgl"))&Vend
   substrContent = substrContent &"pl_newifcfm:"&trim(SafeRequest("pl_newifcfm"))&Vend
   substrContent = substrContent &"pl_ifsecnum:"&trim(SafeRequest("pl_ifsecnum"))&Vend
   substrContent = substrContent &"."&Vend
pageturn="/master/sysmng/plt_mng/index.asp"
case "plt_dns"
   substrContent = "entryclass:sys2_mng"&Vend
   substrContent =substrContent& "entrytype:plt_dns"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent &"pl_dmequy:"&trim(SafeRequest("pl_dmequy"))&Vend
   substrContent = substrContent &"pl_dftcpr:"&trim(SafeRequest("pl_dftcpr"))&Vend
   substrContent = substrContent &"pl_ifdns2:"&trim(SafeRequest("pl_ifdns2"))&Vend
   substrContent = substrContent &"allcount:"&trim(SafeRequest("allcount"))&Vend
   for tempcnt=1 to  trim(SafeRequest("allcount"))
   substrContent = substrContent &"pl_stt"&tempcnt&":"&trim(SafeRequest("pl_stt"&tempcnt))&Vend
   substrContent = substrContent &"pl_nme"&tempcnt&":"&trim(SafeRequest("pl_nme"&tempcnt))&Vend
   substrContent = substrContent &"pl_dns1"&tempcnt&":"&trim(SafeRequest("pl_dns1"&tempcnt))&Vend
   substrContent = substrContent &"pl_dns2"&tempcnt&":"&trim(SafeRequest("pl_dns2"&tempcnt))&Vend
   substrContent = substrContent &"pl_ip1"&tempcnt&":"&trim(SafeRequest("pl_ip1"&tempcnt))&Vend
   substrContent = substrContent &"pl_ip2"&tempcnt&":"&trim(SafeRequest("pl_ip2"&tempcnt))&Vend
   substrContent = substrContent &"pl_urldo"&tempcnt&":"&trim(SafeRequest("pl_urldo"&tempcnt))&Vend
   substrContent = substrContent &"pl_urlip"&tempcnt&":"&trim(SafeRequest("pl_urlip"&tempcnt))&Vend
   substrContent = substrContent &"pl_psssme"&tempcnt&":"&trim(SafeRequest("pl_psssme"&tempcnt))&Vend
   substrContent = substrContent &"pl_pri"&tempcnt&":"&trim(SafeRequest("pl_pri"&tempcnt))&Vend
   substrContent = substrContent &"pl_adr"&tempcnt&":"&trim(SafeRequest("pl_adr"&tempcnt))&Vend
   substrContent = substrContent &"pl_prt"&tempcnt&":"&trim(SafeRequest("pl_prt"&tempcnt))&Vend
   substrContent = substrContent &"pl_usrnme"&tempcnt&":"&trim(SafeRequest("pl_usrnme"&tempcnt))&Vend
   substrContent = substrContent &"pl_usrpss"&tempcnt&":"&trim(SafeRequest("pl_usrpss"&tempcnt))&Vend
   next
  substrContent = substrContent &"."&Vend
pageturn="/master/sysmng/plt_mng/dns_idx.asp"

case "dmeskt"
   substrContent = "entryclass:skt_tst"&Vend
   substrContent =substrContent& "entrytype:dmeskt"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent &"cpnme:"&trim(SafeRequest("cpnme"))&Vend
   substrContent = substrContent &"socket_adr:"&trim(SafeRequest("socket_adr"))&Vend
   substrContent = substrContent &"socket_prt:"&trim(SafeRequest("socket_prt"))&Vend
   substrContent = substrContent &"socket_usr:"&trim(SafeRequest("socket_usr"))&Vend
   substrContent = substrContent &"socket_pss:"&trim(SafeRequest("socket_pss"))&Vend
   substrContent = substrContent &"."&Vend
pageturn="/master/sysmng/plt_mng/plt_dns.asp"
case "ato_edt"
   substrContent = "entryclass:sys2_mng"&Vend
   substrContent =substrContent& "entrytype:ato_edt"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent &"pl_ipsfttms:"&trim(SafeRequest("pl_ipsfttms"))&Vend
   substrContent = substrContent &"pl_ipsftday:"&trim(SafeRequest("pl_ipsftday"))&Vend
   substrContent = substrContent &"pl_iphrdtms:"&trim(SafeRequest("pl_iphrdtms"))&Vend
   substrContent = substrContent &"pl_dskqta_alm:"&trim(SafeRequest("pl_dskqta_alm"))&Vend
   substrContent = substrContent &"pl_alm_bcc:"&trim(SafeRequest("pl_alm_bcc"))&Vend
   substrContent = substrContent &"pl_del_odr:"&trim(SafeRequest("pl_del_odr"))&Vend
   substrContent = substrContent &"pl_expstp:"&trim(SafeRequest("pl_expstp"))&Vend
   substrContent = substrContent &"pl_expdel:"&trim(SafeRequest("pl_expdel"))&Vend
   substrContent = substrContent &"pl_expdel_all:"&trim(SafeRequest("pl_expdel_all"))&Vend
   substrContent = substrContent &"pl_expstp_tst:"&trim(SafeRequest("pl_expstp_tst"))&Vend
   substrContent = substrContent &"pl_expdel_tst:"&trim(SafeRequest("pl_expdel_tst"))&Vend
   substrContent = substrContent &"pl_expdel_all_tst:"&trim(SafeRequest("pl_expdel_all_tst"))&Vend
   substrContent = substrContent &"pl_stptme_hur:"&trim(SafeRequest("pl_stptme_hur"))&Vend
   substrContent = substrContent &"pl_stptme_mnt:"&trim(SafeRequest("pl_stptme_mnt"))&Vend
   substrContent = substrContent &"pl_bck_tme:"&trim(SafeRequest("pl_bck_tme"))&Vend
   substrContent = substrContent &"pl_bck_tpe:"&trim(SafeRequest("pl_bck_tpe"))&Vend
   substrContent = substrContent &"."&Vend
pageturn="/master/sysmng/plt_mng/ato_idx.asp"
case "ato_eml"
   substrContent = "entryclass:sys2_mng"&Vend
   substrContent =substrContent& "entrytype:ato_eml"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent &"m_dme:"&trim(SafeRequest("m_dme"))&Vend
   substrContent = substrContent &"m_dmc:"&trim(SafeRequest("m_dmc"))&Vend
   substrContent = substrContent &"m_dmt:"&trim(SafeRequest("m_dmt"))&Vend
   substrContent = substrContent &"m_hst:"&trim(SafeRequest("m_hst"))&Vend
   substrContent = substrContent &"m_ftp:"&trim(SafeRequest("m_ftp"))&Vend
   substrContent = substrContent &"m_sql:"&trim(SafeRequest("m_sql"))&Vend
   substrContent = substrContent &"m_eml:"&trim(SafeRequest("m_eml"))&Vend
   substrContent = substrContent &"m_dsn:"&trim(SafeRequest("m_dsn"))&Vend
   substrContent = substrContent &"m_svr:"&trim(SafeRequest("m_svr"))&Vend
   substrContent = substrContent &"m_adv:"&trim(SafeRequest("m_adv"))&Vend
   substrContent = substrContent &"m_set:"&trim(SafeRequest("m_set"))&Vend
   substrContent = substrContent &"pl_bcktme_hur:"&trim(SafeRequest("pl_bcktme_hur"))&Vend
   substrContent = substrContent &"pl_bcktme_mnt:"&trim(SafeRequest("pl_bcktme_mnt"))&Vend
    substrContent = substrContent &"pl_rnwtme_hur:"&trim(SafeRequest("pl_rnwtme_hur"))&Vend
   substrContent = substrContent &"pl_rnwtme_mnt:"&trim(SafeRequest("pl_rnwtme_mnt"))&Vend
  substrContent = substrContent &"."&Vend
pageturn="/master/sysmng/plt_mng/ato_idx.asp"
case "onl_edt"
   substrContent = "entryclass:sys2_mng"&Vend
   substrContent =substrContent& "entrytype:onl_edt"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent &"allcount:"&trim(SafeRequest("allcount"))&Vend
   for tempcnt=1 to  trim(SafeRequest("allcount"))
   substrContent = substrContent &"p_stt"&tempcnt&":"&trim(SafeRequest("p_stt"&tempcnt))&Vend
   substrContent = substrContent &"p_nme"&tempcnt&":"&trim(SafeRequest("p_nme"&tempcnt))&Vend
   substrContent = substrContent &"p_payout"&tempcnt&":"&trim(SafeRequest("p_payout"&tempcnt))&Vend
   substrContent = substrContent &"p_paybck"&tempcnt&":"&trim(SafeRequest("p_paybck"&tempcnt))&Vend
   substrContent = substrContent &"p_usr"&tempcnt&":"&trim(SafeRequest("p_usr"&tempcnt))&Vend
   substrContent = substrContent &"p_pss"&tempcnt&":"&trim(SafeRequest("p_pss"&tempcnt))&Vend
   next
  substrContent = substrContent &"."&Vend
pageturn="/master/sysmng/plt_mng/onl_idx.asp"
case "ini_dme"
   substrContent = "entryclass:ini_mng"&Vend
   substrContent =substrContent& "entrytype:ini_dme"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent &"."&Vend
pageturn="/master/sysmng/plt_mng/ini_idx.asp"
case "delallpdt"
   substrContent = "entryclass:ini_mng"&Vend
   substrContent =substrContent& "entrytype:delallpdt"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent &"."&Vend
pageturn="/master/sysmng/plt_mng/ini_idx.asp"
case "delallemlmod"
   substrContent = "entryclass:ini_mng"&Vend
   substrContent =substrContent& "entrytype:delallemlmod"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent &"."&Vend
pageturn="/master/sysmng/plt_mng/ini_idx.asp"
case "ini_svr"
   substrContent = "entryclass:ini_mng"&Vend
   substrContent =substrContent& "entrytype:ini_svr"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent &"."&Vend
pageturn="/master/sysmng/plt_mng/ini_idx.asp"
case "ini_pdt"
   substrContent = "entryclass:ini_mng"&Vend
   substrContent =substrContent& "entrytype:ini_pdt"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent &"."&Vend
pageturn="/master/sysmng/plt_mng/ini_idx.asp"
case "ini_prc"
   substrContent = "entryclass:ini_mng"&Vend
   substrContent =substrContent& "entrytype:ini_prc"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent &"."&Vend
pageturn="/master/sysmng/plt_mng/ini_idx.asp"
case "ini_eml"
   substrContent = "entryclass:ini_mng"&Vend
   substrContent =substrContent& "entrytype:ini_eml"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent &"."&Vend
pageturn="/master/sysmng/plt_mng/ini_idx.asp"

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