<％@言語= vbscript％>
<！ - metadatatype = "typelib" uuid = "{01e88d14-f479-4ca5-9ca8-ebd2eed74c83}" - >
<html>
<body>
<h1align = center>在线注册演示</h1>
<％
薄暗い
ifrequest.form（ "cmdadduser"）<> "" then
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.loduserdll（）= 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 = Nothing
setomduserinfo =何もない
endif
％>
<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 = "txtpassword" id = "password1"> </td> </tr>
<tr> <td> </td> <td> <inputtype = "submit" value = "注册新用户注册新用户" name = "cmdadduser" id = "submit1"> </td> </tr>