最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
[API] 用ASP创建MDaemon用户
时间：2022-06-30 11:33:41 编辑：袖梨 来源：一聚教程网
//////////////////////////////////////////////////////////////////////////////
// [MDaemon] 用ASP创建MDaemon用户
// 原创作者: 贾俊 (Jaron)
// 网址: http://www.jiangdu.net ;
// 邮件: [email protected]
// 首次发表于江都资讯网,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
// [MDaemon] 用ASP创建MDaemon用户
// 原创作者: 贾俊 (Jaron)
// 网址: http://www.jiangdu.net ;
// 邮件: [email protected]
// 首次发表于江都资讯网,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
相关文章
- 《1号会员店》关闭自动续费方法 01-29
- 《排球少年：新的征程》社团每日福利领取方法 01-29
- 《椿之歌》新手风属性队伍推荐 01-29
- 《最终幻想14：水晶世界》小小阿托莫斯宠物获得方法 01-29
- 《燕云十六声》醉拳客打法攻略 01-29
- 《异人之下》全货币获取方法汇总 01-29