Use ASP to check MDaemon system administrator login

//

// [mdaemon] Check the MDaemon system administrator login with ASP

// original author: Jia Jun (Jaron)

// URL:

http://www.jiangdu.net;

// message: jaron@jdinfo.net

// First 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 ITARACCOUNTS DIM ITOTALDOMAINSS

ketoredomains = omduser.getdomaincount itotaCcounts = omduser.usercount

Redim Adomains (0, ItotArdomains) OMDUSER.GETDOMAINNAMES (Adomains)

If Request.form ("cmdlogin") = "add" then

Slogin = Request.form ("txtusername") spassword = request.form ("txtpassword")

iuserid = omduser.getbyemail (slogin)