<％@语言= vbscript％>
<！ - metadatype =“ typelib” uuid =“ {01E88D14-F479-4CA5-9CA8-EBD22EED74C83}” - >
<html>
<身体>
<h1align =中心>在线注册演示</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 = susername
OmDuserInfo.Password = Spassword
Omduserinfo.domain = sdomain
OMDUSER.FILTERUSERINFO（OMDUSERINFO）
nresult = omduser.adduser（omduserinfo）
SelectCasenresult
casemddllerr_noerror
smessage =“用户注册成功！”
casemddllerr_userexists
smessage =“用户名：'”＆susername＆“''已存在！注册失败！”
凯西尔
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> <inputsize = 50name =“ txtDomain” id =“ text1” valie =“ 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 =“ submit” value =“注册新用户” name =“ cmdadduser” id =“ crist1”> </td> </tr>