hen'' 是否出错 ''Response.Write "错误: 创建虚拟目录的ADSI操作失败!" CreateWebServer=0 Exit Function End If '' 配置虚拟目录 VDirObj.Path = WRoot VDirObj.AccessRead = True VDirObj.AccessWrite = True VDirObj.EnableDirBrowsing = False VDirObj.EnableDefaultDoc=True VDirObj.AccessScript=True VDirObj.AppCreate2 2 VDirObj.AppFriendlyName="默认应用程序" VDirObj.SetInfo If ServerRun = True Then ServerObj.Start If (Err.Num页码:[1] [2] [3] [4] [5] [6] 第5页、共6页 |