<!--#include virtual="/incs/config.asp"-->
<%
chk_log()
chk_newpwr 4,0,0
module=trim(SafeRequest("module"))
pageturn="/master/sysmng/pdt_mng/svr_lst.asp"
select case module
case "app_add" '产品类型修改

   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:app_add"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "svrip:" &trim(SafeRequest("svrip"))& Vend
   substrContent = substrContent & "appnme:" &trim(SafeRequest("appnme"))& Vend
   substrContent = substrContent & "." & Vend
   pageturn="/master/sysmng/pdt_mng/svr_app.asp?svrip="&trim(SafeRequest("svrip"))&"&spid="&trim(SafeRequest("spid"))
case "svrcnt" '服务器连接测试

   substrContent = "entryclass:skt_tst"&Vend
   substrContent =substrContent& "entrytype:svrcnt"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "sp_svrip:" &trim(SafeRequest("sp_svrip"))& Vend
   substrContent = substrContent & "." & Vend
   pageturn="/master/sysmng/pdt_mng/svr_ctl.asp?spid="&SafeRequest("spid")
case "app_del" '产品类型修改

   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:app_del"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "svrip:" &trim(SafeRequest("svrip"))& Vend
   substrContent = substrContent & "appnme:" &trim(SafeRequest("appnme"))& Vend
   substrContent = substrContent & "." & Vend
   pageturn="/master/sysmng/pdt_mng/svr_app.asp?svrip="&trim(SafeRequest("svrip"))&"&spid="&trim(SafeRequest("spid"))
case "pt_add" '产品类型添加

   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:pt_add"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "pt_name:" &trim(SafeRequest("pt_name"))& Vend
   substrContent = substrContent & "pt_tag:" &trim(SafeRequest("pt_tag"))& Vend
   substrContent = substrContent & "pt_id:" &trim(SafeRequest("pt_id"))& Vend
   substrContent = substrContent & "pt_order:" &trim(SafeRequest("pt_order"))& Vend
   substrContent = substrContent & "pt_clr:" &trim(SafeRequest("pt_clr"))& Vend
   substrContent = substrContent & "pt_show:" &trim(SafeRequest("pt_show"))& Vend
   substrContent = substrContent & "pt_ifagt:" &trim(SafeRequest("pt_ifagt"))& Vend
   substrContent = substrContent & "." & Vend
   pageturn="/master/sysmng/pdt_mng/pdt_tpe.asp"
case "pt_del"
   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:pt_del"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "ptid:" &trim(SafeRequest("ptid"))& Vend
   substrContent = substrContent & "." & Vend
   pageturn="/master/sysmng/pdt_mng/pdt_tpe.asp"

case "pt_edt" '产品类型修改
  
     substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:pt_edt"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
conn.open constr
query="select * from pdttpe order by pt_id"
rs.open query,conn,1,1
while not rs.eof
   substrContent = substrContent & "pt_name_"&rs("ptid")&":" &trim(SafeRequest("pt_name_"&rs("ptid")))& Vend
   substrContent = substrContent & "pt_tag_"&rs("ptid")&":" &trim(SafeRequest("pt_tag_"&rs("ptid")))& Vend
   substrContent = substrContent & "pt_order_"&rs("ptid")&":" &trim(SafeRequest("pt_order_"&rs("ptid")))& Vend
   substrContent = substrContent & "pt_id_"&rs("ptid")&":" &trim(SafeRequest("pt_id_"&rs("ptid")))& Vend
   substrContent = substrContent & "pt_clr_"&rs("ptid")&":" &trim(SafeRequest("pt_clr_"&rs("ptid")))& Vend
   substrContent = substrContent & "pt_show_"&rs("ptid")&":" &trim(SafeRequest("pt_show_"&rs("ptid")))& Vend
   substrContent = substrContent & "pt_ifagt_"&rs("ptid")&":" &trim(SafeRequest("pt_ifagt_"&rs("ptid")))& Vend
rs.movenext   
wend
rs.close
conn.close   
   substrContent = substrContent & "." & Vend
   pageturn="/master/sysmng/pdt_mng/pdt_tpe.asp"
case "pc_add" '产品类型添加

   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:pc_add"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "pc_tid:" &trim(SafeRequest("pc_tid"))& Vend
   substrContent = substrContent & "pc_id:" &trim(SafeRequest("pc_id"))& Vend
   substrContent = substrContent & "pc_name:" &trim(SafeRequest("pc_name"))& Vend
   substrContent = substrContent & "pc_order:" &trim(SafeRequest("pc_order"))& Vend
   substrContent = substrContent & "pc_show:" &trim(SafeRequest("pc_show"))& Vend
   substrContent = substrContent & "pc_ifagt:" &trim(SafeRequest("pc_ifagt"))& Vend
   substrContent = substrContent & "." & Vend
   pageturn="/master/sysmng/pdt_mng/pdt_cls.asp?ptid="&SafeRequest("pc_tid")
