[API] 用ASP创建MDaemon用户

时间：2008-01-12 编辑：简简单单来源：一聚教程网

//////////////////////////////////////////////////////////////////////////////
// [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

上一个： Oracle常用功能集锦
下一个：文件遍历排序函数

推荐专题

最新下载

热门教程

[API] 用ASP创建MDaemon用户

在线注册演示

相关文章

热门栏目

php教程

asp.net教程

手机开发

css教程

网页制作

办公数码

jsp教程