r> CreateWebServer=0
Exit Function
End 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=0
页码：[1] [2] [3] [4] [5] [6] 第4页、共6页 |
