400-1100-266

9:00-24:00（工作日）
主页 > 知识库 > 用ASP创建MDaemon用户的代码

用ASP创建MDaemon用户的代码
热门标签：科大讯飞语音识别系统 银行业务 Linux服务器 服务器配置 阿里云 Mysql连接数设置 电子围栏 团购网站
%@ 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>

标签：蚌埠 衢州 枣庄 江苏 大理 萍乡 广元 衡水

巨人网络通讯声明：本文标题《用ASP创建MDaemon用户的代码》，本文关键词  ；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。
  • 相关文章
  • 推荐文章

    上一篇：asp中COM组件中如何连接数据库的代码

    下一篇：ASP使用FSO读取模板的代码

     
    微信咨询办理
    在线QQ客服
    ( 客服小王 )
    ( 客服小李 )
    ( 客服小刘 )
    ( 客服小张 )
    关于我们 | 荣誉资质 | 呼叫中心 | 代理加盟 | 客户案例 | 服务支持 | 产品介绍 | 行业资讯

    Copyright © 1999-2012 诚信 合法 规范的巨人网络 www.1330.cn 始建于2005年

    全国网站建设网站开发咨询热线：400-1100-266   0514-86177077

    江苏扬州巨人网络科技有限公司   总部地址：江苏省扬州信息产业基地11号楼4层

    《增值电信业务经营许可证》苏B2-20120278    苏ICP备15040257号 网站地图
    全国咨询热线
    400-1100-266
    在线客服( QQ：340506921 )
    版权所有：巨人网络(扬州)科技有限公司——拥有网站建设十年经验，具备独立网站开发能力，能够提供完善的网站设计及相关的网站制作服务！     全国统一服务热线：400-1100-266
    收缩
    • 微信客服
    • 微信二维码

    • 电话咨询

    • 400-1100-266