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

<%chk_log()%>
  <%
chk_newpwr 1,0,3
	hostname =SafeRequest("hostname")
	if hostname="" then
	    call errorpage(-2,"对不起，参数错误！")
	end if
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''表单处理 
   substrContent = "entryclass:hst_odr"&Vend
   substrContent =substrContent& "entrytype:del"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&Vend
   substrContent = substrContent & "hostname:" &hostname& Vend
   substrContent = substrContent & "." & Vend

   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
   If left5= "10000" Then
      call okpage( "/master/pdtmng/hst_mng/hst_lst.asp")
   Else
      call errorpage(-2,doresult)
   end if

%>