case "pc_del"
conn.open constr
query="select * from pdtcls where pcid="&SafeRequest("pcid")
rs.open query,conn,1,1
ptid=rs("pc_tid")
rs.close
conn.close
   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:pc_del"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "pcid:" &trim(SafeRequest("pcid"))& Vend
   substrContent = substrContent & "." & Vend
   pageturn="/master/sysmng/pdt_mng/pdt_cls.asp?ptid="&ptid

case "pc_edt" '产品类型修改
   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:pc_edt"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "pcids:" &trim(SafeRequest("pcids"))& Vend

   pcidstr=replace(SafeRequest("pcids")," ","")
   pcids=split(pcidstr,",")
   for i=0 to ubound(pcids)
   temppcid=pcids(i)
   if chk_int(temppcid) then
   substrContent = substrContent & "pc_id_"&temppcid&":" &trim(SafeRequest("pc_id_"&temppcid))& Vend
   substrContent = substrContent & "pc_tid_"&temppcid&":" &trim(SafeRequest("pc_tid_"&temppcid))& Vend
   substrContent = substrContent & "pc_name_"&temppcid&":" &trim(SafeRequest("pc_name_"&temppcid))& Vend
   substrContent = substrContent & "pc_order_"&temppcid&":" &trim(SafeRequest("pc_order_"&temppcid))& Vend
   substrContent = substrContent & "pc_show_"&temppcid&":" &trim(SafeRequest("pc_show_"&temppcid))& Vend
   substrContent = substrContent & "pc_ifagt_"&temppcid&":" &trim(SafeRequest("pc_ifagt_"&temppcid))& Vend
   end if
   next
   substrContent = substrContent & "." & Vend
    pageturn="/master/sysmng/pdt_mng/pdt_cls.asp?ptid="&SafeRequest("pc_tid")
case "st_add" '服务器类型添加

   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:st_add"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "st_nme:" &trim(SafeRequest("st_nme"))& Vend
   substrContent = substrContent & "st_tid:" &trim(SafeRequest("st_tid"))& Vend
   substrContent = substrContent & "st_ifagt:" &trim(SafeRequest("st_ifagt"))& Vend
   substrContent = substrContent & "st_ifsme:" &trim(SafeRequest("st_ifsme"))& Vend
   substrContent = substrContent & "st_dftip:" &trim(SafeRequest("st_dftip"))& Vend
   substrContent = substrContent & "st_pln:" &trim(SafeRequest("st_pln"))& Vend
   substrContent = substrContent & "." & Vend
   pageturn="/master/sysmng/pdt_mng/svr_tpe.asp"

case "st_del"'服务器类型删除

   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:st_del"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "stid:" &trim(SafeRequest("stid"))& Vend
   substrContent = substrContent & "." & Vend
   pageturn="/master/sysmng/pdt_mng/svr_tpe.asp"

case "st_edt" '服务器类型修改

   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:st_edt"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "stid:" &trim(SafeRequest("stid"))& Vend
   substrContent = substrContent & "st_nme:" &trim(SafeRequest("st_nme"))& Vend
   substrContent = substrContent & "st_tid:" &trim(SafeRequest("st_tid"))& Vend
   substrContent = substrContent & "st_ifagt:" &trim(SafeRequest("st_ifagt"))& Vend
   substrContent = substrContent & "st_ifsme:" &trim(SafeRequest("st_ifsme"))& Vend
   substrContent = substrContent & "st_dftip:" &trim(SafeRequest("st_dftip"))& Vend
   substrContent = substrContent & "st_pln:" &trim(SafeRequest("st_pln"))& Vend
   substrContent = substrContent & "." & Vend
   pageturn="/master/sysmng/pdt_mng/svr_tpe.asp"
case "sc_add" '服务器类型添加

   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:sc_add"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "sc_nme:" &trim(SafeRequest("sc_nme"))& Vend
   substrContent = substrContent & "sc_sid:" &trim(SafeRequest("sc_sid"))& Vend
   substrContent = substrContent & "sc_ifagt:" &trim(SafeRequest("sc_ifagt"))& Vend
   substrContent = substrContent & "." & Vend
   pageturn="/master/sysmng/pdt_mng/svr_plc.asp"

case "sc_del"'服务器类型删除

   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:sc_del"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "scid:" &trim(SafeRequest("scid"))& Vend
   substrContent = substrContent & "." & Vend
   pageturn="/master/sysmng/pdt_mng/svr_plc.asp"

case "sc_edt" '服务器类型修改

   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:sc_edt"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "scid:" &trim(SafeRequest("scid"))& Vend
   substrContent = substrContent & "sc_nme:" &trim(SafeRequest("sc_nme"))& Vend
   substrContent = substrContent & "sc_sid:" &trim(SafeRequest("sc_sid"))& Vend
   substrContent = substrContent & "sc_ifagt:" &trim(SafeRequest("sc_ifagt"))& Vend
   substrContent = substrContent & "." & Vend
   pageturn="/master/sysmng/pdt_mng/svr_plc.asp"

