usermailedit_user.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("MailAddUser"))="") or (Trim(Request.form("MailUserpass"))="") or (Trim(Request.form("MailUserSize"))="") then Response.Redirect("UsermailEdit.asp?MailID=" & MailID)
if isinteger(trim(Request.Form("MailUserSize")))=false then Response.Redirect("error.asp?id=022")
if len(trim(Request.Form("MailUserpass")))<5 or len(trim(Request.Form("MailAddUser")))<3 then Response.Redirect("error.asp?id=023")
if clng(Trim(Request.form("MailUserSize")))<=0 then Response.Redirect("UserMailEdit.asp?MailID=" & MailID)
'此模块是进行空间基本信息修改查询
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,",")
MailuserNums=Ubound(MailuserNum)+1
for i=0 to Ubound(MailuserNum)
TpmMailuserNum=split(MailuserNum(i),"|")
if TpmMailuserNum(0)=Trim(Request.form("MailAddUser")) then Response.Redirect("error.asp?id=014")
MailUseSize=MailUseSize+TpmMailuserNum(1)
next
else
MailuserNums=0
end if
if MailuserNums>=MailNum or MailUseSize+clng(Trim(Request.form("MailUserSize")))>MailSize then Response.Redirect("error.asp?id=024")
'----------添加用户模块	
Set Autohost = Server.CreateObject("autohost.Createhost")
Autohost.HostIp=MailHost'服务器的IP
Autohost.HostPort=Port'程序端口
Autohost.Guid=Guid
Autohost.HostAction="createmailuser"'动作,这个是创建邮局用户
Autohost.MailDomain=MailMater'开通邮箱的域名
Autohost.MailUser=Trim(Request.form("MailAddUser"))'开通邮箱的用户
Autohost.MailPass=Trim(Request.form("MailUserpass"))'开通邮箱的用户密码
Autohost.MailSize=Trim(Request.form("MailUserSize"))'开通邮箱的用户空间大小
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
if isnull(MailUser)  or len(MailUser)=0 then
rs("MailUser")=Trim(Request.form("MailAddUser"))&"|"&Trim(Request.form("MailUserSize"))
else
rs("MailUser")=rs("MailUser")&","&Trim(Request.form("MailAddUser"))&"|"&Trim(Request.form("MailUserSize"))
end if
rs.update
rs.close
Response.Redirect("UserMailEdit.asp?MailID="&MailID)
end if
%>