用asp创建MDaemon用户的代码
来源:
中文源码网 浏览:281 次 日期:2024-04-22 13:46:09
【下载文档: 用asp创建MDaemon用户的代码.txt 】
用ASP创建MDaemon用户的代码
<%@ 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 & "
") %>