用ASP创建MDaemon用户的代码

作者: 嗫?暁雲?
来源: 51数据库
2021-09-01

<%@ language=vbscript %>

<html>
<body>
<h1 align=center>在线注册演示</h1>
<%
dim smessage
if request.form("cmdadduser") <> "" then

dim omduser
dim omduserinfo
dim nresult
dim sfullname
dim susername
dim spassword

sfullname = request.form("txtfullname")
susername = request.form("txtusername")
spassword = request.form("txtpassword")
sdomain=request.form("txtdomain")

    set omduser = server.createobject("mdusercom.mduser")
    set omduserinfo = server.createobject("mdusercom.mduserinfo")
    if  omduser.loaduserdll() = true then

  omduser.inituserinfo(omduserinfo)
  omduserinfo.fullname = sfullname
  omduserinfo.mailbox  = susername
  omduserinfo.password = spassword
  omduserinfo.domain = sdomain
  omduser.filteruserinfo (omduserinfo)
  nresult = omduser.adduser (omduserinfo)

  select case nresult
  case mddllerr_noerror
   smessage = "用户注册成功!"
  case mddllerr_userexists
   smessage = "用户名： '" & susername & "' 已存在!注册失败！"
  case else
   smessage = "注册用户失败 ! 错误代码:" & nresult
  end select

  omduser.freeuserdll
else
  smessage = "错误: 不能加载dll文件"
end if
set omduser = nothing
set omduserinfo = nothing
end if
%>

<p>新用户注册</p>
<form action="adduser.asp" method=post id="form1">
<table id="table1">
<tr><td>域名:</td><td><input size=50 name="txtdomain" id="text1" value="system.mail" readonly></td></tr>
<tr><td>全名:</td><td><input size=50 name="txtfullname" id="text2"></td></tr>
<tr><td>登录名:</td><td><input size=25 name="txtusername" id="text3"></td></tr>
<tr><td>口令:</td><td><input type="password" size=25 name="txtpassword" id="password1"></td></tr>
<tr><td></td><td><input type="submit" value="注册新用户" name="cmdadduser" id="submit1"></td></tr>
</table>
</form>
<%
response.write(smessage & "<br>")
%>
</body>
</html>

推荐阅读