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.Number <> 0) Then '' Error! ''Response.Write "错误: 起动服务器时出错!请手动启动WebServer "&WComment页码:[1] [2] [3] [4] [5] [6] 第5页、共6页 |