case "svr_add" '服务器增加
   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:svr_add"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "sp_nme:" &trim(SafeRequest("sp_nme"))& Vend
   substrContent = substrContent & "sp_ifagt:" &trim(SafeRequest("sp_ifagt"))& Vend
   substrContent = substrContent & "sp_ip:" &trim(SafeRequest("sp_ip"))& Vend
   substrContent = substrContent & "sp_iplan:" &trim(SafeRequest("sp_iplan"))& Vend
   substrContent = substrContent & "sp_url:" &trim(SafeRequest("sp_url"))& Vend
   substrContent = substrContent & "sp_stt:" &trim(SafeRequest("sp_stt"))& Vend
   substrContent = substrContent & "sp_tpe:" &trim(SafeRequest("sp_tpe"))& Vend
    substrContent = substrContent & "sp_dme:" &trim(SafeRequest("sp_dme"))& Vend
   substrContent = substrContent & "sp_plc:" &trim(SafeRequest("sp_plc"))& Vend
   substrContent = substrContent & "sp_odr:" &trim(SafeRequest("sp_odr"))& Vend
   substrContent = substrContent & "sp_op:" &trim(SafeRequest("sp_op"))& Vend
   substrContent = substrContent & "sp_eml:" &trim(SafeRequest("sp_eml"))& Vend
   substrContent = substrContent & "sp_pss:" &trim(SafeRequest("sp_pss"))& Vend
   substrContent = substrContent & "sp_appid_asp:" &trim(SafeRequest("sp_appid_asp"))& Vend
   substrContent = substrContent & "sp_appid_cgi:" &trim(SafeRequest("sp_appid_cgi"))& Vend
   substrContent = substrContent & "sp_appid_php:" &trim(SafeRequest("sp_appid_php"))& Vend
   substrContent = substrContent & "sp_appid_net:" &trim(SafeRequest("sp_appid_net"))& Vend
   substrContent = substrContent & "sp_appid_dwn:" &trim(SafeRequest("sp_appid_dwn"))& Vend
   substrContent = substrContent & "sp_maxste:" &trim(SafeRequest("sp_maxste"))& Vend
   substrContent = substrContent & "sp_stecnt:" &trim(SafeRequest("sp_stecnt"))& Vend
   substrContent = substrContent & "sp_maxspc:" &trim(SafeRequest("sp_maxspc"))& Vend
   substrContent = substrContent & "sp_spccnt:" &trim(SafeRequest("sp_spccnt"))& Vend
   substrContent = substrContent & "sp_maxftpspc:" &trim(SafeRequest("sp_maxftpspc"))& Vend
   substrContent = substrContent & "sp_ftpspccnt:" &trim(SafeRequest("sp_ftpspccnt"))& Vend
   substrContent = substrContent & "sp_maxftp:" &trim(SafeRequest("sp_maxftp"))& Vend
   substrContent = substrContent & "sp_ftpcnt:" &trim(SafeRequest("sp_ftpcnt"))& Vend
   substrContent = substrContent & "sp_maxsqlspc:" &trim(SafeRequest("sp_maxsqlspc"))& Vend
   substrContent = substrContent & "sp_sqlspccnt:" &trim(SafeRequest("sp_sqlspccnt"))& Vend
   substrContent = substrContent & "sp_maxsql:" &trim(SafeRequest("sp_maxsql"))& Vend
   substrContent = substrContent & "sp_sqlcnt:" &trim(SafeRequest("sp_sqlcnt"))& Vend
   substrContent = substrContent & "sp_maxmysqlspc:" &trim(SafeRequest("sp_maxmysqlspc"))& Vend
   substrContent = substrContent & "sp_mysqlspccnt:" &trim(SafeRequest("sp_mysqlspccnt"))& Vend
   substrContent = substrContent & "sp_maxmysql:" &trim(SafeRequest("sp_maxmysql"))& Vend
   substrContent = substrContent & "sp_mysqlcnt:" &trim(SafeRequest("sp_mysqlcnt"))& Vend
   substrContent = substrContent & "sp_maxeml:" &trim(SafeRequest("sp_maxeml"))& Vend
   substrContent = substrContent & "sp_emlcnt:" &trim(SafeRequest("sp_emlcnt"))& Vend
   substrContent = substrContent & "sp_maxemlspc:" &trim(SafeRequest("sp_maxemlspc"))& Vend
   substrContent = substrContent & "sp_emlspccnt:" &trim(SafeRequest("sp_emlspccnt"))& Vend
   substrContent = substrContent & "sp_idc:" &trim(SafeRequest("sp_idc"))& Vend
   substrContent = substrContent & "sp_inf:" &trim(SafeRequest("sp_inf"))& Vend
   substrContent = substrContent & "sp_dnssvr:" &trim(SafeRequest("sp_dnssvr"))& Vend
   substrContent = substrContent & "sp_err:" &trim(SafeRequest("sp_err"))& Vend
   substrContent = substrContent & "." & Vend
      doresult = hzsocket(substrContent)
    left5=left(doresult,5)
   If left5= "10000" Then
       pageturn="/master/sysmng/pdt_mng/svr_edt.asp?spid="&getval(doresult,"sp_id")
 call okpage(pageturn)
   Else
      call errorpage(-2,doresult)
   end if

