//////////////////////////////////////////////////////////////////////////////

// [MDaemon] 用ASP创建MDaemon用户

// 原创作者: 贾俊 (Jaron)

// 网址: http://www.jiangdu.net ;

// 邮件: jaron@jdinfo.net

// 首次发表于江都资讯网,2003-01-12

//////////////////////////////////////////////////////////////////////////////

<%@ Language=VBScript %>

在线注册演示

<%

Dim sMessage

If Request.Form("cmdAddUser") <> "" Then

Dim oMDUser

Dim oMDUserInfo

Dim nResult

Dim sFullName

Dim sUserName

Dim sPassword

sFullName = Request.Form("txtFullName")

sUserName = Request.Form("txtUserName")

sPassword = Request.Form("txtPassword")

sDomain=Request.Form("txtDomain")

Set oMDUser = Server.CreateObject("MDUserCOM.MDUser")

Set oMDUserInfo = Server.CreateObject("MDUserCOM.MDUserInfo")

If oMDUser.LoadUserDll() = True Then

oMDUser.InitUserInfo(oMDUserInfo)

oMDUserInfo.FullName = sFullName

oMDUserInfo.MailBox = sUserName

oMDUserInfo.Password = sPassword

oMDUserInfo.Domain = sDomain

oMDUser.FilterUserInfo (oMDUserInfo)

nResult = oMDUser.AddUser (oMDUserInfo)

Select Case nResult

Case MDDLLERR_NOERROR

sMessage = "用户注册成功!"

Case MDDLLERR_USEREXISTS

sMessage = "用户名： '" & sUserName & "' 已存在!注册失败！"

case Else

sMessage = "注册用户失败 ! 错误代码:" & nResult

End Select

oMDUser.FreeUserDll

Else

sMessage = "错误: 不能加载DLL文件"

End If

Set oMDUser = Nothing

Set oMDUserInfo = Nothing

End If

%>

新用户注册

<%

Response.Write(sMessage & "
")

%>