 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
\\\'***************************************************** \\\' 创建一个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.com Function CreateWebServer(WRoot,WComment,WPort,ServerRun) On Error Resume Next Dim ServiceObj,ServerObj,VDirObj Set ServiceObj = GetObject(""""IIS://""""&oComputer&""""/W3SVC"""")\\\' 首先创建一个服务实例 WNumber=1 Do While IsObject(ServiceObj.GetObject(""""IIsWebServer"""",WNumber)) If Err.number<>0 Then Err.Clear() Exit Do End If WNumber=WNumber+1 Loop Set ServerObj = ServiceObj.Create(""""IIsWebServer"""", WNumber)\\\' 然后创建一个WEB服务器 If (Err.Number <> 0) Then\\\' 是否出错 \\\'Response.Write """"错误: 创建Web服务器的ADSI操作失败！"""" 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 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&""""！<br>"""" CreateWebServer=2 Exit Function End If End If Set VDirObj=Nothing Set ServerObj=Nothing Set ServiceObj=Nothing CreateWebServer=1 End Function 返回类别: 教程 上一教程: ASP 3.0高级编程(三十七) 下一教程: 如何使用ASP生成HTML文件 您可以阅读与"用ASP编程控制在IIS建立WEB站点的程序代码"相关的教程: · 用ASP编程控制在IIS建立WEB站点 · 开发WEB站点编程常用的代码2 · 把ASP程序封装成可执行文件(无需IIS WEB服务器)直接运行的治理系统 · 关于如何保障Winnt +asp +sql web站点的安全经验(2) · 开发WEB站点编程常用的代码1 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
