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