<br /> //////////////////////////////////////////////////////////////////////////////
<br />// [MDaemon] 用<a class="link_keyword" href="http://www.qqread.com/keywords/asp.html" target="_blank">ASP</a>创建MDaemon用户
<br />// 原创作者: 贾俊 (Jaron)
<br />// 网址: http://www.jiangdu.net ;
<br />// 邮件: jaron@jdinfo.net
<br /><table border="0" align="left" class=ppc_download_ad_frame cellspacing=0 cellpadding=0 width="1%" style="margin-top:10px;margin-right:7px;margin-bottom:3px;margin-left:0px">
<tr>
<td id=a><img height=9 width=9></td>
<td id=b width="100%"><img height=1 width=1></td>
<td id=c><img height=9 width=9></td>
</tr>
<tr>
<td id=d><img height=1 width=1></td>
<td id=e valign=top height="100%"><!-- frame contents -->
<table cellspacing=0 cellpadding=0 border=0>
<tr>
<td><div id="w_hzh"></div></td>
</tr>
</table>
<!-- /frame contents --></td>
<td id=f><img height=1 width=1></td>
</tr>
<tr>
<td id=g><img height=9 width=9></td>
<td id=h><img height=1 width=1></td>
<td id=i><img height=9 width=9></td>
</tr>
</table>// 首次发表于江都资讯网,2003-01-12
<br />//////////////////////////////////////////////////////////////////////////////
<br />
<br /><%@ Language=VBScript %>
<br /><!-- METADATA TYPE="TypeLib" UUID="{01E88D14-F479-4CA5-9CA8-EBD2EED74C83}" -->
<br /><HTML>
<br /><BODY>
<br /><H1 align=center>在线注册演示</H1>
<br /><%
<br />Dim sMessage
<br />If Request.Form("cmdAddUser") <> "" Then
<br />
<br /> Dim oMDUser
<br /> Dim oMDUserInfo
<br /> Dim nResult
<br /> Dim sFullName
<br /> Dim sUserName
<br /> Dim sPassword
<br />
<br /> sFullName = Request.Form("txtFullName")
<br /> sUserName = Request.Form("txtUserName")
<br /> sPassword = Request.Form("txtPassword")
<br /> sDomain=Request.Form("txtDomain")
<br />
<br /> Set oMDUser = Server.CreateObject("MDUserCOM.MDUser")
<br /> Set oMDUserInfo = Server.CreateObject("MDUserCOM.MDUserInfo")
<br /> If oMDUser.LoadUserDll() = True Then
<br />
<br /> oMDUser.InitUserInfo(oMDUserInfo)
<br /> oMDUserInfo.FullName = sFullName
<br /> oMDUserInfo.MailBox = sUserName
<br /> oMDUserInfo.Password = sPassword
<br /> oMDUserInfo.Domain = sDomain
<br /> oMDUser.FilterUserInfo (oMDUserInfo)
<br /> nResult = oMDUser.AddUser (oMDUserInfo)
<br />
<br /> Select Case nResult
<br /> Case MDDLLERR_NOERROR
<br /> sMessage = "用户注册成功!"
<br /> Case MDDLLERR_USEREXISTS
<br /> sMessage = "用户名： '" & sUserName & "' 已存在!注册失败！"
<br /> case Else
<br /> sMessage = "注册用户失败 ! 错误代码:" & nResult
<br /> End Select
<br />
<br /> oMDUser.FreeUserDll
<br /> Else
<br /> sMessage = "错误: 不能加载DLL文件"
<br /> End If
<br /> Set oMDUser = Nothing
<br /> Set oMDUserInfo = Nothing
<br />End If
<br />%>
<br />
<br /><P>新用户注册</P>
<br /><FORM ACTION="adduser.ASP" METHOD=post ID="Form1">
<br /><TABLE ID="Table1">
<br /><TR><TD>域名:</TD><TD><INPUT SIZE=50 NAME="txtDomain" ID="Text1" value="system.mail" readonly></TD></TR>
<br /><TR><TD>全名:</TD><TD><INPUT SIZE=50 NAME="txtFullName" ID="Text2"></TD></TR>
<br /><TR><TD>登录名:</TD><TD><INPUT SIZE=25 NAME="txtUserName" ID="Text3"></TD></TR>
<br /><TR><TD>口令:</TD><TD><INPUT TYPE="password" SIZE=25 NAME="txtPassword" ID="Password1"></TD></TR>
<br /><TR><TD></TD><TD><INPUT TYPE="submit" value="注册新用户" NAME="cmdAddUser" ID="Submit1"></TD></TR>
<br /></TABLE>
<br /></FORM>
<br /><%
<br /> Response.Write(sMessage & "<BR>")
<br />%>
<br /></BODY>
<br /></HTML>
