usermaileditdel.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 * from [Mail_OK] where MailID=" & MailID & " and UserID=" & session("ID")
rs.open sql,conn,1,3
if rs.bof and rs.eof then Response.Redirect("error.asp?id=001")
MailHost=rs("MailHost")
MailMater=rs("MailMater")
MailUser=rs("MailUser")
MailType=rs("MailType")
BeginDate=rs("BeginDate")
EndDate=rs("EndDate")

'----------删除用户邮局模块	
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
rs("MailMater")=""
rs("MailUser")=""
rs.update
rs.close
Response.Redirect("MailList.asp")
end if
%>