用ASP编程控制在IIS建立Web站点的程序代码'*****************************************************'创建一个WebServer'必须参数：WRoot,为创建站点的物理目录；WComment为站点说明；WPort为站点端口；ServerRun为是否自动运行'当创建成功时返回1，失败时提示退出并返回0，当创建站点成功但启动失败时返回2'******************************************************''******************注意：WPort为List类型，意为服务器端口'本函数在IIS5.0上通过，＊＊必须以管理员身份登录＊＊'端口举例：'DimWPort,bindlists,createflag,oComputer'oComputer=""""LocalHost""""'binglists=Array(0)'binglists(0)="""":80:""""'端口号为80'WPort=binglists'createflag=CreateWebServer(""""D:\myweb"""",""""我的家园"""",WPort,False)'调用建站函数'Ifcreatflag=0Then'Response.Write""""创建站点失败！请确定是否有权限""""'ElseIfcreateflag=1Then'Response.Write""""创建站点成功！""""'ElseIfcreateflag=2Then'Response.Write""""创建站点成功，但启动站点失败，可能端口冲突！""""'EndIf'*********************************************************'关于Ftp站点的创建我已发表在asp版，请有兴趣的朋友自己去查看'如有问题，欢迎跟我联系:nonepassby@163.comFunctionCreateWebServer(WRoot,WComment,WPort,ServerRun)OnErrorResumeNextDimServiceObj,ServerObj,VDirObjSetServiceObj=GetObject(""""IIS://""""&oComputer&""""/W3SVC"""")'首先创建一个服务实例WNumber=1DoWhileIsObject(ServiceObj.GetObject(""""IIsWebServer"""",WNumber))IfErr.number<>0ThenErr.Clear()ExitDoEndIfWNumber=WNumber+1LoopSetServerObj=ServiceObj.Create(""""IIsWebServer"""",WNumber)'然后创建一个WEB服务器If(Err.Number<>0)Then'是否出错'Response.Write""""错误:创建Web服务器的ADSI操作失败！""""CreateWebServer=0ExitFunctionEndIf'接着配置服务器ServerObj.ServerSize=1'中型大小ServerObj.ServerComment=WComment'说明ServerObj.ServerBindings=WPort'端口ServerObj.EnableDefaultDoc=True'提交信息ServerObj.SetInfo'最后，建立虚拟目录SetVDirObj=ServerObj.Create(""""IIsWebVirtualDir"""",""""ROOT"""")If(Err.Number<>0)Then'是否出错'Response.Write""""错误:创建虚拟目录的ADSI操作失败！""""CreateWebServer=0ExitFunctionEndIf'配置虚拟目录VDirObj.Path=WRootVDirObj.AccessRead=TrueVDirObj.AccessWrite=TrueVDirObj.EnableDirBrowsing=FalseVDirObj.EnableDefaultDoc=TrueVDirObj.AccessScript=TrueVDirObj.AppCreate22VDirObj.AppFriendlyName=""""默认应用程序""""VDirObj.SetInfoIfServerRun=TrueThenServerObj.StartIf(Err.Number<>0)Then'Error！'Response.Write""""错误:起动服务器时出错！请手