mailopen.asp

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

<%
    MailID = Request("MailID")
    if (MailID="") then Response.Redirect ("error.asp?id=001")
%>
<!--#include file="top.asp"-->
<!--#include file="../checkpost.asp"-->
<%
if Trim(Request.form("MailDomain"))="" then Response.Redirect ("error.asp?id=004")
if isValidDomainstring(Trim(Request.form("MailDomain")))<>"" then Response.Redirect ("error.asp?id=022")
    Set rs = Server.CreateObject("ADODB.Recordset")

    sql="select MailID from [Mail_OK] where MailMater='" & Trim(Request.form("MailDomain")) & "'"
    rs.open sql,conn,1,1
    if rs.bof and rs.eof then
    else
	Response.Redirect ("error.asp?id=008")
    end if
    rs.close

    sql="select ErrID from [Error_List] where ErrorText='" & Trim(Request.form("MailDomain")) & "' and ErrorType=3"
    rs.open sql,conn,1,1
    if rs.bof and rs.eof then
    else
	Response.Redirect("error.asp?id=008")
    end if
    rs.close


    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=003")
    if rs("MailMater")<>"" then
	Response.Redirect ("error.asp?id=002")
    else
	'新建邮局域
'======================================================
	Set Autohost = Server.CreateObject("autohost.Createhost")
	Autohost.HostIp=rs("Mailhost")'服务器的IP
	Autohost.HostPort=Port'程序端口
	Autohost.Guid=Guid
	Autohost.HostAction="createmail"'动作,这个是创建主机
	Autohost.MailDomain=Trim(Request.form("MailDomain"))'开通邮箱的域名
	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 instr(ReturnValue,"主机已存在") then 
	   Response.Redirect("error.asp?ID=018")
	elseif instr(ReturnValue,"用户名已存在") then 
	   Response.Redirect("error.asp?ID=008")
	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("MailType")=0
	rs("MailMater")=Trim(Request.form("MailDomain"))
	rs.update
	end if
    end if
    rs.close
    set rs = nothing
    Response.Redirect("MailList.asp")
%>