-
<%@ 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>
相关文章
- web首页设置如下代码可判断用户是用什么设备登录的？
- Winform主菜单两种实现方式-1.）从工具箱中双击MenuStrip控件，窗体的顶部就会放置一个MenuStrip控件，或者在工具箱中单击MenuStrip控件,拖至窗体中也可以.
2.）在MenuStrip的“Type Here”输入主菜单和菜单名字，热键用（&X）表示.
用快捷键选择主菜单，可以用Alt + 预定义的按键来实现，子菜单的选择只需要按定义的热键即可.
3.）双击File*菜单下面的子菜单，创建子菜单Open、Save、Exit的单击事件代码：
private void OpenOToolStripMenuItem_Click(object sender, EventArgs e)
{
OpenFileDialog ofd = new OpenFileDialog
{
//初始化打开对话框的路径
InitialDirectory = @"D:\",
Title = "Open File",
//定义可显示的文件类型；
Filter = "txt file(*.txt)|*.txt|All file(*.*)|*.*",
//定义默认显示的文件类型为txt
FilterIndex = 1,
//对话框关闭后将复位初始化路径
RestoreDirectory = true
};
if (ofd.ShowDialog == DialogResult.OK)
{
//根据打开对话框选择的文件名，加载文本内容到富文本框中.
richtxtContent.Text = File.ReadAllText(ofd.FileName);
}
}
private void SaveSToolStripMenuItem_Click(object sender, EventArgs e)
{
SaveFileDialog sfd = new SaveFileDialog
{
//初始化保存对话框的路径
InitialDirectory = @"D:\",
Title = "Save File",
//定义可显示的文件类型；
Filter = "txt file(*.txt)|*.txt|All file(*.*)|*.*",
//定义默认显示的文件类型为txt
FilterIndex = 1,
//对话框关闭后将复位初始化路径
RestoreDirectory = true
};
if(sfd.ShowDialog == DialogResult.OK)
{
//保存文件
File.WriteAllText(sfd.FileName, richtxtContent.Text);
//清空富文本框内容
richtxtContent.Clear;
}
}
private void exitEToolStripMenuItem_Click(object sender, EventArgs e)
{
Application.Exit;
}
4．）执行下程序，加载指定的txt文件到富文本框中，如下：
5.）在富文本框中更新加载进来的txt文件内容.
6.）Alt + F热键打开文件的下拉菜单，单击S保存富文本框中的内容到指定的文件.打开txt验证菜单单击事件保存文件成功.
二．实现winform主菜单的方法2：MenuStrip类和toolStripMenuItem类实例化对象，在主窗体加载事件中实现如下代码：
- Scala IDE for Eclipse的下载、安装和WordCount的初步使用（本地模式和集群模式）
Scala IDEA for Eclipse里用maven来创建scala和java项目代码环境（图文详解）Scala IDEA for Eclipse里用maven来创建scala和java项目代码环境（图文详解）
- 每日学习心得：CustomValidator验证控件验证用户输入的字符长度、Linq 多字段分组统计、ASP.NET后台弹出confirm对话框，然后点击确定，执行一段代码
- 如何在不使用CreateUser的情况下在ASP.NET成员资格表中创建用户
- 用Asp.Net做的网站，用户登陆页面后，想调用本地的数据库提取数据 ，怎么做啊 ？？
- ASP.NET Core2静默获取微信公众号的用户OpenId实例代码
- 如何在代码隐藏的ASP.NET中创建文件夹？
- Documentum Jobs & Methods(好文章,但仍未涉及如果用代码调用方法,以调用超出当前用户权限的功能)
- 用ASP创建MDaemon用户的代码
