用ASP检查MDaemon系统管理员登录

// 
// [MDaemon] 用ASP检查MDaemon系统管理员登录 
// 原创作者: 贾俊 (Jaron) 
// 网址: http://www.jiangdu.net ; 
// 邮件: jaron@jdinfo.net 
// 首次发表于江都资讯网，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 = "无此用户" 
End If 
If iUserID <> 1 Then 
sMessage = "权限不够，请用系统管理员登录" 
Else 
If sPassword = oMDUser.GetPassword(iUserID) Then 
Session("MDUsers") = sLogin 
oMDUser.GetFree iUserID 
sMessage = "正确登录" 
Else 
sMessage = "口令错误" 
End If 
End If 
End If 
%> 
管理员登录示例！ 
<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" ID="Password1"></TD></TR> 
<TR><TD></TD><TD><INPUT TYPE="submit" value="Add" NAME="cmdLogin" ID="Submit1"></TD></TR> 
</TABLE> 
<%=sMessage%> 
</FORM>