<% @ Language = vbscript%>
<! - métadatatype = "typelib" uuid = "{01e88d14-f479-4ca5-9ca8-ebd2eed74c83}" ->
<html>
<body>
<h1align = Center> 在线注册演示 </h1>
<%
Tabac
Ifrequest.form ("cmdadduser") <> "" puis
Diable
Dimomduserrinfo
Diminueux
Nom
Nom de dimsure
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.mduserRinfo")
IfomDuser.LoadUserDll () = truethen
Omduser.initeRinfo (Omduserrinfo)
omDuseRinfo.fullName = sfullName
omDuseRinfo.Mailbox = Susername
omDuseRinfo.Password = Spassword
Omduserrinfo.domain = somain
Omduser.FilterUserRinfo (OmduSerInfo)
nResult = omduser.adduser (OmduserRinfo)
SelectcasenResult
Casemddllerr_noerror
Smessage = "用户注册成功!"
Casemddller_userexists
SMESSAGE = "用户名 : '" & Susername & "' 已存在! 注册失败!"
caseelse
SMESSAGE = "注册用户失败! 错误代码:" & nresult
Se licez
omduser.freeUserdll
Autre
SMESSAGE = "错误: 不能加载 DLL 文件"
Endire
SetomDuser = rien
SetomDuseRinfo = rien
Endire
%>
<p> 新用户注册 </p>
<FormAction = "addUser.asp" méthode = postid = "form1">
<TableId = "Table1">
<tr> <td> 域名: </td> <td> <ntaliseSize = 50Name = "txtDomain" id = "text1" value = "System.mail" ReadOnly> </td> </tr>
<tr> <td> 全名: </td> <td> <ntoutsize = 50Name = "txtfullName" id = "text2"> </td> </tr>
<tr> <td> 登录名: </td> <td> <ntoutsize = 25Name = "txsername" id = "text3"> </td> </tr>
<tr> <td> 口令: </td> <td> <putype = "mot de passe" size = 25Name = "txtpassword" id = "mot de passe1"> </td> </tr>
<tr> <td> </td> <td> <putype = "soumi" value = "注册新用户" name = "cmdadduser" id = "soume1"> </td> </tr>