<%@Idioma = vBscript%>
<
<html>
<Body>
<H1Align = Center> 在线注册演示 </h1>
<%
Dimsmessaje
Ifrequest.form ("cmdadduser") <> "" entonces
Dimomín
Dimomduserinfo
Dimensivo
Nombre de dimbresa
Nombre dimsusular
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
smesage = "用户注册成功!"
Casemddllerr_userexists
smesage = "用户名 : '" & Susername & "' 已存在! 注册失败!"
casualidad
smesage = "注册用户失败! 错误代码:" & nresult
EndSelectar
omduser.FreeUserdll
Demás
smesage = "错误: 不能加载 dll 文件"
Endif
Setomduser = nada
SetomDuserInfo = nada
Endif
%>
<p> 新用户注册 </p>
<Formaction = "adduser.asp" método = postid = "form1">
<TableID = "Tabla1">
<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 = "contraseña" size = 25Name = "txtpassword" id = "contraseña1"> </td> </tr>
<tr> <td> </td> <td> <inputType = "Subt" value = "注册新用户" name = "cmdadduser" id = "Subt1"> </td> </tr>