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

最新推荐文章于 2021-07-08 03:30:26 发布

原创最新推荐文章于 2021-07-08 03:30:26 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#asp #session #table #资讯

Web开发专栏收录该内容

17 篇文章

订阅专栏

博客展示了ASP管理员登录示例代码，包含获取应用目录、域名数量、用户数量等信息，对用户登录进行验证，若用户不存在、权限不足或口令错误会给出相应提示，正确登录则保存用户信息到Session。

//////////////////////////////////////////////////////////////////////////////
// [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>