<!--#include virtual="/incs/config.asp" -->

<%
chk_log()
chk_newpwr 1,26,2
ftpname=trim(SafeRequest("ftpname"))
fnme=ftpname
if ftpname="" then
		      call errorpage(-2,"对不起,参数错误!")
end if
conn.open constr
if session("sysclass")>=5 then
query="select * from v_ftplst   where f_ftpnme ='"&fnme&"'"
elseif session("sysclass")>=4 then
query="select * from v_ftplst  where f_ftpnme ='"&fnme&"'  and  ((("&session("sysarestr")&" or u_myare=0) and u_rotnme='') or u_rotnme='"&session("usrname")&"')"
else
query="select * from v_ftplst   where f_ftpnme ='"&fnme&"' f_unme='"&session("usrname")&"'"
end if
rs.open query,conn,1,1
if rs.recordcount<>1 then
     call errorpage(-2,"对不起，该FTP空间不存在或者您无权操作！...")
elseif cint(rs("f_regstt"))=0 then
     call errorpage(-2,"对不起，该FTP空间还没有开通！...")
elseif cint(rs("f_regtpe"))<>0 then
     call errorpage(-2,"对不起，FTP空间类型不正确！...")
else
if trim(lcase(rs("f_unme")))<>trim(lcase(session("usrname"))) then
query="select * from memlst where u_nme='"&rs("f_unme")&"'"
rs1.open query,conn,1,1
entryuser=rs("f_unme")
entrypass=trim(rs1("u_pss"))
agentname=session("usrname")
agentpass=session("usrpass")
rs1.close
end if
	 
end if
fid=rs("f_id")
rs.close

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''表单处理 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''表单处理 
   substrContent = "entryclass:ftp_odr"&Vend
   substrContent =substrContent& "entrytype:trypay"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&Vend
   substrContent = substrContent & "ftpname:" &ftpname& Vend
   substrContent = substrContent & "years:" &SafeRequest("years")& Vend
   substrContent = substrContent & "f_prcstr:" &SafeRequest("f_prcstr")& Vend
   substrContent = substrContent & "newprice:"& trim(SafeRequestform("newprice")) & Vend
   substrContent = substrContent & "." & Vend
   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
   If left5= "10000" Then
      call okpage( "/master/pdtmng/ftp_mng/ftp_idx.asp?fnme=" & ftpname)
   Else
      call errorpage(-2,doresult)
   end if


%>