mailuserdel.asp

一个非常优秀的自动建站程序

<%  MailId = Request("MailId")
    if (MailId="") then Response.Redirect ("error.asp?id=001")
%>
<!--#include file="top.asp"-->
<!--#include file="../checkpost.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select MailHost,MailMater from [Mail_OK] where MailID=" & MailID
rs.open sql,conn,1,3
if rs.bof and rs.eof then Response.Redirect("error.asp?id=011")
MailHost=rs("MailHost")
MailMater=rs("MailMater")
rs.close
if len(MailMater)>0 then
    '删除域和域里所有的邮箱
'======================================================
Set Autohost = Server.CreateObject("autohost.Createhost")
Autohost.HostIp=MailHost'服务器的IP
Autohost.HostPort=Port'程序端口
Autohost.Guid=Guid
Autohost.HostAction="delmail"'动作,这个是创建邮局用户
Autohost.MailDomain=MailMater'开通邮箱的域名
ReturnValue=Autohost.send'给服务器执行
set Autohost=nothing
if instr(ReturnValue,"失败") then 
   Response.Redirect("error.asp?ID=012")
elseif instr(ReturnValue,"BUSING") then 
   Response.Redirect("error.asp?ID=016")
elseif instr(ReturnValue,"CLOSE") then 
   Response.Redirect("error.asp?ID=017")
elseif ReturnValue="" then 
   Response.Redirect("error.asp?ID=012")
elseif instr(ReturnValue,"非法命令") then 
   Response.Redirect("error.asp?ID=019")
elseif instr(ReturnValue,"非法用户") then 
   Response.Redirect("error.asp?ID=020")
else
'======================================================
    sql="delete * from [Mail_OK] where MailId="&MailId
    set rs= Conn.Execute(sql)
    set rs= NoThing
end if
else
    sql="delete * from [Mail_OK] where MailId="&MailId
    set rs= Conn.Execute(sql)
    set rs= NoThing
end if
    Response.Redirect("MailList.asp")
%>