case "svr_del" '服务器删除

   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:svr_del"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "spid:" &trim(SafeRequest("spid"))& Vend
   substrContent = substrContent & "." & Vend

case "svr_edt" '服务器修改

sp_nme_new=trim(SafeRequest("sp_nme_new"))

   substrContent = "entryclass:sys_mng"&Vend
  if  instr(sp_nme_new,"服务器名")<=0 and sp_nme_new<>"" then
   substrContent =substrContent& "entrytype:svr_add"&Vend
   substrContent = substrContent & "sp_nme:" &sp_nme_new& Vend
   else
   substrContent =substrContent& "entrytype:svr_edt"&Vend
   substrContent = substrContent & "spid:" &trim(SafeRequest("spid"))& Vend
   pageturn="/master/sysmng/pdt_mng/svr_edt.asp?spid="&SafeRequest("spid")
   end if
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "sp_ip:" &trim(SafeRequest("sp_ip"))& Vend
   substrContent = substrContent & "sp_iplan:" &trim(SafeRequest("sp_iplan"))& Vend
  substrContent = substrContent & "sp_tpe:" &trim(SafeRequest("sp_tpe"))& Vend
   substrContent = substrContent & "sp_ifagt:" &trim(SafeRequest("sp_ifagt"))& Vend
   substrContent = substrContent & "sp_dme:" &trim(SafeRequest("sp_dme"))& Vend
   substrContent = substrContent & "sp_plc:" &trim(SafeRequest("sp_plc"))& Vend
   substrContent = substrContent & "sp_url:" &trim(SafeRequest("sp_url"))& Vend
   substrContent = substrContent & "sp_stt:" &trim(SafeRequest("sp_stt"))& Vend
   substrContent = substrContent & "sp_odr:" &trim(SafeRequest("sp_odr"))& Vend
   substrContent = substrContent & "sp_op:" &trim(SafeRequest("sp_op"))& Vend
   substrContent = substrContent & "sp_eml:" &trim(SafeRequest("sp_eml"))& Vend
   substrContent = substrContent & "sp_pss:" &trim(SafeRequest("sp_pss"))& Vend
   substrContent = substrContent & "sp_appid_asp:" &trim(SafeRequest("sp_appid_asp"))& Vend
   substrContent = substrContent & "sp_appid_cgi:" &trim(SafeRequest("sp_appid_cgi"))& Vend
   substrContent = substrContent & "sp_appid_php:" &trim(SafeRequest("sp_appid_php"))& Vend
   substrContent = substrContent & "sp_appid_net:" &trim(SafeRequest("sp_appid_net"))& Vend
   substrContent = substrContent & "sp_appid_dwn:" &trim(SafeRequest("sp_appid_dwn"))& Vend
   substrContent = substrContent & "sp_maxste:" &trim(SafeRequest("sp_maxste"))& Vend
   substrContent = substrContent & "sp_stecnt:" &trim(SafeRequest("sp_stecnt"))& Vend
   substrContent = substrContent & "sp_maxspc:" &trim(SafeRequest("sp_maxspc"))& Vend
   substrContent = substrContent & "sp_spccnt:" &trim(SafeRequest("sp_spccnt"))& Vend
   substrContent = substrContent & "sp_maxftpspc:" &trim(SafeRequest("sp_maxftpspc"))& Vend
   substrContent = substrContent & "sp_ftpspccnt:" &trim(SafeRequest("sp_ftpspccnt"))& Vend
   substrContent = substrContent & "sp_maxftp:" &trim(SafeRequest("sp_maxftp"))& Vend
   substrContent = substrContent & "sp_ftpcnt:" &trim(SafeRequest("sp_ftpcnt"))& Vend
   substrContent = substrContent & "sp_maxsqlspc:" &trim(SafeRequest("sp_maxsqlspc"))& Vend
   substrContent = substrContent & "sp_sqlspccnt:" &trim(SafeRequest("sp_sqlspccnt"))& Vend
   substrContent = substrContent & "sp_maxsql:" &trim(SafeRequest("sp_maxsql"))& Vend
   substrContent = substrContent & "sp_sqlcnt:" &trim(SafeRequest("sp_sqlcnt"))& Vend
   substrContent = substrContent & "sp_maxmysqlspc:" &trim(SafeRequest("sp_maxmysqlspc"))& Vend
   substrContent = substrContent & "sp_mysqlspccnt:" &trim(SafeRequest("sp_mysqlspccnt"))& Vend
   substrContent = substrContent & "sp_maxmysql:" &trim(SafeRequest("sp_maxmysql"))& Vend
   substrContent = substrContent & "sp_mysqlcnt:" &trim(SafeRequest("sp_mysqlcnt"))& Vend
   substrContent = substrContent & "sp_maxeml:" &trim(SafeRequest("sp_maxeml"))& Vend
   substrContent = substrContent & "sp_emlcnt:" &trim(SafeRequest("sp_emlcnt"))& Vend
   substrContent = substrContent & "sp_maxemlspc:" &trim(SafeRequest("sp_maxemlspc"))& Vend
   substrContent = substrContent & "sp_emlspccnt:" &trim(SafeRequest("sp_emlspccnt"))& Vend
   substrContent = substrContent & "sp_idc:" &trim(SafeRequest("sp_idc"))& Vend
   substrContent = substrContent & "sp_inf:" &trim(SafeRequest("sp_inf"))& Vend
   substrContent = substrContent & "sp_dnssvr:" &trim(SafeRequest("sp_dnssvr"))& Vend
   substrContent = substrContent & "sp_err:" &trim(SafeRequest("sp_err"))& Vend
   substrContent = substrContent & "." & Vend
      doresult = hzsocket(substrContent)

     left5=left(doresult,5)
   If left5= "10000" Then
   if  instr(sp_nme_new,"服务器名")<=0 and sp_nme_new<>"" then
       pageturn="/master/sysmng/pdt_mng/svr_edt.asp?spid="&getval(doresult,"sp_id")
	end if   
       call okpage(pageturn)
   Else
      call errorpage(-2,doresult)
   end if
