<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("cansysteminfo")="" Then
	ef=True
	ec="您没有此操作的权限。"
elseIf request.Form("PAY_Month")=999 Then
	ef=True
	ec="月付费率不能是999。"
elseIf request.Form("EmailSendAPI")=1 and request.Form("MailfromName")="" Then
	ef=True
	ec="在选项使用Jmail前，请先设置最下面的Jmail发件人等所有必需信息。"
end if

if not ef then
%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html8")%>
<%=htmlwrite("html9")%>
<%if request("ip")<>"" then

	'初始化对象
	Set oAPISystem = server.CreateObject("DevKit.Core.APISystem")

	'设置联结码
	oAPISystem.setAgent Application("Domain_Agent_username_1"),Application("Domain_Agent_password_1_API")

		If oAPISystem.systemIPDelete(trim(request("ip"))) Then 
		'显示debug信息
		response.write oAPISystem.getPostDebug()

		response.write  "成功删除 "&request("ip")
	Else 
		'显示debug信息
		response.write oAPISystem.getPostDebug()

		response.write  "Error"
		response.write  "<br>错误号："+oAPISystem.getCode()
		response.write  "<br>错误信息："+oAPISystem.getMessage()
	End If 

	set oAPISystem=nothing
	



end if%>
<%=htmlwrite("html10")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>


