ITPub博客

首页 > 应用开发 > IT综合 > [API] 用ASP创建MDaemon用户 (转)

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

原创 IT综合 作者:amyz 时间:2007-11-16 19:05:22 0 删除 编辑
[API] 用ASP创建MDaemon用户 (转)[@more@]////////////////////////////////////////////////////////////////////////////// 
// [MDaemon] 用ASP创建MDaemon用户
// 原创作者: 贾俊 (Jaron) 
// 网址: .NET " target=_blank>http://www.jiangdu.net ;
// 邮件: jaron@jdinfo.net 
// 首次发表于江都资讯网,2003-01-12
//////////////////////////////////////////////////////////////////////////////

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


在线注册演示
<%
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/10752019/viewspace-982828/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    3984
  • 访问量
    7363324