case "pdt_del" '产品删除

   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:pdt_del"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "gid:" &trim(SafeRequest("gid"))& Vend
   substrContent = substrContent & "." & Vend
pageturn="/master/sysmng/pdt_mng/pdt_lst.asp?ptid="&trim(SafeRequest("ptid"))

case "pdt_add" '产品添加

temp1=trim(SafeRequest("g_tag"))
if temp1="dm" or  temp1="dme" or  temp1="cn" or  temp1="cc" or  temp1="tv" or   temp1="biz" or   temp1="info" or   temp1="dmi"  or   temp1="dmedel"  or   temp1="dmecndel" then
temp2="dmelst"
elseif temp1="dmc" or temp1="dmh"  then
temp2="dmclst"
elseif temp1="dmt" then
temp2="dmtlst"
elseif temp1="hst" or temp1="hsze"   or temp1="hcns"   or temp1="platform"  then
temp2="hstlst"
elseif temp1="ftp" or temp1="fsze"   or temp1="fcns"     then
temp2="ftplst"
elseif temp1="eml" or temp1="msze"  or temp1="mcns"  then
temp2="emllst"
elseif temp1="sql" or temp1="qsze"  then
temp2="sqllst"
elseif temp1="adv" then
temp2="advlst"
elseif temp1="svrhir" or temp1="svrtuo"  then
temp2="svrlst"
elseif temp1="dsn" then
temp2="dsnlst"
elseif temp1="set" then
temp2="setlst"
elseif temp1="ot1" then
temp2="ot1lst"
elseif temp1="ot2" then
temp2="ot2lst"
elseif temp1="ot3" then
temp2="ot3lst"
elseif temp1="ot4" then
temp2="ot4lst"
elseif temp1="ot5" then
temp2="ot5lst"
end if


