用ASP創(chuàng)建MDaemon用戶的代碼
更新時(shí)間：2007年03月28日 00:00:00 作者：
<%@ Language=VBScript %>
<!-- METADATA TYPE="TypeLib" UUID="{01E88D14-F479-4CA5-9CA8-EBD2EED74C83}" -->
<HTML>
<BODY>
<H1 align=center>在線注冊(cè)演示</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 = "用戶注冊(cè)成功!"
Case MDDLLERR_USEREXISTS
sMessage = "用戶名： '" & sUserName & "' 已存在!注冊(cè)失?。?
case Else
sMessage = "注冊(cè)用戶失敗 ! 錯(cuò)誤代碼:" & nResult
End Select
oMDUser.FreeUserDll
Else
sMessage = "錯(cuò)誤: 不能加載DLL文件"
End If
Set oMDUser = Nothing
Set oMDUserInfo = Nothing
End If
%>
<P>新用戶注冊(cè)</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="注冊(cè)新用戶" NAME="cmdAddUser" ID="Submit1"></TD></TR>
</TABLE>
</FORM>
<%
Response.Write(sMessage & "<BR>")
%>
</BODY>
</HTML>
<!-- METADATA TYPE="TypeLib" UUID="{01E88D14-F479-4CA5-9CA8-EBD2EED74C83}" -->
<HTML>
<BODY>
<H1 align=center>在線注冊(cè)演示</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 = "用戶注冊(cè)成功!"
Case MDDLLERR_USEREXISTS
sMessage = "用戶名： '" & sUserName & "' 已存在!注冊(cè)失?。?
case Else
sMessage = "注冊(cè)用戶失敗 ! 錯(cuò)誤代碼:" & nResult
End Select
oMDUser.FreeUserDll
Else
sMessage = "錯(cuò)誤: 不能加載DLL文件"
End If
Set oMDUser = Nothing
Set oMDUserInfo = Nothing
End If
%>
<P>新用戶注冊(cè)</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="注冊(cè)新用戶" NAME="cmdAddUser" ID="Submit1"></TD></TR>
</TABLE>
</FORM>
<%
Response.Write(sMessage & "<BR>")
%>
</BODY>
</HTML>
相關(guān)文章
asp中將字符串轉(zhuǎn)數(shù)字的函數(shù)小結(jié)
這篇文章主要介紹了asp中將字符串轉(zhuǎn)數(shù)字的函數(shù)小結(jié),需要的朋友可以參考下2020-09-09
今天在開發(fā)用戶留言，一份存到數(shù)據(jù)庫(kù)中，另外一份要發(fā)送到制定的郵箱中，因不知道服務(wù)器是否支持，如果支持則發(fā)送留言信息到email中。2010-12-12
asp base64 utf-8為了兼容asp.net的base64
asp base64 utf-8為了兼容asp.net的base642009-07-07
寫在前面的話:此篇還是asp相關(guān)的,相信玩ASP的都有這個(gè)感覺,當(dāng)數(shù)據(jù)有5萬多條時(shí)-------just like音樂網(wǎng),要調(diào)用最新的10條在頁(yè)面顯示,糟糕的是,當(dāng)n多用戶打開頁(yè)面訪問的時(shí)候,每個(gè)用戶每次都要讀取數(shù)據(jù)庫(kù)一次,這無疑降低了效率,很明顯, 如果能把數(shù)據(jù)能保存在內(nèi)存上,然后讀取,無疑加快了速度.2008-04-04
asp 網(wǎng)站靜態(tài)化函數(shù)代碼html
asp 網(wǎng)站靜態(tài)化代碼html,具體的功能大家可以測(cè)試下。2009-09-09
ASP隱藏真實(shí)文件的下載功能實(shí)現(xiàn)代碼
將下邊的文件保存為Download.asp就可以了，然后根據(jù)需要傳要下載的文件過來就可以了。2008-12-12
去除HTML代碼中所有標(biāo)簽的兩種方法...2007-08-08
用Response.Buffer=True為程序加速,Response.Flush()內(nèi)容至少要有256字節(jié)2008-06-06
asp使用AspJson轉(zhuǎn)換json數(shù)據(jù)
需要使用json數(shù)據(jù)的場(chǎng)景很多,那么asp中如何操作json數(shù)據(jù)呢？asp與json格式又如何交互呢？本文介紹使用AspJson轉(zhuǎn)換為json格式數(shù)據(jù)輸出,以及解析json數(shù)據(jù)2024-01-01
asp身份證驗(yàn)證代碼函數(shù)...2007-11-11