<%@语言= 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>