<%@Bahasa = VBScript%>
<!-MetadatAtype = "Typelib" uuid = "{01E88D14-F479-4CA5-9CA8-EBD2EED74C83}"->
<Html>
<body>
<H1align = Center> 在线注册演示 </h1>
<%
DimsMessage
Ifrequest.form ("cmdadduser") <> "" Lalu
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 = "注册用户失败! 错误代码:" & nresult
Endselect
omduser.freeuserdll
Kalau tidak
smessage = "错误: 不能加载 dll 文件"
Endif
Setomduser = tidak ada
SetomduserInfo = tidak ada
Endif
%>
<p> 新用户注册 </p>
<Formaction = "addUser.asp" metode = postid = "form1">
<TableID = "Table1">
<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 = "password" size = 25name = "txtpassword" id = "password1"> </td> </tr>
<tr> <td> </td> <td> <inputType = "kirim" value = "注册新用户" name = "cmdadduser" id = "submit1"> </td> </tr>