组件下载：http://www.w120.com/buy/down.htm
文章出处：http://www.w120.com/product/readme01.htm

新建站点
<%
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
%>



编辑站点
<%
Dim obj
Dim b
set obj = server.createobject("HostManage.SiteManage")
b = obj.PostFtpSit("edit","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
%>

删除站点
<%
Dim obj
Dim b
set obj = server.createobject("HostManage.SiteManage")
b = obj.PostFtpSit("del","user01","D:\Program Files\Serv-U\ServUDaemon.ini")
if b then
response.write "成功"
else
response.write "失败"
end if
set obj = nothing
%>