usermaildel.asp

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

<%
MailID = Request("MailID")
if (MailID="") then Response.Redirect ("error.asp?id=001")
MailDelUser = Request("MailDelUser")
if (MailDelUser="") 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
rs.open sql,conn,1,3
if rs.bof and rs.eof then Response.Redirect("error.asp?id=001")
MailName=rs("MailName")
MailHost=rs("MailHost")
MailSize=rs("MailSize")
MailNum=rs("MailNum")
MailMater=rs("MailMater")
MailUser=rs("MailUser")
MailType=rs("MailType")
BeginDate=rs("BeginDate")
EndDate=rs("EndDate")
MailUseSize=0
if not isnull(MailUser)  or len(MailUser)>0 then
MailuserNum=split(MailUser,",")
for i=0 to Ubound(MailuserNum)
TpmMailuserNum=split(MailuserNum(i),"|")
MailUseSize=MailUseSize+TpmMailuserNum(1)
if TpmMailuserNum(0)=MailDelUser then DelUser = True
next
end if
if DelUser = False  then Response.Redirect ("error.asp?id=011")
'----------删除用户模块	
Set Autohost = Server.CreateObject("autohost.Createhost")
Autohost.HostIp=MailHost'服务器的IP
Autohost.HostPort=Port'程序端口
Autohost.Guid=Guid
Autohost.HostAction="delmailuser"'动作,这个是删除邮局用户
Autohost.MailDomain=MailMater'邮箱的域名
Autohost.MailUser=MailDelUser'删除的邮箱用户
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
   For j = 0 To Ubound(MailuserNum) 
      TpmMailuserNum=split(MailuserNum(j),"|")
      If TpmMailuserNum(0) = MailDelUser Then
         MailuserNum(j) = ""
         ReDel = True
      End If
   Next
   If ReDel Then
       reDim RBinds(Ubound(MailuserNum) - 1)
       i = UBound(RBinds) + 1
       For j = Ubound(MailuserNum) + 1 To 1 Step -1
           If MailuserNum(j - 1) <> "" Then
              RBinds(i - 1) = MailuserNum(j - 1)
              i = i - 1
           End If
       Next
    end if 
rs("MailUser")=join(RBinds,",")
rs.update
rs.close
Response.Redirect("UserMailEdit.asp?MailID="&MailID)
end if
%>