<%@Language=VBScript%>
<>
<HTML>
<BODY>
<H1align=center>在线注册演示</H1>
<%
DimsMessage
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.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&"'已存在!注册失败！"
caseElse
sMessage="注册用户失败!错误代码:"&nResult
EndSelect
oMDUser.FreeUserDll
Else
sMessage="错误:不能加载DLL文件"
EndIf
SetoMDUser=Nothing
SetoMDUserInfo=Nothing
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=25NAME="txtPassword"ID="Password1"></TD></TR>
<TR><TD></TD><TD><INPUTTYPE="submit"value="注册新用户"NAME="cmdAddUser"ID="Submit1"></TD></TR>
</TABLE>
</FORM>
<%
Response.Write(sMessage&"<BR>")
%>
</BODY>
</HTML>