<٪@language = vbscript ٪>
<!-metadatatype = "typelib" uuid = "{01E88D14-F479-4CA5-9CA8-EBD2EED74C83}"->
<html>
<body>
<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.createBject ("mdusercom.mduser")
SetomDuserInfo = server.createBject ("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
آخر
smessage = "错误: 不能加载 dll 文件"
Endif
setomduser = لا شيء
SetomDuserInfo = لا شيء
Endif
٪>
<p> 新用户注册 </p>
<formaction = "adduser.asp" method = postid = "form1">
<tableid = "table1">
<tr> <td> 域名: </td> <td> <pectionSize = 50name = "txtdomain" id = "text1" value = "system.mail" readonly> </td> </tr>
<tr> <td> 全名: </td> <td> <pectionSize = 50name = "txtfullname" id = "text2"> </td> </tr>
<tr> <td> 登录名: </td> <td> <pectionSize = 25Name = "txtusername" id = "text3"> </td> </tr>
<tr> <td> 口令: </td> <td> <propertype = "password" size = 25name = "txtpassword" id = "password1"> </td> </tr>
<tr> <td> </td> <td> <pecttType = "إرسال" value = "注册新用户" name = "cmdadduser" id = "submit1"> </td> </tr>