'''''''''''''''''''''
   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:pdt_add"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "g_nme:" &trim(SafeRequest("g_nme"))& Vend
   substrContent = substrContent & "g_prd:" &trim(SafeRequest("g_prd"))& Vend
   substrContent = substrContent & "g_pdtcls:" &trim(SafeRequest("g_pdtcls"))& Vend
   substrContent = substrContent & "g_svrtpe:" &trim(SafeRequest("g_svrtpe"))& Vend
   substrContent = substrContent & "g_cst:" &trim(SafeRequest("g_cst"))& Vend
   substrContent = substrContent & "g_tmetpe:" &trim(SafeRequest("g_tmetpe"))& Vend
   substrContent = substrContent & "g_shw:" &trim(SafeRequest("g_shw"))& Vend
   substrContent = substrContent & "g_ifnow:" &trim(SafeRequest("g_ifnow"))& Vend
   substrContent = substrContent & "g_ifnowctl:" &trim(SafeRequest("g_ifnowctl"))& Vend
   substrContent = substrContent & "g_odr:" &trim(SafeRequest("g_odr"))& Vend
   substrContent = substrContent & "g_pic:" &trim(SafeRequest("g_pic"))& Vend
   substrContent = substrContent & "g_tag:" &trim(SafeRequest("g_tag"))& Vend
   substrContent = substrContent & "g_db:" &temp2& Vend
   substrContent = substrContent & "g_maxdns:" &trim(SafeRequest("g_maxdns"))& Vend
   substrContent = substrContent & "g_maxdnstst:" &trim(SafeRequest("g_maxdnstst"))& Vend
   substrContent = substrContent & "g_ftpcns:" &trim(SafeRequest("g_ftpcns"))& Vend  
   substrContent = substrContent & "g_dnspri:" &trim(SafeRequest("g_dnspri"))& Vend
   substrContent = substrContent & "g_urlpri:" &trim(SafeRequest("g_urlpri"))& Vend
   substrContent = substrContent & "g_sze:" &trim(SafeRequest("g_sze"))& Vend
   substrContent = substrContent & "g_maxcns:" &trim(SafeRequest("g_maxcns"))& Vend
   substrContent = substrContent & "g_szetst:" &trim(SafeRequest("g_szetst"))& Vend
   substrContent = substrContent & "g_maxcnstst:" &trim(SafeRequest("g_maxcnstst"))& Vend
   substrContent = substrContent & "g_tst:" &trim(SafeRequest("g_tst"))& Vend
   substrContent = substrContent & "g_appid_asp:" &trim(SafeRequest("g_appid_asp"))& Vend
   substrContent = substrContent & "g_appid_cgi:" &trim(SafeRequest("g_appid_cgi"))& Vend
   substrContent = substrContent & "g_appid_php:" &trim(SafeRequest("g_appid_php"))& Vend
   substrContent = substrContent & "g_appid_net:" &trim(SafeRequest("g_appid_net"))& Vend
   substrContent = substrContent & "g_appid_dwn:" &trim(SafeRequest("g_appid_dwn"))& Vend
   substrContent = substrContent & "g_err:" &trim(SafeRequest("g_err"))& Vend
   substrContent = substrContent & "g_errctl:" &trim(SafeRequest("g_errctl"))& Vend
   substrContent = substrContent & "g_hstip:" &trim(SafeRequest("g_hstip"))& Vend
   substrContent = substrContent & "g_inf:" &trim(request("g_inf"))& Vend
   substrContent = substrContent & "g_cnt:" &trim(request("g_cnt"))& Vend
   substrContent = substrContent & "g_sst:" &trim(SafeRequest("g_sst"))& Vend
    substrContent = substrContent & "g_cpr:" &trim(SafeRequest("g_cpr"))& Vend
    substrContent = substrContent & "g_cprnme:" &trim(SafeRequest("g_cprnme"))& Vend
   substrContent = substrContent & "g_cpu:" &trim(SafeRequest("g_cpu"))& Vend
   substrContent = substrContent & "g_bnd:" &trim(SafeRequest("g_bnd"))& Vend
   substrContent = substrContent & "g_pstprd1:" &trim(SafeRequest("g_pstprd1"))& Vend
   substrContent = substrContent & "g_pstprd2:" &trim(SafeRequest("g_pstprd2"))& Vend
   substrContent = substrContent & "g_pstprd3:" &trim(SafeRequest("g_pstprd3"))& Vend
   substrContent = substrContent & "g_pstprd4:" &trim(SafeRequest("g_pstprd4"))& Vend
   substrContent = substrContent & "g_pstprd5:" &trim(SafeRequest("g_pstprd5"))& Vend
   substrContent = substrContent & "g_sucnt:" &trim(SafeRequest("g_sucnt"))& Vend
   substrContent = substrContent & "g_sip:" &trim(SafeRequest("g_sip"))& Vend
   substrContent = substrContent & "g_sidc:" &trim(SafeRequest("g_sidc"))& Vend
   substrContent = substrContent & "g_sram:" &trim(SafeRequest("g_sram"))& Vend
   substrContent = substrContent & "g_shd:" &trim(SafeRequest("g_shd"))& Vend
   substrContent = substrContent & "g_soth:" &trim(SafeRequest("g_soth"))& Vend
   substrContent = substrContent & "g_scpu:" &trim(SafeRequest("g_scpu"))& Vend
   substrContent = substrContent & "g_sbnd:" &trim(SafeRequest("g_sbnd"))& Vend
   substrContent = substrContent & "g_ifagt:" &trim(SafeRequest("g_ifagt"))& Vend
   substrContent = substrContent & "." & Vend
pageturn="/master/sysmng/pdt_mng/pdt_edt.asp?g_prd="&trim(SafeRequest("g_prd"))
case "pdt_edt" '产品修改

temp1=trim(SafeRequest("g_tag"))
if temp1="dm" or  temp1="dme" or  temp1="cn" or  temp1="cc" or  temp1="tv" or   temp1="biz" or   temp1="info" or   temp1="dmi"  or   temp1="dmedel"  or   temp1="dmecndel" then
temp2="dmelst"
elseif temp1="dmc" or temp1="dmh"  then
temp2="dmclst"
elseif temp1="dmt" then
temp2="dmtlst"
elseif temp1="hst" or temp1="hsze"   or temp1="hcns"   or temp1="platform"  then
temp2="hstlst"
elseif temp1="ftp" or temp1="fsze"   or temp1="fcns"     then
temp2="ftplst"
elseif temp1="eml" or temp1="msze"  or temp1="mcns"  then
temp2="emllst"
elseif temp1="sql" or temp1="qsze"  then
temp2="sqllst"
elseif temp1="adv" then
temp2="advlst"
elseif temp1="svrhir" or temp1="svrtuo"  then
temp2="svrlst"
elseif temp1="dsn" then
temp2="dsnlst"
elseif temp1="set" then
temp2="setlst"
elseif temp1="ot1" then
temp2="ot1lst"
elseif temp1="ot2" then
temp2="ot2lst"
elseif temp1="ot3" then
temp2="ot3lst"
elseif temp1="ot4" then
temp2="ot4lst"
elseif temp1="ot5" then
temp2="ot5lst"
end if
'''''''''''''''''''''


