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