最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
用ASP编程控制在IIS建立Web站点的程序代码
时间:2008-01-12 编辑:简简单单 来源:一聚教程网
'*****************************************************
' 创建一个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))
' 创建一个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))
相关文章
- asp仿采集程序 09-05
- asp 输出word文档程序 02-22
- asp sogou收录抓取程序 12-03
- asp 程序提示中午好,上午好程序 06-23
- [招聘]asp程序员 2000-5000 04-06
- [招聘] asp程序员 03-27