2009年8月29日   星期六   风晴   愉悦   隐私度(0)   
ASP程序自动创建IIS站点!-mmxhero|邱少日记|邱少网|邱少时空站ASP程序自动创建IIS站点!

<%
'********************************************************************************** 
' 创建一个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 
 WPath=Request("WPath")
 WPort=Request("WPort")
 WComment=Request("WComment")
    createflag=CreateWebServer(WPath,WComment,WPort,False)'调用建站函数 
'IF creatflag=0 Then 
      'Response.Write "创建站点失败!请确定是否有权限" 
   'ElseIf createflag=1 Then 
   Response.Write "创建站点"&WComment&"成功!" 
  ' ElseIf createflag=2 Then 
   '   Response.Write "创建站点成功,但启动站点失败,可能端口冲突!" 
 'End If 
 ' 例子:?WComment=ASP建站1&WPath=D:\myWeb1&WPort=:80:
'******************************************************************************** 
'关于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
 
%>


mmxhero 写于 北京市东城区鼓楼大街安德路55号13栋105室  

 

网友的评论意见或建议
还没有评论!
欢迎
参与
评论
您尚未登录网站,欢迎发表评论或留下意见建议,注册成为本站会员。
 
 
最近来访的网友

34.203.213.116

54.36.148.116

106.11.152.46

216.244.66.241

42.156.137.76

54.36.148.187

42.156.137.17

42.236.10.103

42.236.10.100

42.236.10.122

42.236.10.90

220.181.125.158

5.9.98.130

5.9.82.183

106.11.159.76

46.229.168.149

42.156.137.50

106.11.155.98

207.180.241.15

106.11.157.40
邱少网 ©1998-2019 神族网络信息分享无限公司|个人公益事业非经营网站
站长邮箱:mmxhero@163.com    站长QQ:156369596  
【最近访客=240 】  
mmxhero(M8,N0) PandaGuoxue(M1,N0) sgsddszy(M2,N0) sd17173(M1,N0) mashaojun(M1,N3) 321456987(M1,N0)
xutanyuan(M3,N0) outoTinfo(M1,N0) 100kvodka(M1,N0) kmmmmp(M1,N0)