<％@語言= 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>