[API] 用ASP建立MDaemon使用者 (轉)[@more@]////////////////////////////////////////////////////////////////////////////// 
// [MDaemon] 用建立MDaemon
// 原創作者: 賈俊 (Jaron) 
// 網址:  " target=_blank>;
// : jaron@jdinfo.net 
// 首次發表於江都資訊網,-01-12
//////////////////////////////////////////////////////////////////////////////

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

線上註冊演示

Dim sMessage
If Request.Form("cmdAddUser") <> "" Then 

 Dim oMDUser
 Dim oMDUserInfo
 Dim nResult
 Dim ullName
 Dim sUserName
 Dim sPass
 
 sFullName = Request.Form("txtFullName")
 sUserName = Request.Form("txtUserName")
 sPassword = Request.Form("txtPassword")
 sain=Request.Form("txtDomain")
 
 Set oMDUser = Server.Create("MDUserCOM.MDUser")
 Set oMDUserInfo = Server.CreateObject("MDUserCOM.MDUserInfo")
 If oMDUser.LoadUserDll() = True Then
 
 oMDUser.InitUserInfo(oMDUserInfo)
 oMDUserInfo.FullName = sFullName
 oMDUserInfo.Box = sUserName
 oMDUserInfo.Password = sPassword
 oMDUserInfo.Domain = sDomain
 oMDUser.FilterUserInfo (oMDUserInfo)
 nResult = oMDUser.AddUser (oMDUserInfo)

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