使用ASP在IIS创建WEB站点的函数

ASP是一种动态内容生成的脚本语言，可以在IIS服务器上创建WEB站点，下面是使用ASP在IIS创建WEB站点的函数的完整攻略。

1. 准备工作

在使用ASP创建WEB站点之前，需要以下几个步骤：
- 确保已经安装IIS服务器；
- 配置好IIS服务器的相关设置；
- 创建ASP页面。

2. 使用函数创建WEB站点

要创建一个WEB站点，可以使用以下ASP函数：

Set WebSite = GetObject("IIS://localhost/W3SVC")
Set WebDir = WebSite.Create("IISWebVirtualDir", "WebSiteName")
WebDir.Path = "C:\inetpub\wwwroot\WebSitePath"
WebDir.Put "AccessRead", True
WebDir.Put "AccessWrite", True
WebDir.Put "EnableDirBrowsing", True
WebDir.Put "AuthAnonymous", True
WebDir.SetInfo

其中，GetObject从指定的路径获取COM对象；Create函数创建一个虚拟目录，接收两个参数：虚拟目录对象类型和虚拟目录的名称；Path属性指定了站点的路径；Put函数设置各个选项；SetInfo函数保存更改。

下面是一个示例：

<%
Set WebSite = GetObject("IIS://localhost/W3SVC")
Set WebDir = WebSite.Create("IISWebVirtualDir", "MyWebSite")
WebDir.Path = "C:\inetpub\wwwroot\MyWebSite"
WebDir.Put "AccessRead", True
WebDir.Put "AccessWrite", True
WebDir.Put "EnableDirBrowsing", True
WebDir.Put "AuthAnonymous", True
WebDir.SetInfo
%>

3. 示例说明

示例1：更改网站设置
以下示例是使用ASP设置指定站点的相关属性：

<%
Set WebSite = GetObject("IIS://localhost/W3SVC")
Set WebDir = WebSite.GetObject("","IISWebVirtualDir","MyWebSite")
WebDir.Put "AuthAnonymous", False
WebDir.Put "AccessWrite", False
WebDir.SetInfo
%>

此示例中，我们获取名为“MyWebSite”的站点，然后禁用了匿名访问，以及写入权限。

示例2：创建多个网站
以下示例是使用一个循环体创建多个网站：

<%
Set WebSite = GetObject("IIS://localhost/W3SVC")
For i = 1 To 3
   Set WebDir = WebSite.Create("IISWebVirtualDir", "MyWebSite" & i)
   WebDir.Path = "C:\inetpub\wwwroot\MyWebSite" & i
   WebDir.Put "AccessRead", True
   WebDir.Put "EnableDirBrowsing", True
   WebDir.Put "AuthAnonymous", True
   WebDir.SetInfo
Next
%>

此示例中，我们使用循环体创建了三个名为“MyWebSite1”、“MyWebSite2”、“MyWebSite3”的网站，每个网站的目录路径不同。