<%@ Language=VBScript %>

在线注册演示

<%

Dim sMessage

If Request.Form("cmdAddUser") <> "" Then

Dim oMDUser

Dim oMDUserInfo

Dim nResult

Dim sFullName, sUserName, sPassword, sDomain

' 获取用户输入的信息

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 MDLDLERR_NOERROR

sMessage = "恭喜您，用户注册成功！"

Case MDLDLERR_USEREXISTS

sMessage = "抱歉，用户名 '" & sUserName & "' 已存在！注册失败，请尝试其他用户名。"

End Select

End If

End If

%>

对于注册新用户的过程，我们有一个友好的网页界面。在用户在表单填写完所有必要信息并点击“注册新用户”按钮后，我们的系统会启动一系列操作。这个过程涉及到用户的域名、全名、登录名和密码的输入。如果在这个过程中出现任何错误，我们会立刻告知用户。

《新用户注册》

我们期待您的加入，请填写以下信息以完成注册：

《FORM ACTION="adduser.asp" METHOD=post ID="Form1"》

《TABLE ID="Table1"》

《TR》《TD》域名：《/TD》《TD》请输入您的域名，例如：system.mail 《/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" type="password"》请设置您的密码《/TD》《/TR》

《TR》《TD》《INPUT TYPE="submit" value="注册新用户" NAME="cmdAddUser" ID="Submit1" value="注册"/>《/TD》《/TR》

《/TABLE》

在用户提交注册信息后，我们的系统将处理这些信息。如果出现错误，例如无法加载必要的DLL文件或者注册用户失败等，我们会通过页面反馈告知用户。我们会在页面底部以HTML的形式显示这些信息。这样用户可以立即知道问题所在，并作出相应的调整。

我们的新用户注册页面设计得既实用又友好。无论用户是新用户还是老用户，都可以在这里轻松地完成注册过程。我们期待您的加入，让我们一起开启新的旅程！

请注意，以上内容仅为示例文本，实际注册过程可能有所不同。为了保障信息安全和用户体验，请确保您的网站遵循最佳的安全实践和用户隐私保护原则。