用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></TR>
</TABLE>
</FORM>
<%
 Response.Write(sMessage & "<BR>")
%>
</BODY>
</HTML>

赞 (0)

相关推荐

  • 用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&

  • MySQL创建新用户、增加账户的2种方法及使用实例

    可以用两种方式创建MySQL账户: 1.使用GRANT语句 2.直接操作MySQL授权表 最好的方法是使用GRANT语句,因为这样更精确,错误少. 创建超级用户: 复制代码 代码如下: mysql> GRANT ALL PRIVILEGES ON *.* TO 'monty'@'localhost' IDENTIFIED BY 'some_pass' WITH GRANT OPTION; mysql> GRANT ALL PRIVILEGES ON *.* TO 'monty'@'%' IDE

  • 详解ASP.NET与ASP.NET Core用户验证Cookie并存解决方案

    在你将现有的用户登录(Sign In)站点从ASP.NET迁移至ASP.NET Core时,你将面临这样一个问题--如何让ASP.NET与ASP.NET Core用户验证Cookie并存,让ASP.NET应用与ASP.NET Core应用分别使用各自的Cookie?因为ASP.NET用的是FormsAuthentication,ASP.NET Core用的是claims-based authentication,而且它们的加密算法不一样. 我们采取的解决方法是在ASP.NET Core中登录成功

  • 初识 ASP.NET Membership 用户管理

    一.与session的不同点 Membership 一般指用微软的aspnetdb数据库来进行身份认证 Session是指网站用户的会话信息 二.Membership 类提供的功能可用于: 1.创建新用户. 2.将成员资格信息(用户名.密码.电子邮件地址及支持数据)存储在 Microsoft SQL Server 或其他类似的数据存储区. 3.对访问网站的用户进行身份验证.可以以编程方式对用户进行身份验证,也可以使用 Login 控件创建一个只需很少代码或无需代码的完整的身份验证系统. 4.管理

  • asp.net5中用户认证与授权(2)

    上篇文章给大家介绍了asp.net5中用户认证与授权(1),基础建立好了,紧接着就要创建对基础类进行操作的类,也就是实现基础类的增删改查当然,为了使用asp.net5的认证机制,这些都是通过特定的接口来实现的. 比如,对于角色来说,角色管理要实现的接口如下: public interface IQueryableRoleStore<TRole> : IRoleStore<TRole>, IDisposable where TRole : class { IQueryable<

  • Java创建与结束线程代码示例

    本文讲述了在Java中如何创建和结束线程的最基本方法,只针对于Java初学者.一些高级知识如线程同步.调度.线程池等内容将会在后续章节中逐步深入. 创建线程 创建普通线程有两种方式,继承Thread类或实现Runnable接口.示例如下. 方法1:继承Thread类 创建方法示例: public class MyThread1 extends Thread { @Override public void run() { //TODO Auto-generated method stub supe

  • sql server 2008 数据库管理系统使用SQL语句创建登录用户步骤详解

    废话不多说了,直接给大家贴代码了,具体代码如下所示: --服务器角色: --固定服务器角色具有一组固定的权限,并且适用于整个服务器范围. 它们专门用于管理 SQL Server,且不能更改分配给它们的权限. --可以在数据库中不存在用户帐户的情况下向固定服务器角色分配登录. --按照从最低级别的角色(bulkadmin)到最高级别的角色(sysadmin)的顺序进行描述: --1.Bulkadmin:这个服务器角色的成员可以运行BULKINSERT语句.这条语句允许从文本文件中将数据导入到SQL

  • MyBatis创建存储过程的实例代码_动力节点Java学院整理

    所需要用到的其他工具或技术: 项目管理工具 : Maven 测试运行工具 : Junit 数据库 : Derby 本节需要用到的有2部分,第一部分是如何在Derby中创建存储过程,第二部分是如何在Mybatis中调用存储过程 一. 在Derby中创建存储过程 在Eclipse中创建一个新的普通Java项目命名为Test_Store_Procedure 在com.bjpowernode.practice包下创建一个Class命名为StoreProcedureOperationClass.class

  • oracle创建删除用户示例分享(oracle删除用户命令及授权)

    1.Oracle用户新增 复制代码 代码如下: create user lisi identified by lisi; 注:create user是创建数据库用户,后面跟用户名称,identified by是设置用户密码 2.把"连接"数据库权限授给新增用户lisi 复制代码 代码如下: grant connect to lisi; 注:grant:Oracle数据库授权的关键字connect:Oracle数据库的一个默认角色,只有连接上数据库的权限 3.把scott用户的表授权给l

  • ASP.NET程序中常用代码汇总

    1. 打开新的窗口并传送参数: //传送参数: response.write("<script>window.open('*.aspx?id="+this.DropDownList1.SelectIndex+"&id1="++"')</script>") //接收参数: string a = Request.QueryString("id"); string b = Request.QueryS

随机推荐