ASP 로 MDaemon 사용자 코드 만 들 기

<%@ 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  Set oMDUserInfo = Nothing End %>

새 사용자 가 등 록 된 경우

도 메 인 이름:전체 이름:로그 인 이름:구령: <%  Response.Write(sMessage & "
") %>

좋은 웹페이지 즐겨찾기