<!--#include virtual="/incs/config.asp" -->
<%
chk_log()
chk_newpwr 4,0,0
conn.open constr
module=trim(SafeRequest("module"))

select case module
case "lckip_add" '禁用IP添加
   substrContent = "entryclass:sys2_mng"&VEnd
   substrContent =substrContent& "entrytype:lckip_add"&VEnd
   substrContent =substrContent& "entryuser:"&entryuser&VEnd
   substrContent =substrContent& "entrypass:"&entrypass&VEnd
   substrContent =substrContent& "agentname:"&agentname&VEnd
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "l_ip:" &trim(SafeRequest("l_ip"))& VEnd
   substrContent = substrContent & "l_ipend:" &trim(SafeRequest("l_ipend"))& VEnd
   substrContent = substrContent & "l_msk:" &trim(SafeRequest("l_msk"))& VEnd
   substrContent = substrContent & "l_tpe:" &trim(SafeRequest("l_tpe"))& VEnd
   substrContent = substrContent & "l_exptme:" &trim(SafeRequest("l_exptme"))& VEnd
   substrContent = substrContent & "." & VEnd
   pageturn="/master/sysmng/sys_mng/ip_lst.asp"

case "lckip_sftedt" '禁用IP软修改

   substrContent = "entryclass:sys2_mng"&VEnd
   substrContent =substrContent& "entrytype:lckip_sftedt"&VEnd
   substrContent =substrContent& "entryuser:"&entryuser&VEnd
   substrContent =substrContent& "entrypass:"&entrypass&VEnd
   substrContent =substrContent& "agentname:"&agentname&VEnd
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "l_ip:" &trim(SafeRequest("l_ip"))& VEnd
   substrContent = substrContent & "l_sft:" &trim(SafeRequest("l_sft"))& VEnd
   substrContent = substrContent & "." & VEnd

   pageturn="/master/sysmng/sys_mng/ip_lst.asp"
case "lckip_hrdedt" '禁用IP硬修改

   substrContent = "entryclass:sys2_mng"&VEnd
   substrContent =substrContent& "entrytype:lckip_hrdedt"&VEnd
   substrContent =substrContent& "entryuser:"&entryuser&VEnd
   substrContent =substrContent& "entrypass:"&entrypass&VEnd
   substrContent =substrContent& "agentname:"&agentname&VEnd
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "l_ip:" &trim(SafeRequest("l_ip"))& VEnd
   substrContent = substrContent & "l_hrd:" &trim(SafeRequest("l_hrd"))& VEnd
   substrContent = substrContent & "." & VEnd

   pageturn="/master/sysmng/sys_mng/ip_lst.asp"
case "lckip_del" '禁用IP软修改

   substrContent = "entryclass:sys2_mng"&VEnd
   substrContent =substrContent& "entrytype:lckip_del"&VEnd
   substrContent =substrContent& "entryuser:"&entryuser&VEnd
   substrContent =substrContent& "entrypass:"&entrypass&VEnd
   substrContent =substrContent& "agentname:"&agentname&VEnd
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "l_ip:" &trim(SafeRequest("l_ip"))& VEnd
   substrContent = substrContent & "delid:" &trim(SafeRequest("delid"))& VEnd
   substrContent = substrContent & "." & VEnd

   pageturn="/master/sysmng/sys_mng/ip_lst.asp"


case "lckip_exptmeedt" '禁用IP软修改

   substrContent = "entryclass:sys2_mng"&VEnd
   substrContent =substrContent& "entrytype:lckip_exptmeedt"&VEnd
   substrContent =substrContent& "entryuser:"&entryuser&VEnd
   substrContent =substrContent& "entrypass:"&entrypass&VEnd
   substrContent =substrContent& "agentname:"&agentname&VEnd
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "l_ip:" &trim(SafeRequest("l_ip"))& VEnd
   substrContent = substrContent & "l_exptme:" &trim(SafeRequest("l_exptme"))& VEnd
   substrContent = substrContent & "." & VEnd

   pageturn="/master/sysmng/sys_mng/ip_lst.asp"



