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

<%=chk_log_usr()%> 
<%
ftpname=SafeRequest("ftpname")
buytime=clng(SafeRequest("buytime"))
if ftpname="" then
		      call errorpage(-2,"对不起，参数错误！...")
end if
conn.open constr
query="select * from ftplst where f_ftpnme='"&ftpname&"' and f_unme='"&session("usrname")&"'"
rs.open query,conn,1,1
if rs.recordcount<>1 then
     call errorpage(-2,"对不起，该FTP空间不存在或者您无权操作！...")
end if
fnme=rs("f_ftpnme")
proid=trim(rs("f_prd"))
rs.close
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''表单处理 
   substrContent = "entryclass:pdtrnw"&Vend
   substrContent =substrContent& "entrytype:pdtrnw"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&Vend
   substrContent = substrContent & "proid:" &proid& Vend
   substrContent = substrContent & "pdtname:" &ftpname& Vend
   substrContent = substrContent & "years:"& SafeRequest("years") & Vend
   substrContent = substrContent & "pdtprcstr:"& SafeRequest("f_prcstr") & Vend
   substrContent = substrContent & "." & Vend
   
   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
   If left5= "10000" Then
      call okpage( "/control/ftp_mng/ftp_rnw.asp?fnme=" & fnme)
   Else
      call errorpage(-2,doresult)
   end if


%>
