<%@Sprache = vbScript%>
<!-metadaTatype = "typelib" uUid = "{01E88D14-F479-4CA5-9CA8-EBD2EED74C83}"->
<html>
<body>
<h1align = center> 在线注册演示 </h1>
<%
Dimsmessage
IFREQUEST.FORM ("CMDADDUSER") <> "" dann
Dimomduser
Dimomduserinfo
Dimnresult
Dimsfullname
Dimsusername
Dimspassword
sfullname = request.form ("txtfulname")
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 & "'已存在! 注册失败！"
Fallelse
smessage = "注册用户失败! 错误代码:" & nresult
Endauswahl
omduser.freeuserdll
Anders
smessage = "错误: 不能加载 dll 文件"
Endif
Setomduser = nichts
Setomduserinfo = nichts
Endif
%>
<p> 新用户注册 </p>
<Formaction = "adduser.asp" methode = postid = "Form1">
<TableId = "Tabelle1">
<tr> <td> 域名: </td> <td> <inputSize = 50name = "txtdomain" id = "text1" value = "system.mail" readonly> </td> </tr>
<tr> <td> 全名: </td> <td> <InputSize = 50Name = "txtfulname" id = "text2"> </td> </tr>
<tr> <td> 登录名: </td> <td> <InputSize = 25Name = "txtUserName" id = "text3"> </td> </tr>
<tr> <td> 口令: </td> <td> <inputType = "password" size = 25name = "txtPassword" id = "password1"> </td> </tr>
<tr> <td> </td> <td> <inputType = "surenden" value = "注册新用户" name = "cmdadduser" id = "suble1"> </td> </tr>