ASP搭建MDaemon用户的代码的操作方法

发布时间：2023-08-11 14:51:10 所属栏目：Asp教程来源：

导读：很多ASP的服务器通过字符串创建HTML格式的数据，然后呈现给我们用户视觉体验，那么ASP创建MDaemon用户的代码的操作方法大家知道吗?

<%@ Language=VBScript %>

<!-- METADATA TYPE="TypeLib" UUID="{01E88D14

很多ASP的服务器通过字符串创建HTML格式的数据，然后呈现给我们用户视觉体验，那么ASP创建MDaemon用户的代码的操作方法大家知道吗?

<%@ Language=VBScript %>



<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></TR>

</TABLE>

</FORM>

<%

Response.Write(sMessage & "<BR>")

%>

</BODY>

</HTML>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!