=============================================================
'感谢您使用ASP001工作室开发的实用函数程序
'HTTP://WWW.ASP001.NET
'=============================================================
'ASP001工作室为您提供订制程序开发、企业互联网拓展服务
'QQ：1974229
'E-Mail：Shenyangchuqi@tom.com
'更多程序下载请到HTTP://WWW.ASP001.NET
'=============================================================
'函数介绍：创建WebSite
'本函数使用ADSI，需要Administrators组用户权限
'函数名称：CreateWebSite(Computer,IPAddr,PortNum,HostName,WebSiteDirectory,LogDirectory,WebSiteInfo,GuestUserName,GuestUserPass,StartOrStop)
'程序开发：ASP001工作室ChuQi
'用法：CreateWebSite计算机名(一搬为LocalHost或127.0.0.1),站点IP地址,端口号,主机名,站点根目录,,LOG文件的目录站点说明,网站访问时所使用的帐号,网站访问时所用帐号的口令,是否启动站点
'例：CreateWebSite"LocalHost","127.0.0.123","80","www.test.net","E:UserDataUserNum001","E:UserDataUserNum001LogFiles","wwwtest.net","IUSR_Num001_test.net","abc888",True
'=============================================================
FunctionCreateWebSite(Computer,IPAddr,PortNum,HostName,WebSiteDirectory,LogDirectory,WebSiteInfo,GuestUserName,GuestUserPass,StartOrStop)
Dimw3svc,WebServer,NewWebServer,NewDir
DimBindings,BindingString,NewBindings,SiteNum,SiteObj,bDone
OnErrorResumeNext
Err.Clear
'检测是否能够加载W3SVC服务（即WEB服务）
Setw3svc=GetObject("IIS://"&Computer&"/w3svc")
IfErr.Number<>0Then'显示错误提示
response.write"无法打开:"&"IIS://"&Computer&"/w3svc"
response.end
EndIf
'检测是否有设定相同IP地址、端口及主机名的站点存在
BindingString=IPAddr&":"&PortNum&":"&HostName
ForEachWebServerinw3svc
IfWebServer.Class="IIsWebServer"Then
Bindings=WebServer.ServerBindings
IfBindingString=Bindings(0)Then
response.write"IP地址冲突:"&IPAddr&",请检测IP地址！."
ExitFunction
EndIf
EndIf
Next
'确定一个不存在的站点编号做为新建站点编号，系统默认WebSite站点编号为1，因此从2开始
SiteNum=2
bDone=False
While(NotbDone)
Err.Clear
SetSiteObj=GetObject("IIS://"&Computer&"/w3svc/"&SiteNum)'加载指定站点
If(Err.Number=0)Then
'response.write"Step_1站点"&SiteNum&"存在"
SiteNum=SiteNum+1
Else
'response.write"Step_1站点"&SiteNum&"不存在"
Err.Clear
SetNewWebServer=w3svc.Create("IIsWebServer",SiteNum)'创建指定站点
If(Err.Number<>0)Then
'response.write"Step_2站点"&SiteNum&"创建失败"
SiteNum=SiteNum+1
Else
'response.write"Step_2站点"&SiteNum&"创建成功"
bDone=True
EndIf
EndIf
If(SiteNum>50)Then'服务器最大创建站点数
response.write"超出服务器最大创建站点数，正在创建的站点的序号为："&SiteNum&"."
response.end
EndIf
Wend
'进行站点基本配置
NewBindings=Array(0)
NewBindings(0)=BindingString
NewWebServer.ServerBindings=NewBindings
NewWebServer.ServerComment=WebSiteInfo
NewWebServer.AnonymousUserName=GuestUserName
NewWebServer.AnonymousUserPass=GuestUserPass
NewWebServer.KeyType="IIsWebServer"
NewWebServer.FrontPageWeb=True
NewWebServer.EnableDefaultDoc=True
NewWebServer.DefaultDoc="Default.htm,Default.asp,Index.htm,Index.asp"
NewWebServer.LogFileDirectory=LogDirectory
NewWebServer.SetInfo
SetNewDir=NewWebServer.Create("IIsWebVirtualDir","ROOT")
NewDir.Path=WebSiteDirectory
NewDir.AccessRead=true
NewDir.AppFriendlyName="应用程序"&WebSiteInfo
NewDir.AppCreateTrue
NewDir.AccessScript=True
Err.Clear
NewDir.SetInfo
If(Err.Number=0)Then
Else
response.write"主目录创建时出错."
response.end
EndIf
IfStartOrStop=TrueThen
Err.Clear
SetNewWebServer=GetObject("IIS://"&Computer&"/w3svc/"&SiteNum)
NewWebServer.Start
IfErr.Number<>0Then
response.write"启动站点时出错!"
response.end
Err.Clear
Else
EndIf
EndIf
response.write"站点创建成功，站点编号为："&SiteNum&"，域名为："&HostName
EndFunction
【使用ASP在IIS创建WEB站点的函数】相关文章：