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

conn.open constr
ftpname=trim(SafeRequestform("ftpname"))
module=trim(SafeRequestform("module"))
fnme=ftpname
if ftpname="" then
call errorpage(-2,"对不起，请选择需要操作的FTP空间！")
end if
if module="" or  isnull(module) then
call errorpage(-2,"对不起，请选择需要操作的类型！")
end if
module=lcase(module)
query="select * from ftplst where f_ftpnme='"&ftpname&"'"
rs.open query,conn,1,1
if rs.recordcount<>1 then
call errorpage(-2,"对不起，该FTP空间不存在！")
end if
rs.close
   turnurl="/master/pdtmng/ftp_mng/ftp_adm.asp?fnme="&fnme
select case module
case "ftp_ctt"
   substrContent = "entryclass:ftp_mng"&Vend
   substrContent =substrContent& "entrytype:ftp_ctt"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "ftpname:" & ftpname & Vend
   substrContent = substrContent & "f_copnme_cn:" & trim(SafeRequestform("f_copnme_cn")) & Vend
   substrContent = substrContent & "f_ctt_cn:" & trim(SafeRequestform("f_ctt_cn")) & Vend
   substrContent = substrContent & "f_prv_cn:" & trim(SafeRequestform("f_prv_cn")) & Vend
   substrContent = substrContent & "f_adr_cn:" & trim(SafeRequestform("f_adr_cn")) & Vend
   substrContent = substrContent & "f_cde:" & trim(SafeRequestform("f_cde")) & Vend
   substrContent = substrContent & "f_tel:" & trim(SafeRequestform("f_tel")) & Vend
   substrContent = substrContent & "f_fax:" & trim(SafeRequestform("f_fax")) & Vend
   substrContent = substrContent & "f_eml:" & trim(SafeRequestform("f_eml")) & Vend
   substrContent = substrContent & "." & Vend
case "ftp_edta"
   substrContent = "entryclass:ftp_mng"&Vend
   substrContent =substrContent& "entrytype:ftp_edta"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "ftpname:" & ftpname & Vend
   substrContent = substrContent & "f_prd:" & trim(SafeRequestform("f_prd")) & Vend
   substrContent = substrContent & "f_regtpe:" & trim(SafeRequestform("f_regtpe")) & Vend
      substrContent = substrContent & "f_regstt:" & trim(SafeRequestform("f_regstt")) & Vend
   substrContent = substrContent & "f_yarcnt:" & trim(SafeRequestform("f_yarcnt")) & Vend
   substrContent = substrContent & "years:" & trim(SafeRequestform("years")) & Vend
   substrContent = substrContent & "f_prcstr:" & trim(SafeRequestform("f_prcstr")) & Vend
   substrContent = substrContent & "f_hmedir:" & trim(SafeRequestform("f_hmedir")) & Vend
   substrContent = substrContent & "f_addtme:" & trim(SafeRequestform("f_addtme")) & Vend
   substrContent = substrContent & "f_exptme:" & trim(SafeRequestform("f_exptme")) & Vend
   substrContent = substrContent & "f_svrip:" & trim(SafeRequestform("f_svrip")) & Vend
   substrContent = substrContent & "content:" & trim(SafeRequestform("content")) & Vend
   substrContent = substrContent & "f_cprnme:" & trim(SafeRequestform("f_cprnme")) & Vend
   substrContent = substrContent & "f_ifpay:" & trim(SafeRequestform("f_ifpay")) & Vend
   substrContent = substrContent & "f_sze:" & trim(SafeRequestform("f_sze")) & Vend
   substrContent = substrContent & "f_maxcns:" & trim(SafeRequestform("f_maxcns")) & Vend
   substrContent = substrContent & "f_szeadd:" & trim(SafeRequestform("f_szeadd")) & Vend
   substrContent = substrContent & "f_cnsadd:" & trim(SafeRequestform("f_cnsadd")) & Vend
   substrContent = substrContent & "." & Vend
'''''''''''''''''''''''''''''''
case "ftp_edtd"
   substrContent = "entryclass:ftp_mng"&Vend
   substrContent =substrContent& "entrytype:ftp_edtd"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "ftpname:" & ftpname & 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 "ftp_delsecs"
   substrContent = "entryclass:ftp_mng"&Vend
   substrContent =substrContent& "entrytype:ftp_delsecs"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "ftpname:" & ftpname & Vend
   substrContent = substrContent & "." & Vend
case "ftp_delallftp"
   substrContent = "entryclass:ftp_mng"&Vend
   substrContent =substrContent& "entrytype:ftp_delallftp"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "ftpname:" & ftpname & Vend
   substrContent = substrContent & "." & Vend
 case "ftp_delc"
   substrContent = "entryclass:ftp_mng"&Vend
   substrContent =substrContent& "entrytype:ftp_delc"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent = substrContent & "ftpname:" & ftpname & Vend
   substrContent = substrContent & "." & Vend
   turnurl="/master/pdtmng/ftp_mng/ftp_lst.asp"
case "ftp_buyfree"
   substrContent = "entryclass:ftp_mng"&VEnd
   substrContent =substrContent& "entrytype:ftp_buyfree"&VEnd
   substrContent =substrContent& "entryuser:"&entryuser&VEnd
   substrContent =substrContent& "entrypass:"&entrypass&VEnd
   substrContent =substrContent& "agentname:"&agentname&VEnd
   substrContent = substrContent & "ftpname:" & ftpname & VEnd
   substrcontent = substrcontent & "f_svrip:" & SafeRequest("f_svrip") & Vend
   substrcontent = substrcontent & "f_ftppss:" & SafeRequest("f_ftppss") & Vend
   substrcontent = substrcontent & "f_sze:" & SafeRequest("f_sze") & Vend
   substrcontent = substrcontent & "f_maxcns:" & SafeRequest("f_maxcns") & 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/ftp_mng/ftp_own.asp?fnme="&fnme
end select
   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
   If left5= "10000" Then
      call okpage( turnurl)
   Else
      call errorpage(-2,doresult)
   end if

 ''''''''''''''''''''''''''''''''''''''''''''''''''''

%>

