用ASP获取MDaemon域名列表

//////////////////////////////////////////////////////////////////////////////

// [MDaemon] 用ASP获取MD域名列表

// 原创作者: 贾俊 (Jaron)

// 网址: http://www.jiangdu.net ;

// 邮件: jaron@jdinfo.net

// 首次发表于江都资讯网,2003-01-12

//////////////////////////////////////////////////////////////////////////////

'domain.asp

'/////////////

<%

DIM oMDUser

DIM Domains

Dim DomainNames()

SET oMDUser = CreateObject("MDUserCOM.MDUser")

IF oMDUser.LoadUserDll() = True THEN

Domains = oMDUser.GetDomainCount

response.Write "共有" & Domains & " 个域名.

"

oMDUser.GetDomainNames(DomainNames)

FOR i = 0 to Domains - 1

response.write DomainNames(i) &"

"

next

ELSE

response.write "Error Loading MDUserCom"

END IF

Set oMDUser = NOTHING

%>