g_prd=trim(SafeRequest("g_prd"))
newprd=trim(SafeRequest("newprd"))

if  instr(newprd,"编号")<=0 and newprd<>"" then
   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:pdt_add"&Vend
   g_prd=newprd
else
   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:pdt_edt"&Vend
end if
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "gid:" &trim(SafeRequest("gid"))& Vend
   substrContent = substrContent & "g_nme:" &trim(SafeRequest("g_nme"))& Vend
   substrContent = substrContent & "g_prd:" &g_prd& Vend
   substrContent = substrContent & "g_pdtcls:" &trim(SafeRequest("g_pdtcls"))& Vend
   substrContent = substrContent & "g_svrtpe:" &trim(SafeRequest("g_svrtpe"))& Vend
   substrContent = substrContent & "g_cst:" &trim(SafeRequest("g_cst"))& Vend
   substrContent = substrContent & "g_tmetpe:" &trim(SafeRequest("g_tmetpe"))& Vend
   substrContent = substrContent & "g_shw:" &trim(SafeRequest("g_shw"))& Vend
   substrContent = substrContent & "g_ifnow:" &trim(SafeRequest("g_ifnow"))& Vend
   substrContent = substrContent & "g_ifnowctl:" &trim(SafeRequest("g_ifnowctl"))& Vend
   substrContent = substrContent & "g_odr:" &trim(SafeRequest("g_odr"))& Vend
   substrContent = substrContent & "g_pic:" &trim(SafeRequest("g_pic"))& Vend
   substrContent = substrContent & "g_tag:" &trim(SafeRequest("g_tag"))& Vend
   substrContent = substrContent & "g_db:" &temp2 & Vend
   substrContent = substrContent & "g_maxdns:" &trim(SafeRequest("g_maxdns"))& Vend
   substrContent = substrContent & "g_maxdnstst:" &trim(SafeRequest("g_maxdnstst"))& Vend
   substrContent = substrContent & "g_ftpcns:" &trim(SafeRequest("g_ftpcns"))& Vend  
   substrContent = substrContent & "g_dnspri:" &trim(SafeRequest("g_dnspri"))& Vend
   substrContent = substrContent & "g_urlpri:" &trim(SafeRequest("g_urlpri"))& Vend
   substrContent = substrContent & "g_sze:" &trim(SafeRequest("g_sze"))& Vend
   substrContent = substrContent & "g_maxcns:" &trim(SafeRequest("g_maxcns"))& Vend
   substrContent = substrContent & "g_szetst:" &trim(SafeRequest("g_szetst"))& Vend
   substrContent = substrContent & "g_maxcnstst:" &trim(SafeRequest("g_maxcnstst"))& Vend
   substrContent = substrContent & "g_tst:" &trim(SafeRequest("g_tst"))& Vend
   substrContent = substrContent & "g_appid_asp:" &trim(SafeRequest("g_appid_asp"))& Vend
   substrContent = substrContent & "g_appid_cgi:" &trim(SafeRequest("g_appid_cgi"))& Vend
   substrContent = substrContent & "g_appid_php:" &trim(SafeRequest("g_appid_php"))& Vend
   substrContent = substrContent & "g_appid_net:" &trim(SafeRequest("g_appid_net"))& Vend
   substrContent = substrContent & "g_appid_dwn:" &trim(SafeRequest("g_appid_dwn"))& Vend
   substrContent = substrContent & "g_err:" &trim(SafeRequest("g_err"))& Vend
   substrContent = substrContent & "g_errctl:" &trim(SafeRequest("g_errctl"))& Vend
   substrContent = substrContent & "g_hstip:" &trim(SafeRequest("g_hstip"))& Vend
   substrContent = substrContent & "g_inf:" &trim(request("g_inf"))& Vend
   substrContent = substrContent & "g_cnt:" &trim(request("g_cnt"))& Vend
   substrContent = substrContent & "g_sst:" &trim(SafeRequest("g_sst"))& Vend
    substrContent = substrContent & "g_cpr:" &trim(SafeRequest("g_cpr"))& Vend
    substrContent = substrContent & "g_cprnme:" &trim(SafeRequest("g_cprnme"))& Vend
   substrContent = substrContent & "g_cpu:" &trim(SafeRequest("g_cpu"))& Vend
   substrContent = substrContent & "g_bnd:" &trim(SafeRequest("g_bnd"))& Vend
   substrContent = substrContent & "g_pstprd1:" &trim(SafeRequest("g_pstprd1"))& Vend
   substrContent = substrContent & "g_pstprd2:" &trim(SafeRequest("g_pstprd2"))& Vend
   substrContent = substrContent & "g_pstprd3:" &trim(SafeRequest("g_pstprd3"))& Vend
   substrContent = substrContent & "g_pstprd4:" &trim(SafeRequest("g_pstprd4"))& Vend
   substrContent = substrContent & "g_pstprd5:" &trim(SafeRequest("g_pstprd5"))& Vend
   substrContent = substrContent & "g_sucnt:" &trim(SafeRequest("g_sucnt"))& Vend
   substrContent = substrContent & "g_sip:" &trim(SafeRequest("g_sip"))& Vend
   substrContent = substrContent & "g_sidc:" &trim(SafeRequest("g_sidc"))& Vend
   substrContent = substrContent & "g_sram:" &trim(SafeRequest("g_sram"))& Vend
   substrContent = substrContent & "g_shd:" &trim(SafeRequest("g_shd"))& Vend
   substrContent = substrContent & "g_soth:" &trim(SafeRequest("g_soth"))& Vend
   substrContent = substrContent & "g_scpu:" &trim(SafeRequest("g_scpu"))& Vend
   substrContent = substrContent & "g_sbnd:" &trim(SafeRequest("g_sbnd"))& Vend
   substrContent = substrContent & "g_ifagt:" &trim(SafeRequest("g_ifagt"))& Vend
   substrContent = substrContent & "." & Vend
