最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
IIS自动开通组件编程
时间:2008-01-12 编辑:简简单单 来源:一聚教程网
'' 必须参数:WRoot,为创建站点的物理目录;WComment为站点说明;WPort为站点端口;ServerRun为是否自动运行&n
bsp;
'' 当创建成功时返回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
''******************************************************************************
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服务器
-
上一个: 疯狂DJ联盟-v1.0带(最新数据库)版
-
下一个: 20种看ASP源代码的方法及工具
相关文章
- 晃咖自动录制方法 晃咖怎么自动录制 08-01
- 详解在swift中实现NSCoding的自动归档和解档 07-20
- word自动编号怎么添加 07-04
- AutoCAD自动吸附模式教程 06-12
- GarageBand自动琶音器怎么用 自动琶音器使用方法 06-03
- Java线程监听,意外退出线程后自动重启的实现方法 05-18