帮帮忙看看~用ASP创建MDaemon邮箱用户老是出错~解决方法
日期：2014-05-17 浏览次数：20948 次
帮帮忙看看~~用ASP创建MDaemon邮箱用户老是出错~~
<%@ Language=VBScript %>
<!-- METADATA TYPE= "TypeLib " UUID= "{01E88D14-F479-4CA5-9CA8-EBD2EED74C83} " -->
<HTML>
<BODY>
<H1 align=center> 在线注册演示 </H1>
<%
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 If
%>
<P> 新用户注册 </P>
<FORM ACTION= "adduser.asp " METHOD=post ID= "Form1 ">
<TABLE ID= "Table1 ">
<TR> <TD> 域名: </TD> <TD> <INPUT SIZE=50 NAME= "txtDomain " ID= "Text1 " value= "system.mail " readonly> </TD> </TR>
<TR> <TD> 全名: </TD> <TD> <INPUT SIZE=50 NAME= "txtFullName " ID= "Text2 "> </TD> </TR>
<TR> <TD> 登录名: </TD> <TD> <INPUT SIZE=25 NAME= "txtUserName " ID= "Text3 "> </TD> </TR>
<TR> <TD> 口令: </TD> <TD> <INPUT TYPE= "password " SIZE=25 NAME= "txtPassword " ID= "Password1 "> </TD> </TR>
<TR> <TD> </TD> <TD> <INPUT TYPE= "submit " value= "注册新用户 " NAME= "cmdAddUser " ID= "Submit1 "> </TD>
<%@ Language=VBScript %>
<!-- METADATA TYPE= "TypeLib " UUID= "{01E88D14-F479-4CA5-9CA8-EBD2EED74C83} " -->
<HTML>
<BODY>
<H1 align=center> 在线注册演示 </H1>
<%
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 If
%>
<P> 新用户注册 </P>
<FORM ACTION= "adduser.asp " METHOD=post ID= "Form1 ">
<TABLE ID= "Table1 ">
<TR> <TD> 域名: </TD> <TD> <INPUT SIZE=50 NAME= "txtDomain " ID= "Text1 " value= "system.mail " readonly> </TD> </TR>
<TR> <TD> 全名: </TD> <TD> <INPUT SIZE=50 NAME= "txtFullName " ID= "Text2 "> </TD> </TR>
<TR> <TD> 登录名: </TD> <TD> <INPUT SIZE=25 NAME= "txtUserName " ID= "Text3 "> </TD> </TR>
<TR> <TD> 口令: </TD> <TD> <INPUT TYPE= "password " SIZE=25 NAME= "txtPassword " ID= "Password1 "> </TD> </TR>
<TR> <TD> </TD> <TD> <INPUT TYPE= "submit " value= "注册新用户 " NAME= "cmdAddUser " ID= "Submit1 "> </TD>
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
