所属类别：Asp

文章作者：未知

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

'*****************************************************' 创建一个WebServer' 必须参数：WRoot,为创建站点的物理目录；WComment为站点说明；WPort为站点端口；ServerRun为是否自动运行' 当创建成功时返回1，失败时提示退出并返回0，当创建站点成功但启动失败时返回2'******************************************************' 　'******************注意：WPort为List类型，意为服务器端口'

本函数在IIS5.0上通过，＊＊必须以管理员身份登录＊＊'端口举例：'Dim WPort,bindlists,createflag,oComputer'oComputer=""""LocalHost""""'binglists=Array(0)'binglists(0)="""":80:""""'端口号为80'WPort=binglists'createflag=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版，请有兴趣的朋友自己去查看'如有问题，欢迎跟我联系:nonepassby@163.comFunction 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.number<>0 ThenErr.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 IfSet VDirObj=NothingSet ServerObj=NothingSet ServiceObj=NothingCreateWebServer=1End Function关闭本页

....