//

// [MDaemon] Create MDaemon users with ASP

// original author: Jia Jun (Jaron)

// URL:

http://www.jiangdu.net;

// message: jaron@jdinfo.net

// First in Jiangdu Information Network, 2003-01-12

//

<% @ Language = vbscript%>

online registration Demonstrate <% DIM SMSSAGEIF Request.form ("cmdadduser") <> "" "

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 = susename omduserinfo.parsword = spassword omduserinfo.domain = sdomain omduser.filteruserinfo (OMDUSERINFO) NRESULT = OMDUSER.Adduser (OMDUSERINFO)

SELECT CASE NRESULT CASE MDDLLLERR_NOERROR SMESSAGE = "Case MDDLLERR_USEREXISTS SMESSAGE =" User Name: '"& SUSERNAME &"' Exes! Registration Failure! "Case Else SMESSAGE =" Registered User Failure! Error Code: "& NResult End select omduser.free = "Error: Do not load DLL file" end if set omduser = Nothing set omduserinfo = not%>