[API] 用ASP创建MDaemon用户 (转)

[API] 用ASP创建MDaemon用户 (转)[@more@]// 
// [MDaemon] 用 ASP创建MDaemon 用户
// 原创作者: 贾俊 (Jaron) 
// 网址:  .NET " target=_blank>http://www.jiangdu.net ;
//  邮件: jaron@jdinfo.net 
// 首次发表于江都资讯网, 2003-01-12
//

vbscript %>
<!-- METADATA TYPE="TypeLib" UUID="{01E88D14-F479-4CA5-9CA8-EBD2EED74C83}" --&gt

在线注册演示

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 & "
")
%>

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10748419/viewspace-959196/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10748419/viewspace-959196/