用ASP.NET（VB版）创建WINDOWS 2000 SERVER站点

用ASP.NET（VB版）创建WINDOWS 2000 SERVER站点

.NET（VB）创建的WEB站点，我们的调用方式非常简单：

Dim test As New Class1()

test.CreateWebSit(webname,port, "D:\VB", "localhost")

下面是Class1的代码，该代码做的工作就是建立站点，如果有此站点的名称则自动覆盖（注意：本类需要引用Actice DS Type Library）

Public Class Class1

用localhost

@#===========================

Function CreateWebSit(ByVal WWWSiteName As String, _

ByVal WWWTCPPort As String, _

ByVal WWWFilesPath As String, _

ByVal ComputerName As String) As Boolean

CreateWebSit = True

Dim TCPPort() As Object

@#建立活动桌面@#（IADS）对象。首先要在 VB 中的 @#prject@#菜单中的@#references@#中引@#用 Active DS @#Type @#library 组件

Dim WWWServer As ActiveDs.IADs

Dim WWWService

Dim WWWVdir, WWWVdir2, WWWVdirRes As ActiveDs.IADs

Dim i As Integer

Dim HandleSameCase As Boolean

@#取得W3SVC服务