'****************************************************************
'* 虚拟主机管理系统-HostManage1.00
'*
'* 版权所有: 尖端工作室(W120.COM)
'*
'* 程序制作: 尖端工作室
'*
'* 主页地址:
www.w120.com 尖端工作室
'*
'* 联系方法: OICQ:63421507 EMAIL:web@w120.com
'*
'* 下载地址:
www.w120.com/about/down.htm'*
'****************************************************************
HostManage使用完全手册
主要功能对Web站点，ftp站点,mail站点进行管理，这个是2003年9月分的试用版，如果功能不能用，只要把服务器日期改成2003年9月就可以用了。
[Web站点管理]
函数的完整形式
PostWebSit(WebAction,WebSiteName,WebFilesPath,WebDefaultDoc,WebScriptMaps,WebServerbindings,WebAccess,WebLogPath,WebLinks,WebTimes,WebWidth,WebCPU,IUSRName,IUSRPass)
PostWebSit参数说明
WebAction string,主要有add(添加),edit(编辑),del(删除),start(启动),stop(停止)这5种功能
WebSiteName string,Web站点标识说明
WebFilesPath string,Web主目录
WebDefaultDoc string,Web默认文档，如果有多个请用","隔开
WebScriptMaps string,应用程序配置,格式（扩展名,可执行程序,类型,动作）例如支持asp的话可以".asp,C:\WINNT\System32\inetsrv\asp.dll,5,GET,HEAD,POST,TRACE"
如果有多个用"|"隔开
WebServerbindings string,高级多Web站点配置,格式(IP:端口:文件头),如果有多个用不着"|"隔开
WebAccess string,Web权限(S脚本资源访问 R读取 W写入 D目录浏览)
WebLogPath string,Web日志存放路径
WebLinks string,Web连接个数
WebTimes string,Web连接超时
WebWidth string,Web宽带限制
WebCPU string,WebCPU限制
IUSRName string,匿名用户
IUSRPass string,匿名密码
PostWebSit例子:建立一个Web站点标识说明abc.com的网站,主目录是E:\www,支持asp
<%
Dim obj
Dim b
set obj = server.createobject("HostManage.SiteManage")
b = obj.PostWebSit("add","abc.com","e:\www","default.asp,default.htm",".asp,C:\WINNT\System32\inetsrv\asp.dll,5,GET,HEAD,POST,TRACE","127.0.0.1:80:abc.com","RW","100","900","200","8","abc.com","abc.com")
if b then
response.write "建立成功"
else
response.write "建立不成功"
end if
set obj = nothing
%>
[Ftp站点管理]
函数的完整形式
PostFtpSit(FtpAction,FtpUser,CFile,FtpPass,HomeDir,Access,MaxNrUsers,DiskQuota,FtpLdle,SpeedLimitUp,SpeedLimitDown)
PostFtpSit参数说明
FtpAction string,主要有add(添加),edit(编辑),del(删除)这三种功能
FtpUser string,Ftp用户名
CFile string,Ftp配置文件,例如:D:\Serv-U\ServUDaemon.ini
FtpPass string,Ftp密码
HomeDir string,Ftp上传路径
Access string,Ftp权限(R读 W写 A覆盖 M删除 L列目录 C建目录 D删目录 P继承 )
MaxNrUsers string,同时在线用户数目
DiskQuota string,空间大小 单位bytes(字节)
FtpLdle string,用户在线停留时间,单位秒
SpeedLimitUp string,Ftp最大上传速度,单位bytes(字节)
SpeedLimitDown string,ftp最大下载速度,单位bytes(字节)
PostFtpSit例子:建立一个用户名为user01,密码user02，空间大小是10M,空间目录E:\abc.com
<%
Dim obj
Dim b
set obj = server.createobject("HostManage.SiteManage")
b = obj.PostFtpSit("add","user01","D:\Program Files\Serv-U\ServUDaemon.ini","user02","e:\abc.com","RLP","100","10240000","600","102400","102400")
if b then
response.write "建立成功"
else
response.write "建立不成功"
end if
set obj = nothing
%>
[邮件域名管理]
函数的完整形式
PostEmailDomain(Action,MailDir,Domain,IPAddress,Bind,MaxInactive,MaxMessageAge,MaxDeletedIMAPMessageAge,RecurseIMAP)
PostEmailDoamin参数说明
Action string,主要有add(添加),edit(编辑),del(删除)这三种功能
MailDir string,指邮件服务器MDaemon安装路径,如D:\MDaemon
Domain string,要建立的邮箱域名
IPAddress string,本机的IP地址
Bind string,是否绑定只能ip访问,一般填"Yes"或者"No"
MaxInactive string,几天后删除这个域名
MaxMessageAge string,几天后删除这个域名内的信件
MaxDeletedIMAPMessageAge string,几天后删除这个域名内的IMAP信件
RecurseIMAP string,是否删除旧的IMAP文件夹,一般填"Yes"或者"No"
PostEmailDoamin例子:建立一个abc.com邮箱域名
<%
Dim obj
Dim b
set obj = server.createobject("HostManage.SiteManage")
b = obj.PostEmailDomain("add","D:\MDaemon","abc.com","127.0.0.1","No","0","0","0","No")
if b then
response.write "建立成功"
else
response.write "建立不成功"
end if
set obj = nothing
%>
[邮箱管理]
函数的完整形式
PostEmail(Action,MailDir,Domain,MailBox,IPAddress,RealName,PassWord,MessageMax,MessageDisk)
PostEmail参数说明
Action string,主要有add(添加),edit(编辑),del(删除)这三种功能
MailDir string,指邮件服务器MDaemon安装路径,如D:\MDaemon
MailBox string,邮件名称
IPAddress string,本机的IP地址
RealName string,邮件全名
PassWord string,邮件密码
MessageMax string,邮箱的最大信件个数
MessageDisk string,邮件容量 单位kb
PostEmail例子:建立一个web@abc.com邮箱,在建立邮箱之前先建立abc.com域名,邮箱密码是12345,最大信件个数是1000封，邮件容量100m
<%
Dim obj
Dim b
set obj = server.createobject("HostManage.SiteManage")
b = obj.PostEmail("add","D:\MDaemon","abc.com","web","127.0.0.1","abc.com","12345","1000","100")
if b then
response.write "建立成功"
else
response.write "建立不成功"
end if
set obj = nothing
%>
