//////////////////////////////////////////////////////////////////////////////
[MDaemon] Use ASP to check MDaemon system administrator Login
Original Author: Jia Jun (Jaron)
Website: http://www.jiangdu.net;
Mail: jaron@jdinfo.net
First published in Jiangdu Information Network, 2003-01-12
//////////////////////////////////////////////////////////////////////////////
<%
Set Omduser = Server.CreateObject ("Mdusercom.mduser")
Set omduserinfo = Server.CreateObject ("Mdusercom.mduserinfo")
Omduser.loaduserdll
Cappdir = Omduser.getappdir
Dim Adomains ()
Dim itotalaccounts
Dim Itotaldomains
Itotaldomains = Omduser.getdomaincount
Itotalaccounts = Omduser.usercount
Redim Adomains (0,itotaldomains)
Omduser.getdomainnames (Adomains)
If Request.Form ("cmdlogin") = "Add" Then
Slogin = Request.Form ("txtUserName")
Spassword = Request.Form ("Txtpassword")
Iuserid = Omduser.getbyemail (slogin)
If Iuserid =-1 Then
smessage = "No This user"
End If
If Iuserid <> 1 Then
smessage = "Insufficient permissions, please login with system administrator"
Else
If Spassword = Omduser.getpassword (Iuserid) Then
Session ("mdusers") = slogin
Omduser.getfree Iuserid
smessage = "Log on correctly"
Else
smessage = "Password Error"
End If
End If
End If
%>
Administrator Login Sample!
<form action= "Login.asp" Method=post id= "Form1" >
<table id= "Table1" >
<tr><td>domain:</td><td><input size=50 name= "Txtdomain" ID= "Text1" ></TD></ Tr>
<tr><td>user name:</td><td><input size=25 name= "txtUserName" ID= "Text3" ></TD> </TR>
<tr><td>password:</td><td><input type= "Password" size=25 name= "TxtPassword" Password1 "></TD></TR>
<tr><td></td><td><input type= "Submit" value= "Add" name= "Cmdlogin" id= "Submit1" ></ Td></tr>
</TABLE>
<%=sMessage%>
</FORM>
