<%@Language = vbscript%>
<!-metadatatype = "typelib" uuid = "{01e88d14-f479-4ca5-9ca8-ebd2eed74c83}"->
<html>
<Тело>
<H1align = center> 在线注册演示 </h1>
<%
DimSmessage
Ifrequest.form ("cmdadduser") <> "" Тогда
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 = sousername
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
Еще
smessage = "错误: 不能加载 dll 文件"
Эндиф
Setomduser = ничего
Setomduserinfo = ничего
Эндиф
%>
<p> 新用户注册 </p>
<Formaction = "adduser.asp" method = 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 = "Отправить" value = "注册新用户" name = "cmdadduser" id = "posper1"> </td> </tr>