<%@Idioma = vbscript%>
<!-metadatatype = "typeLib" uuid = "{01e88d14-f479-4ca5-9ca8-ebd2eed74c83}"->
<html>
<Body>
<H1align = Center> 在线注册演示 </h1>
<%
Dimsmessage
Ifrequest.form ("cmdadduser") <> "" então
Dimomduser
Dimomduserinfo
DimnResult
DimsfullName
DimsUsername
DIMSPASSWORD
sfullname = request.form ("txtfullName")
Susername = request.form ("txtusername")
spassword = request.form ("txtpassword")
sDomain = request.form ("txtDomain")
Setomduser = server.createObject ("mdusercom.mduser")
Setomduserinfo = server.createObject ("mdusercom.mduserinfo")
Ifomduser.loadUserdll () = Truethen
omduser.inituserinfo (omduserinfo)
omduserinfo.fullName = sfullName
omduserinfo.mailbox = Susername
omduserinfo.password = spassword
omduserinfo.Domain = SDOMAIN
omduser.filteruserinfo (omduserinfo)
Nresult = omduser.adduser (omduserinfo)
SelectCasenResult
Casemddllerr_noerror
smessage = "用户注册成功!"
Casemddllerr_userexists
smessage = "用户名: '" & Susername & "' 已存在! 注册失败！"
Caseelse
smessage = "注册用户失败! 错误代码:" & result
EndSelect
omduser.freeuserdll
Outro
smessage = "错误: 不能加载 dll 文件"
Endif
Setomduser = nada
Setomduserinfo = nada
Endif
%>
<p> 新用户注册 </p>
<formaction = "adduser.asp" Método = postId = "form1">
<TABLEID = "Tabela1">
<tr> <td> 域名: </td> <td> <inputsize = 50name = "txtdomAin" id = "text1" value = "system.mail" readonly> </td> </tr>
<tr> <td> 全名: </td> <td> <inputsize = 50name = "txtfullName" id = "text2"> </td> </tr>
<tr> <td> 登录名: </td> <td> <inputsize = 25name = "txtuserName" id = "text3"> </td> </tr>
<tr> <td> 口令: </td> <td> <inputtype = "senha" size = 25name = "txtPassword" id = "senha1"> </td> </tr>
<tr> <td> </td> <td> <inputtype = "submit" value = "注册新用户" name = "cmdadduser" id = "submit1"> </td> </tr>