case "disftp_add" '禁用FTP添加

   substrContent = "entryclass:sys_mng"&VEnd
   substrContent =substrContent& "entrytype:disftp_add"&VEnd
   substrContent =substrContent& "entryuser:"&entryuser&VEnd
   substrContent =substrContent& "entrypass:"&entrypass&VEnd
   substrContent =substrContent& "agentname:"&agentname&VEnd
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "f_nme:" &trim(SafeRequest("f_nme"))& VEnd
   substrContent = substrContent & "f_tpe:" &trim(SafeRequest("f_tpe"))& VEnd
   substrContent = substrContent & "." & VEnd
   pageturn="/master/sysmng/sys_mng/ftp_lst.asp"
case "disftp_del" '禁用FTP删除

   substrContent = "entryclass:sys_mng"&VEnd
   substrContent =substrContent& "entrytype:disftp_del"&VEnd
   substrContent =substrContent& "entryuser:"&entryuser&VEnd
   substrContent =substrContent& "entrypass:"&entrypass&VEnd
   substrContent =substrContent& "agentname:"&agentname&VEnd
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "delid:" &trim(SafeRequest("delid"))& VEnd
   substrContent = substrContent & "." & VEnd
   pageturn="/master/sysmng/sys_mng/ftp_lst.asp"
case "disdme_add" '禁用域名添加

   substrContent = "entryclass:sys_mng"&VEnd
   substrContent =substrContent& "entrytype:disdme_add"&VEnd
   substrContent =substrContent& "entryuser:"&entryuser&VEnd
   substrContent =substrContent& "entrypass:"&entrypass&VEnd
   substrContent =substrContent& "agentname:"&agentname&VEnd
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "d_nme:" &trim(SafeRequest("d_nme"))& VEnd
   substrContent = substrContent & "d_tpe:" &trim(SafeRequest("d_tpe"))& VEnd
   substrContent = substrContent & "." & VEnd
   pageturn="/master/sysmng/sys_mng/dme_lst.asp"
case "disdme_del" '禁用FTP删除

   substrContent = "entryclass:sys_mng"&VEnd
   substrContent =substrContent& "entrytype:disdme_del"&VEnd
   substrContent =substrContent& "entryuser:"&entryuser&VEnd
   substrContent =substrContent& "entrypass:"&entrypass&VEnd
   substrContent =substrContent& "agentname:"&agentname&VEnd
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "delid:" &trim(SafeRequest("delid"))& VEnd
   substrContent = substrContent & "." & VEnd
   pageturn="/master/sysmng/sys_mng/dme_lst.asp"
case "disusr_add" '禁用FTP添加

   substrContent = "entryclass:sys_mng"&VEnd
   substrContent =substrContent& "entrytype:disusr_add"&VEnd
   substrContent =substrContent& "entryuser:"&entryuser&VEnd
   substrContent =substrContent& "entrypass:"&entrypass&VEnd
   substrContent =substrContent& "agentname:"&agentname&VEnd
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "u_nme:" &trim(SafeRequest("u_nme"))& VEnd
   substrContent = substrContent & "u_tpe:" &trim(SafeRequest("u_tpe"))& VEnd
   substrContent = substrContent & "." & VEnd
   pageturn="/master/sysmng/sys_mng/usr_lst.asp"
case "disusr_del" '禁用FTP删除

   substrContent = "entryclass:sys_mng"&VEnd
   substrContent =substrContent& "entrytype:disusr_del"&VEnd
   substrContent =substrContent& "entryuser:"&entryuser&VEnd
   substrContent =substrContent& "entrypass:"&entrypass&VEnd
   substrContent =substrContent& "agentname:"&agentname&VEnd
   substrContent =substrContent& "agentpass:"&agentpass&VEnd
   substrContent = substrContent & "delid:" &trim(SafeRequest("delid"))& VEnd
   substrContent = substrContent & "." & VEnd
   pageturn="/master/sysmng/sys_mng/usr_lst.asp"
end select
    doresult = hzsocket(substrContent)
    left5=left(doresult,5)
   If left5= "10000" Then
      call okpage(pageturn)
   Else
      call errorpage(-2,doresult)
   end if

%>
