sample.asp

<虚拟主机站点管理系统>呵呵是我们公司的一个小产品

<%
'砺青服务器管理组件编程接口说明(以ASP程序为例)


'1,IIS管理
set lqsm_web= server.CreateObject("lqsm.web")


WebList = lqsm_web.GetWebIndexList()
'返回IIS中站点ID列表,以逗号隔开,如:1,2,3,4,5等

ret = lqsm_web.WebManage(WebAction,WebIndex, WebSiteName,WebFilesPath,WebDefaultDoc,WebIP,WebPort,WebHostName,WebAccess,WebLogPath,WebLinks,WebTimes,WebWidth,WebCPU,IUSRName,IUSRPass,WebState,ErrMsg)
'IIS管理函数
'ret:返回结果,0表示成功,非0表示失败
'WebAction:动作,add:增加,del:删除,edit:编辑,query:查询
'WebIndex:IIS中站点ID,用GetWebIndexList获取其列表
'WebSiteName:站点名称
'WebFilesPath:主目录
'WebDefaultDoc:默认文档,如果有多个,以分号隔开,如:default.asp,index.htm
'WebIP:IP地址
'WebPort:端口
'WebHostName:主机头,一般填虚拟主机的域名
'WebAccess:目录权限,S脚本资源访问 R读取 W写入 D目录浏览, 如一个站点目录权限读取+写入+脚本,则'WebAccess="RWS"
'WebLogPath:日志目录
'WebLinks:连接数,单位:个
'WebTimes:超时,单位:秒
'WebWidth:带宽,单位:KB/S
'WebCPU:CPU使用率,单位:百分比
'IUSRName:默认用户名
'IUSRPass:用户密码
'WebState:站点状态,1,正常, 2,停止
'ErrMsg:返回的错误信息



'2,FTP管理:
set lqsm_ftp= server.CreateObject("lqsm.ftp")

FtpList = lqsm_ftp.GetFtpUserList()
'获取Ftp帐号列表,用逗号分开.如:lqwl1,lqwl2,lqwl3,等
ret = lqsm_ftp.FtpManage(FtpAction,FtpUser, FtpPass, HomeDir, Access, MaxNrUsers, DiskQuota, FtpLdle, SpeedLimitUp, SpeedLimitDown,FtpState,ErrMsg)
'FtpAction:动作,add:增加,del:删除,edit:编辑,query:查询
'FtpUser:Ftp帐号,用GetFtpUserList获取
'FtpPass:密码
'HomeDir:主目录
'Access:目录权限,R读 W写 A覆盖 M删除 L列目录 C建目录 D删目录 P继承,如果:RWA表示拥有读写覆盖的权限
'MaxNrUsers:最多用户数
'DiskQuota:硬盘空间,单位:M
'FtpLdle:超时,单位:分种
'SpeedLimitUp:上传速度,单位:KB/秒
'SpeedLimitDown:下载速度,单位:KB/秒
'FtpState:状态,1,正常,2,停止



'3,Mail管理
set lqsm_mail= server.CreateObject("lqsm.mail")

MailList = lqsm_mail.GetMailList()
'获取Mail帐号列表,用逗号分开,如:lqwl.com,lqwl2.com,lqwl3.com

ret=lqsm_mail.MailManage(MailAction,MailDir, Domain, MailBox, IPAddress, RealName, PassWord, MessageMax, MessageDisk,MaxRcv,MaxUsers,ErrMsg)
'MailAction:动作,add:增加,del:删除,edit:编辑,query:查询
'MailDir:主目录
'Domain:域名,可以从GetMailList获取
'MailBox:邮箱名,如:root,mail,web等
'IPAddress:IP地址
'RealName:真实姓名
'PassWord:密码
'MessageMax:最大邮件数
'MessageDisk:邮箱大小,如:50M,100M,单位:M
'MaxRcv:最大邮件大小,单位:M
'MaxUsers:最多用户数
'ErrMsg:错误信息


'4,DNS管理
set lqsm_dns= server.CreateObject("lqsm.dns")

ret = lqsm_dns.DnsCreate(Domain,ErrMsg) '新建域名
ret = lqsm_dns.DnsDelete(Domain,ErrMsg)	'删除域名
ret = lqsm_dns.DnsZoneList(DnsList,ErrMsg) '域名列表
ret = lqsm_dns.RList(Domain,ClassType,DnsRList,ErrMsg) '记录列表
ret = lqsm_dns.RCreate(Domain, OwnerName, ClassType, Param1, Param2, strErrMsg) '创建记录
ret = lqsm_dns.REdit(Domain, OwnerName, ClassType, Param1, Param2, ErrMsg) '编辑记录
ret = lqsm_dns.RDelete(Domain,OwnerName,ClassType,ErrMsg) '删除记录

'Domain:域名,如:lqwl.com等
'ClassType:记录类型,A:A记录,MX:MX邮箱记录,NS:NS记录,CNAME:CNAME别名记录
'OwnerName:记录的属主名称,A记录中的主机名,CNAME记录中的别名,NS记录中的DNS服务器域名,MX记录为空
'DnsList:域名列表,以逗号分开,如:lqwl.com,lqwl2.com等
'DnsRList:记录列表,逗号号隔开,如:www,ftp,download等
'Param1:参数1,A记录的IP地址,MX记录的邮箱指向域名,NS记录的DNS服务器名,CNAME记录的别名指向的域名
'Param2:参数2,MX记录的优先级,其余的为空
'ErrMsg:错误码信息
'ret:返回结果,0成功,非0失败


'配置管理
set lqsm_config= server.CreateObject("lqsm.config")
ret =lqsm_config.CfgManage(ConfigAction,WebHomeDir,MailHomeDir,WebIPList,UserName,UserPass,HostID,RegCode,ErrMsg)
'配置管理信箱
'ConfigAction:query:查询,edit:编辑,login,登录
'WebHomeDir:IIS站点的主目录,所以开通的IIS站点,都会在该目录下创建子目录
'MailHomeDir:MAIL的主目录,存放在Mail的目录
'WebIPList:本机的IP列表,有多个IP用逗号号隔开,如: 127.0.0.1,192.168.1.1,192.168.1.2等
'UserName:管理员用户名
'UserPass:管理员用户密码
'HostID:机器码
'RegCode:注册码
'ErrMsg:错误信息
'ret:返回结果,0成功,非0失败

%>