<%
response.buffer=false
%>
<!--#include virtual="/incs/config.asp" -->
<%
chk_log_usr()
module=trim(SafeRequestform("module"))
hnme=trim(SafeRequestform("hnme"))
if module="" or hnme="" then
call errorpage(-2,"对不起，请选择您需要操作的虚拟主机！")
end if
conn.open constr
if session("sysclass")>=4 then
query="select * from hstlst where h_ftpusr='"&hnme&"'"
else
query="select * from hstlst where h_ftpusr='"&hnme&"' and h_unme='"&session("usrname")&"'"
end if
rs.open query,conn,1,1
if rs.recordcount<>1 then
call errorpage(-2,"对不起，您所选择的虚拟主机不存在或者您无权执行此操作！")
end if

if rs("h_regtpe")<>1 and rs("h_regtpe")<>5 then
call errorpage(-2,"对不起，试用主机不提供此功能！")
end if
if rs("h_regstt")<>1  and rs("h_regstt")<>2 then
call errorpage(-2,"对不起，您所选择的虚拟主机不处在正常状态，无法操作！")
end if
if rs("h_exptme")<=now() then
call errorpage(-2,"对不起，您的虚拟主机已过期，请先续费！")
end if
buyid=rs("h_id")
rs.close
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''表单处理 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''具体操作
select case module
case "hst_icpcnt"

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''表单处理 
   substrContent = "entryclass:hst_mng"&Vend
   substrContent =substrContent& "entrytype:hst_icpcnt"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&Vend
   substrContent = substrContent & "hostname:" &hnme& Vend
   substrContent = substrContent & "c_nme:"& trim(SafeRequestform("c_nme")) & Vend
   substrContent = substrContent & "c_svr:"& trim(SafeRequestform("c_svr")) & Vend
   substrContent = substrContent & "c_code:"& trim(SafeRequestform("c_code")) & Vend
   substrContent = substrContent & "c_unme:"& trim(SafeRequestform("c_unme")) & Vend
   substrContent = substrContent & "c_pro1:"& trim(SafeRequestform("c_pro1")) & Vend
   substrContent = substrContent & "c_pro2:"& trim(SafeRequestform("c_pro2")) & Vend
   substrContent = substrContent & "c_pro3:"& trim(SafeRequestform("c_pro3")) & Vend
   substrContent = substrContent & "c_adr:"& trim(SafeRequestform("c_adr")) & Vend
   substrContent = substrContent & "u_nme:"& trim(SafeRequestform("u_nme")) & Vend
   substrContent = substrContent & "u_code:"& trim(SafeRequestform("u_code")) & Vend
   substrContent = substrContent & "u_phone:"& trim(SafeRequestform("u_phone")) & Vend
   substrContent = substrContent & "u_tel:"& trim(SafeRequestform("u_tel")) & Vend
   substrContent = substrContent & "u_mail:"& trim(SafeRequestform("u_mail")) & Vend
   substrContent = substrContent & "s_nme:"& trim(SafeRequestform("s_nme")) & Vend
   substrContent = substrContent & "s_url:"& trim(SafeRequestform("s_url")) & Vend
   substrContent = substrContent & "s_com:"& trim(SafeRequestform("s_com")) & Vend
   substrContent = substrContent & "s_type:"& trim(SafeRequestform("s_type")) & Vend
   substrContent = substrContent & "s_adr:"& trim(SafeRequestform("s_adr")) & Vend
   substrContent = substrContent & "s_domain:"& trim(SafeRequestform("s_domain")) & Vend
   substrContent = substrContent & "s_bip:"& trim(SafeRequestform("s_bip")) & Vend
   substrContent = substrContent & "s_ip:"& trim(SafeRequestform("s_ip")) & Vend
   substrContent = substrContent & "s_content:"& trim(SafeRequestform("s_content")) & Vend
   substrContent = substrContent & "." & Vend
   case "hst_icpid"

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''表单处理 
   substrContent = "entryclass:hst_mng"&Vend
   substrContent =substrContent& "entrytype:hst_icpid"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&Vend
   substrContent = substrContent & "hostname:" &hnme& Vend
   substrContent = substrContent & "h_icp:"& trim(SafeRequestform("h_icp")) & Vend
   substrContent = substrContent & "h_icpstt:"& trim(SafeRequestform("h_icpstt")) & Vend
   substrContent = substrContent & "." & Vend

   end select

   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
   If left5= "10000" Then
      call okpage( "/control/hst_mng/hst_icp.asp?hnme=" & hnme)
   Else
      call errorpage(-2,doresult)
   end if

''''''''''''''''''''''''
%>
