IDC资讯中心
//////////////////////////////////////////////////////////////////////////////
// [mdaemon] 用asp创建mdaemon用户
// 原创作者: 贾俊 (jaron)
// 网址: http://www.jiangdu.net ;
// 邮件: jaron@jdinfo.net
// 首次发表于江都资讯网,2003-01-12
//////////////////////////////////////////////////////////////////////////////
<%@ language=vbscript %>
<!– metadata type="typelib" uuid="{01e88d14-f479-4ca5-9ca8-ebd2eed74c83}" –>
<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>
