用ASP编程控制在IIS建立Web站点的程序代码.doc

用ASP编程控制在IIS建立Web站点的程序代码* 创建一个WebServer 必须参数：WRoot,为创建站点的物理目录；WComment为站点说明；WPort为站点端口；ServerRun为是否自动运行 当创建成功时返回1，失败时提示退出并返回0，当创建站点成功但启动失败时返回2* *注意：WPort为List类型，意为服务器端口本函数在IIS5.0上通过，必须以管理员身份登录端口举例：Dim WPort,bindlists,createflag,oComputeroComputer=LocalHostbinglists=Array(0)binglists(0)=:80:端口号为80WPort=binglistscreateflag=CreateWebServer(D:myweb,我的家园,WPort,False)调用建站函数If creatflag=0 Then Response.Write 创建站点失败！请确定是否有权限ElseIf createflag=1 Then Response.Write 创建站点成功！ElseIf createflag=2 Then Response.Write 创建站点成功，但启动站点失败，可能端口冲突！End If*关于Ftp站点的创建我已发表在asp版，请有兴趣的朋友自己去查看如有问题，欢迎跟我联系:Function CreateWebServer(WRoot,WComment,WPort,ServerRun)On Error Resume NextDim ServiceObj,ServerObj,VDirObjSet ServiceObj = GetObject(IIS:/&oComputer&/W3SVC) 首先创建一个服务实例WNumber=1Do While IsObject(ServiceObj.GetObject(IIsWebServer,WNumber)If Err.number0 Then Err.Clear()Exit DoEnd IfWNumber=WNumber+1LoopSet ServerObj = ServiceObj.Create(IIsWebServer, WNumber) 然后创建一个WEB服务器If (Err.Number 0) Then 是否出错Response.Write 错误:创建Web服务器的ADSI操作失败！CreateWebServer=0Exit FunctionEnd If 接着配置服务器ServerObj.ServerSize = 1 中型大小ServerObj.ServerComment = WComment 说明ServerObj.ServerBindings = WPort 端口ServerObj.EnableDefaultDoc=True 提交信息ServerObj.SetInfo 最后，建立虚拟目录Set VDirObj = ServerObj.Create(IIsWebVirtualDir, ROOT)If (Err.Number 0) Then 是否出错Response.Write 错误:创建虚拟目录的ADSI操作失败！CreateWebServer=0Exit FunctionEnd If 配置虚拟目录VDirObj.Path = WRootVDirObj.AccessRead = TrueVDirObj.AccessWrite = TrueVDirObj.EnableDirBrowsing = FalseVDirObj.EnableDefaultDoc=TrueVDirObj.AccessScript=TrueVDirObj.AppCreate2 2VDirObj.AppFriendlyName=默认应用程序VDirObj.SetInfoIf ServerRun = True Then ServerObj.Start If (Err.Number 0) Then Error！Response.Write 错误:起动服务器时出错！请手动启动WebServer &WComment&！CreateWebServer=2Exit Function End IfEnd