ASP如何在IIS创建WEB站点的函数

你知道ASP如何在IIS创建WEB站点的函数吗？是不是很多小伙伴们对此技巧都是半知半解的呢？接下来的过程中小编将为大家介绍使用ASP在IIS创建WEB站点的函数的方法，希望对你有所帮助。
'函数介绍：创建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:\UserData\UserNum001","E:\UserData\UserNum001\LogFiles","wwwtest.net","IUSR_Num001_test.net","abc888",True
'=============================================================

Function?CreateWebSite(Computer,IPAddr,PortNum,HostName,WebSiteDirectory,LogDirectory,WebSiteInfo,GuestUserName,GuestUserPass,StartOrStop)
Dim?w3svc,?WebServer,?NewWebServer,?NewDir
Dim?Bindings,?BindingString,?NewBindings,?SiteNum,?SiteObj,?bDone
On?Error?Resume?Next
Err.Clear
'检测是否能够加载W3SVC服务（即WEB服务）
Set?w3svc?=?GetObject("IIS://"?&?Computer?&?"/w3svc")
If?Err.Number?<>?0?Then?'显示错误提示
response.write?"无法打开:?"&"IIS://"?&?Computer?&?"/w3svc"
response.end
End?If

'检测是否有设定相同IP地址、端口及主机名的站点存在
BindingString?=?IPAddr?&?":"?&?PortNum?&?":"?&?HostName
For?Each?WebServer?in?w3svc
If?WebServer.Class?=?"IIsWebServer"?Then
Bindings?=?WebServer.ServerBindings
If?BindingString?=?Bindings(0)?Then
response.write?"IP地址冲突:"?&?IPAddr?&?",请检测IP地址！."
Exit?Function
End?If
End?If
Next

'确定一个不存在的站点编号做为新建站点编号，系统默认WebSite站点编号为1，因此从2开始
SiteNum=2
bDone?=?False

While?(Not?bDone)
Err.Clear
Set?SiteObj?=?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
Set?NewWebServer?=?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
???End?If
End?If

If?(SiteNum?>?50)?Then??'服务器最大创建站点数
response.write?"超出服务器最大创建站点数，正在创建的站点的序号为：?"&SiteNum&"."
response.end
End?If
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

Set?NewDir?=?NewWebServer.Create("IIsWebVirtualDir",?"ROOT")
NewDir.Path?=?WebSiteDirectory
NewDir.AccessRead?=?true
NewDir.AppFriendlyName?=?"应用程序"?&?WebSiteInfo
NewDir.AppCreate?True
NewDir.AccessScript?=?True
Err.Clear
NewDir.SetInfo
If?(Err.Number?=?0)?Then
Else
response.write?"主目录创建时出错."
response.end
End?If

If?StartOrStop?=?True?Then
Err.Clear
Set?NewWebServer?=?GetObject("IIS://"?&?Computer?&?"/w3svc/"?&?SiteNum)
NewWebServer.Start
If?Err.Number?<>?0?Then
response.write?"启动站点时出错!"
response.end
Err.Clear
Else
End?If
End?If?
response.write?"站点创建成功，站点编号为："&?SiteNum?&"?，域名为："&?HostName
End?Function

以上就是ASP如何在IIS创建WEB站点的函数的内容，小编把一些关键点以及使用ASP在IIS创建WEB站点的函数方法整理出来，方便大家以后使用。

原文链接:https://js.aizhan.com/develop/asp/9007.html
如有疑问请与原作者联系

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有