ASP 로 MDaemon 사용자 코드 만 들 기
2201 단어 ASP 로 MDaemon 사용자 코드 만 들 기
온라인 등록 데모<%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 %>
새 사용자 가 등 록 된 경우