pageturn="/master/sysmng/pdt_mng/pdt_edt.asp?g_prd="&g_prd

case "svr_reboot" '产品删除 
chk_newpwr 4,20,5
   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:svr_reboot"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "spid:" &trim(SafeRequest("spid"))& Vend
   substrContent = substrContent & "actiontype:" &trim(SafeRequest("actiontype"))& Vend
   substrContent = substrContent & "." & Vend
pageturn="/master/sysmng/pdt_mng/svr_ctl.asp?spid="&SafeRequest("spid")
case "svr_svcctl" '产品删除 
chk_newpwr 4,20,5
   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:svr_svcctl"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "spid:" &trim(SafeRequest("spid"))& Vend
   substrContent = substrContent & "servicename:" &trim(SafeRequest("servicename"))& Vend
   substrContent = substrContent & "actiontype:" &trim(SafeRequest("actiontype"))& Vend
   substrContent = substrContent & "." & Vend

pageturn="/master/sysmng/pdt_mng/svr_svc.asp?spid="&SafeRequest("spid")&"&ordernum="&SafeRequest("ordernum") 
case "pdt_diy_edt" '自定义库修改
   substrContent = "entryclass:sys_mng"&Vend
   substrContent =substrContent& "entrytype:pdt_diy_edt"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "o_tpe:" &trim(SafeRequest("o_tpe"))& Vend
   for bcc=0 to 8
   substrContent = substrContent & "o_o"&bcc&":" &trim(SafeRequest("o_o"&bcc))& Vend
   substrContent = substrContent & "o_o"&bcc&"s:" &trim(SafeRequest("o_o"&bcc&"s"))& Vend
   substrContent = substrContent & "o_o"&bcc&"l:" &trim(SafeRequest("o_o"&bcc&"l"))& Vend
   substrContent = substrContent & "o_o"&bcc&"t:" &trim(SafeRequest("o_o"&bcc&"t"))& Vend
   substrContent = substrContent & "o_o"&bcc&"inf:" &trim(SafeRequest("o_o"&bcc&"inf"))& Vend
   next
   substrContent = substrContent & "." & Vend
    pageturn="/master/sysmng/pdt_mng/pdt_diy.asp?ptid="&trim(SafeRequest("o_tpe"))

case else
      call errorpage(-2,"操作类型错误！")
end select
   doresult = hzsocket(substrContent)
    left5=left(doresult,5)
   If left5= "10000" Then
      call okpage(pageturn)
   Else
      call errorpage(-2,doresult)
   end if

%>
  
